Error in download file in R

Question

I have an excel file containing a the names of company and the downloadable links for their .pdf files . My aim is to create directories as per tyhe company name in the excel column and have the pdf file downloaded to the newly created directory.

Here is my code

##Set the working directory
txtsrc<-"C:\\FirstAid"
        setwd(txtsrc)

##make a vector  file names and links
 pdflist <- read.xlsx("Final results_6thjuly.xlsx",1)
colnames(pdflist)

##Check if docs folder exists
if (dir.exists("FirstAid_docs")=="FALSE"){
dir.create("FirstAid_docs")
}

##Change the working directory
newfolder<-c("FirstAid_docs")
newpath<-file.path(txtsrc,newfolder)
setwd(newpath)

##Check the present working directory
getwd()

    ## Create directories and download files
    for( i in 1:length(pdflist[,c("ci_CompanyName")])){

    ##First delete the existing directories
    if(dir.exists(pdflist[,c("ci_CompanyName")][i])=="TRUE"){
        unlink(pdflist[,c("ci_CompanyName")][i], recursive = TRUE)
      }

    ##Create a new directory
    directoryname<-pdflist[,c("ci_CompanyName")][i]
    dir.create(directoryname,recursive = FALSE, mode = "0777")


      ##Get the downloadable links
      ##Link like :www.xyz.com thus need to add https to it
      link<-pdflist[,c("DocLink")][i]
      vallink<-c("https://")

       ##Need to remove quotes from link
      newlink<-paste0(vallink,link)
      newlink<-noquote(newlink)

      ##Set paths for the downloadble file
      destfile<-file.path(txtsrc,newfolder,directoryname)


      ##Download the file
      download.file(newlink,destfile,method="auto")

      ##Next record
          i<-i+1
    }

This is the error/results i get

 > colnames(pdflist)
[1] "ci_CompanyID"   "ci_CompanyName" "ProgramScore"   "ID_DI"          "DocLink"       
> download.file(newlink,destfile,method="auto")
Error in download.file(newlink, destfile, method = "auto") : 
  cannot open destfile 'C:\Users\skrishnan\Desktop\HR needed\text analysis proj\pdf\FirstAid/FirstAid_docs/Buckeye Partners, LP', reason 'Permission denied'

Despite setting the chmod why do i get the error . I am using CRAN RGui(64-bit) and the R version 3.5.0 on Windows 64-bit machine. Any help is greatly appreciated.

Answer 1

destfile in download.file needs to be a specific file, not just a directory. For example,

'C:\Users\skrishnan\Desktop\HR needed\text analysis proj\pdf\FirstAid\FirstAid_docs\Buckeye Partners, LP\myFile.pdf'