Merge pull request #201 from NCEAS/develop

fix new bug that cropped up, issue #200
NCEAS · Nov 4, 2022 · 6aadd37 · 6aadd37
2 parents 1665c4a + 50f1da0
commit 6aadd37
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/eml.R b/R/eml.R
@@ -194,10 +194,8 @@ eml_otherEntity_to_dataTable <- function(doc, index, validate_eml = TRUE) {
   if (length(eml_get_simple(doc$dataset$otherEntity, "entityName")) == 1) {
     ## prepare OE to copy
     otherEntity <- doc$dataset$otherEntity
-    ## Handle case where otherEntity is in a list of length 1 (boxed)
-    if (is.null(names(otherEntity))) {
-      otherEntity <- otherEntity[[1]]
-    } else if (!is.null(names(otherEntity))) {  ## Handle case where otherEntity is unboxed
+  ## Handle case where otherEntity is unboxed
+  if (!is.null(names(otherEntity))) {
       otherEntity <- list(otherEntity)
     }
     otherEntity[[1]]$entityType <- NULL