Merge pull request #89 from vsbuffalo/LinearizeNestedList-fix

check if list has length > 0 before assigning name, fixes issue #87
ropensci-archive · May 12, 2016 · 8123400 · 8123400
2 parents 06de323 + 390f2b4
commit 8123400
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/ee_utils.R b/R/ee_utils.R
@@ -252,7 +252,9 @@ LinearizeNestedList <- function(NList, LinearizeDataFrames=FALSE,
                     names(Element) <- as.character(1:length(Element))
                 Element <- LinearizeNestedList(Element, LinearizeDataFrames,
                                                NameSep, ForceNames)
-                names(Element) <- paste(EName, names(Element), sep=NameSep)
+                if (length(Element)) {
+                  names(Element) <- paste(EName, names(Element), sep=NameSep)
+                }
                 Jump <- length(Element)
                 NList <- c(Before, Element, After)
             }