replace %||% with custom function.

%||% requires 4.4.0 or later.

.zenodo.json

@@ -16,23 +16,23 @@
       "name": "Onkelinx, Thierry",
       "affiliation": "Research Institute for Nature and Forest (INBO)",
       "orcid": "0000-0001-8804-4216",
-      "type": "ContactPerson"
+      "type": "contactperson"
     },
     {
       "name": "Lommelen, Els",
       "affiliation": "Research Institute for Nature and Forest (INBO)",
       "orcid": "0000-0002-3481-5684",
-      "type": "ProjectMember"
+      "type": "projectmember"
     },
     {
       "name": "Van Calster, Hans",
       "affiliation": "Research Institute for Nature and Forest (INBO)",
       "orcid": "0000-0001-8595-8426",
-      "type": "ProjectMember"
+      "type": "projectmember"
     },
     {
       "name": "Research Institute for Nature and Forest (INBO)",
-      "type": "RightsHolder"
+      "type": "rightsholder"
     }
   ],
   "creators": [

R/upload_zenodo.R

@@ -81,7 +81,9 @@ zen_upload <- function(zenodo, zen_rec, path) {
     msg = ifelse(
       zen_rec$status == "400",
       "Problem authenticating to Zenodo. Check the Zenodo token.",
-      zen_rec$message %||% "Error uploading to Zenodo without error message."
+      first_non_null(
+        zen_rec$message, "Error uploading to Zenodo without error message."
+      )
     )
   )
 
@@ -98,3 +100,14 @@ zen_upload <- function(zenodo, zen_rec, path) {
   }
   return(zen_rec)
 }
+
+first_non_null <- function(...) {
+  dots <- list(...)
+  if (length(dots) == 0) {
+    return(NULL)
+  }
+  if (!is.null(dots[[1]])) {
+    return(dots[[1]])
+  }
+  do.call(first_non_null, tail(dots, -1))
+}