handle clusters that contain no values

Author: EhrmannS

R/helpers.R

@@ -242,6 +242,9 @@
   outIDs <- ids
   outObs <- obs
 
+  # first, test that any column contains any value
+  if(!any(!is.na(obs[[1]]))) return(NULL)
+
   uniqueIDs <- map(.x = seq_along(ids), .f = function(ix){
     unique(unlist(ids[[ix]]))
   })
@@ -304,7 +307,6 @@
           wideID[[1]] <- wideID[[1]] %>%
             select(-all_of(naCol))
         }
-
       }
       tempDim <- dim(temp)
 

R/reorganise.R

@@ -72,6 +72,7 @@ reorganise <- function(input = NULL, schema = NULL){
     # ids = idVars[[i]]; obs = obsVars[[i]]; clust = clusterVar[i]; grp = groupVar[i]
     tidyVars <- .tidyVars(ids = idVars[[i]], obs = obsVars[[i]],
                           clust = clusterVar[i], grp = groupVar[i])
+    if(is.null(tidyVars)) next
 
     # put together the table
     theTable <- bind_cols(tidyVars, .name_repair = "minimal")

cran-comments.md

@@ -1,14 +1,14 @@
-30.06.2021
-
-changing 'https://www.tidyverse.org/lifecycle/#maturing' to 'https://lifecycle.r-lib.org/articles/stages.html'!
-
-11.05.2020
-
-- fix crucial typo in DESCRIPTION
-
-10.05.2020
-
-- More details in DESCRIPTION
-- Better description of all included functions
-- A descriptive example for each exported function (makeSchema, reorganise)
+30.06.2021
+
+changing 'https://www.tidyverse.org/lifecycle/#maturing' to 'https://lifecycle.r-lib.org/articles/stages.html'!
+
+11.05.2020
+
+- fix crucial typo in DESCRIPTION
+
+10.05.2020
+
+- More details in DESCRIPTION
+- Better description of all included functions
+- A descriptive example for each exported function (makeSchema, reorganise)
 - proper description of return value for all functions