Fixing empty message in contact information resulting from issue Neot…

…omaDB/api_nodetest#69
NeotomaDB · Mar 28, 2019 · 41aab58 · 41aab58
1 parent a371134
commit 41aab58
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/assign_doi.R b/R/assign_doi.R
@@ -15,7 +15,15 @@ assign_doi <- function(ds_id, con, post = FALSE) {
 
   contact <- fromJSON(paste0("http://api-dev.neotomadb.org/v2.0/data/datasets/",
                              ds_id, "/contacts"),
-                      simplifyVector = FALSE)$data[[1]]$contact
+                      simplifyVector = FALSE)
+
+  if (length(contact$data) > 0) {
+    contact <- contact$data[[1]]$contact
+  } else {
+    contact <- data.frame(contactid = NA,
+                          fullName = 'None listed',
+                          address = 'None listed')
+  }
 
   schema <- XML::xmlSchemaParse("data/metadata.xsd")