#31 rename in case of slashes in zenodo record filename

eblondel · Sep 1, 2020 · fd56f1c · fd56f1c
1 parent e608670
commit fd56f1c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
@@ -1162,6 +1162,7 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
 
         #download_file util
         download_file <- function(file){
+          file$filename <- gsub("/", "_", file$filename)
           if (!quiet) cat(sprintf("[zen4R][INFO] Downloading file '%s' - size: %s\n", 
                             file$filename, file$filesize %>% human_filesize()))
           target_file <-file.path(path, file$filename)
@@ -1170,6 +1171,7 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
         }          
         #check_integrity util
         check_integrity <- function(file){
+          file$filename <- gsub("/", "_", file$filename)
           target_file <-file.path(path, file$filename)
           #check md5sum
           target_file_md5sum <- tools::md5sum(target_file)