fix new upload api

eblondel · Nov 24, 2021 · 65e8298 · 65e8298
1 parent 47379f8
commit 65e8298
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -904,8 +904,8 @@ ZenodoManager <-  R6Class("ZenodoManager",
         newapi <- FALSE
       }
       if(!is.null(record)) recordId <- record$id
-      fileparts <- strsplit(path,"/")
-      filename <- unlist(fileparts)[length(fileparts)]
+      fileparts <- unlist(strsplit(path,"/"))
+      filename <- fileparts[length(fileparts)]
       if(!"bucket" %in% names(record$links)){
         self$WARN(sprintf("No bucket link for record id = %s. Revert to old file upload API", recordId))
         newapi <- FALSE