From f7cd1fa0db645a7321f9075f89b40ea9dbe0ab4d Mon Sep 17 00:00:00 2001 From: Sam Schiano <125507018+Schiano-NOAA@users.noreply.github.com> Date: Wed, 24 Jun 2026 15:37:22 -0400 Subject: [PATCH 1/2] remove override of group when not recognized since check grouping is limited --- R/process_data.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/R/process_data.R b/R/process_data.R index 11ce6e7d..bf447d86 100644 --- a/R/process_data.R +++ b/R/process_data.R @@ -115,13 +115,13 @@ process_data <- function( } } # Warn user when group not indexed in data - if (!is.null(group) && group %notin% index_variables) { - if (group != "none") { - cli::cli_alert_warning("{group} not an index of data.") - # reset group to NULL so it's not added to grouping incorrectly - group <- NULL - } - } + # if (!is.null(group) && group %notin% index_variables) { + # if (group != "none") { + # cli::cli_alert_warning("{group} not an index of data.") + # # reset group to NULL so it's not added to grouping incorrectly + # group <- NULL + # } + # } # Set group_var to identified grouping if (!is.null(group) && group != "none") { data <- dplyr::mutate( From f82a2a82fd5b8ec3103d36f1048a85d95fe46ae2 Mon Sep 17 00:00:00 2001 From: Sam Schiano <125507018+Schiano-NOAA@users.noreply.github.com> Date: Wed, 24 Jun 2026 16:30:26 -0400 Subject: [PATCH 2/2] add condition for group being added to index_variables when added as arg --- R/process_data.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/process_data.R b/R/process_data.R index bf447d86..f7e7e643 100644 --- a/R/process_data.R +++ b/R/process_data.R @@ -128,6 +128,7 @@ process_data <- function( dat, group_var = .data[[group]] ) + if (group %notin% index_variables) index_variables <- c(group, index_variables) } else { data <- dat }