From 1fd81b332a50c022eb1c857ce59c46069c4a1ae4 Mon Sep 17 00:00:00 2001
From: yilong zhang <elong0527@gmail.com>
Date: Wed, 15 Nov 2023 05:02:06 +0000
Subject: [PATCH] provide clear message to only allow one group variable.

---
 R/metalite_table1.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/metalite_table1.R b/R/metalite_table1.R
index 79eab1e..1edfa21 100644
--- 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"