fix for #26

hypertidy · Feb 13, 2019 · 45658a6 · 45658a6
1 parent b433604
commit 45658a6
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/nc_grid.R b/R/nc_grid.R
@@ -57,6 +57,10 @@ nc_grids_dimvar <- function(dimension, variable, axes) {
   out <-   dplyr::arrange(out, dplyr::desc(nchar(.data$grid)), .data$grid)
   ## catch the NA shapes (the scalars) and set to "-"
   out[["grid"]][is.na(out[["grid"]]) | out[["grid"]] == "DNA"] <- "S"
-  out  
+  out[["ndims"]] <- unlist(lapply(strsplit(out$grid, ","), length))
+  out  %>% 
+    dplyr::group_by(.data$grid, .data$ndims) %>% 
+    dplyr::summarize(nvars = dplyr::n()) %>% 
+    dplyr::ungroup()
 }