minor bug fix for dates in multigrids

SantanderMetGroup · Sep 12, 2017 · cbae13f · cbae13f
1 parent f122ac9
commit cbae13f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/makeMultiGrid.R b/R/makeMultiGrid.R
@@ -86,6 +86,11 @@
 
 makeMultiGrid <- function(..., spatial.tolerance = 1e-3, skip.temporal.check = FALSE) {
       field.list <- list(...)
+      for(i in 1:length(field.list)){
+        if("var" %in% names(getShape(field.list[[i]])))
+          if(getShape(field.list[[i]])[["var"]] == 1)
+            field.list[[i]] <- redim(field.list[[i]], drop = T)
+      }
       if (length(field.list) == 1) {
                   field.list <- unlist(field.list, recursive = FALSE)
       }