Fix ci compatibility and error in as.alternative cospusQuery
Change-Id: I45817afd9bbf57f72bfbcd9c638a9d40b8e79055
diff --git a/R/ci.R b/R/ci.R
index 032b677..e770bbc 100644
--- a/R/ci.R
+++ b/R/ci.R
@@ -42,8 +42,11 @@
x <- enquo(x)
N <- enquo(N)
+ # Ensure df is ungrouped for compatibility with grouped data
+ df <- df |> ungroup()
+
# Add row index to preserve original order
- df <- df %>% mutate(.row_index = row_number())
+ df <- df |> mutate(.row_index = row_number())
# Initialize result with all NA values
result <- df %>%