Unzipping Files in R Using a Loop or Lapply and Saving to the Same Folder

Question

I have a data frame that contains all of my directory and sub-directory file paths. My first dataset contains the input \'path\':

 Input: 
 \\\\data\\A\\New J