From 27a2141f5f980509a203e8c11d3a533d703615f7 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 12 Oct 2021 16:40:20 +0200
Subject: [PATCH] #60 method url

---
 R/ZenodoManager.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
index 4a93b64..e768df3 100644
--- a/R/ZenodoManager.R
+++ b/R/ZenodoManager.R
@@ -905,7 +905,7 @@ ZenodoManager <-  R6Class("ZenodoManager",
         newapi <- FALSE
       }
       if(newapi) self$INFO(sprintf("Using new file upload API with bucket: %s", record$links$bucket))
-      method_url <- ifelse(newapi, sprintf("%s/%s", unlist(strsplit(record$links$bucket, "api/"))[2], filename), sprintf("deposit/depositions/%s/files", recordId))
+      method_url <- if(newapi) sprintf("%s/%s", unlist(strsplit(record$links$bucket, "api/"))[2], filename) else sprintf("deposit/depositions/%s/files", recordId)
       zenReq <- ZenodoRequest$new(private$url, method, method_url, 
                                   data = filename, file = upload_file(path),
                                   token = self$getToken(),