address numeric variable issue and renaming

insightsengineering · Feb 9, 2024 · 041da9e · 041da9e
1 parent 2629ff8
commit 041da9e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 7 deletions.
diff --git a/R/ard_kruskaltest.R b/R/ard_kruskaltest.R
@@ -11,7 +11,6 @@
 #'   column name to compare by
 #' @param variable ([`tidy-select`][dplyr::dplyr_tidy_select])\cr
 #'   column name to be compared
-#' @param ... additional arguments passed to `kruskal.test()`
 #'
 #' @return ARD data frame
 #' @export
@@ -36,7 +35,7 @@ ard_kruskaltest <- function(data, by, variable, ...) {
   cards::tidy_as_ard(
     lst_tidy =
       cards::eval_capture_conditions(
-        stats::kruskal.test(x = data[[variable]], g = data[[by]], ...) |>
+        stats::kruskal.test(x = data[[variable]], g = data[[by]]) |>
           broom::tidy()
       ),
     tidy_result_names = c("statistic", "p.value", "parameter", "method"),

diff --git a/man/ard_kruskaltest.Rd b/man/ard_kruskaltest.Rd
diff --git a/tests/testthat/test-ard_kwtest.R → tests/testthat/test-ard_kruskaltest.R b/tests/testthat/test-ard_kwtest.R → tests/testthat/test-ard_kruskaltest.R
@@ -2,7 +2,7 @@ test_that("ard_kurskaltest() works", {
   expect_error(
     ard_kruskaltest <-
       cards::ADSL |>
-      ard_kruskaltest(by = ARM, variable = AGEGR1),
+      ard_kruskaltest(by = ARM, variable = AGE),
     NA
   )
 
@@ -25,12 +25,12 @@ test_that("shuffle_ard fills missing group levels if the group is meaningful", {
       ard_kruskaltest(
         data = adsl_sub,
         by = "ARM",
-        variable = "AGEGR1"
+        variable = "AGE"
       ),
       ard_kruskaltest(
         data = adsl_sub,
         by = "SEX",
-        variable = "AGEGR1"
+        variable = "AGE"
       )
     ) |>
       as.data.frame()