From 581de5b7a2fccb42a0a48db41dd2c1324a06058a Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Thu, 23 Dec 2021 22:57:49 +0100
Subject: [PATCH] #65 better version handling in get_versions

---
 R/ZenodoRecord.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ZenodoRecord.R b/R/ZenodoRecord.R
index 2a8e51c..0cca06c 100644
--- a/R/ZenodoRecord.R
+++ b/R/ZenodoRecord.R
@@ -463,14 +463,14 @@ ZenodoRecord <-  R6Class("ZenodoRecord",
           return(data.frame(
             created = as.POSIXct(version$created, format = "%Y-%m-%dT%H:%M:%OS"),
             date = as.Date(version$metadata$publication_date),
-            version = 0L,
+            version = if(!is.null(version$metadata$version)) version$metadata$version else NA,
             doi = version$doi,
             stringsAsFactors = FALSE
           ))
         }))
         versions <- versions[order(versions$created),]
         row.names(versions) <- 1:nrow(versions)
-        versions$version <- 1:nrow(versions)
+        if(all(is.na(versions$version))) versions$version <- 1:nrow(versions)
       }
       Sys.setlocale("LC_TIME", locale)