provide clear message to only allow one group variable.

elong0527 · Nov 15, 2023 · 1fd81b3 · 1fd81b3
1 parent 2bf59e4
commit 1fd81b3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/metalite_table1.R b/R/metalite_table1.R
@@ -37,6 +37,9 @@ metalite_table1 <- function(formula,
  if (formula[[2]][[1]] == "|") {
  var <- all.vars(formula[[2]][[2]])
  group <- all.vars(formula[[2]][[3]])
+ if(length(group) > 1){
+ stop("Only one group variable is supported")
+ }
  } else {
  var <- all.vars(formula[[2]])
  data$group <- "All"