Merge branch 'main' into strengejacke/issue594

Author: strengejacke

R/collapse_by_group.R

@@ -77,7 +77,7 @@ collapse_by_group <- function(grid, model, collapse_by = NULL, residuals = FALSE
 
   if (nrow(rawdata) == nrow(model_data)) {
     rawdata$random <- factor(model_data[[collapse_by]])
-  } else if (collapse_by %in% colnames(rowdata)) {
+  } else if (collapse_by %in% colnames(rawdata)) {
     rawdata$random <- factor(rawdata[[collapse_by]])
   } else {
     insight::format_error(paste0("Could not find `", collapse_by, "` column."))