R: download file if not exist locally

R-snippet-download-file-ifnot-exists-locally.R

# download remote file (potentially very big)
# only if it does not exist locally
# assumes tidyverse is already loaded
inurl <- 'https://'
infile <- 'data_infiles/.csv'
if (! file.exists(infile)){
      sprintf("downloading: '%s'", inurl)
      try(download.file(url = inurl, destfile = infile
        #, mode = "wb",
      ), silent = TRUE)
    } else {
      sprintf("file already downloaded: '%s'", infile)
    }
data_raw <- read_csv(infile)