From 8d370d91d4389b053c95e51355e37388247d6171 Mon Sep 17 00:00:00 2001 From: Thierry Onkelinx Date: Mon, 27 Nov 2023 10:58:29 +0100 Subject: [PATCH] Remove trailing information from record_id. Transforms 12345678/versions/latest into 12345678 --- R/ZenodoManager.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R index a4894d1..f535e3c 100644 --- a/R/ZenodoManager.R +++ b/R/ZenodoManager.R @@ -700,7 +700,8 @@ ZenodoManager <- R6Class("ZenodoManager", #id of the last record record_id <- unlist(strsplit(record$links$latest,"records/"))[[2]] - + # strip trailing info from record_id + record_id <- gsub("(.*?)/(.*)", "\\1", record_id) self$INFO(sprintf("Creating new version for record '%s' (concept DOI: '%s')", record_id, record$getConceptDOI())) request <- sprintf("deposit/depositions/%s/actions/newversion", record_id) zenReq <- ZenodoRequest$new(private$url, type, request, data = NULL,