fix metadata processing bug

ropensci · Jan 9, 2025 · 024ef7e · 024ef7e
1 parent 416c0f4
commit 024ef7e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/class_database.R b/R/class_database.R
@@ -282,10 +282,11 @@ database_class <- R6::R6Class(
       if (anyNA(element)) {
         element <- replace_na(element, "")
       }
-      if (is.list(element)) {
-        element <- paste(unlist(element), collapse = database_sep_inner)
+      element <- as.character(unlist(element))
+      if (length(element) != 1L) {
+        element <- paste(element, collapse = database_sep_inner)
       }
-      as.character(element)
+      element
     },
     reset_storage = function() {
       dir_create(dirname(self$path))