Merge branch 'main' into 103-require-new-version-of-effectsize

insightsengineering · Jun 4, 2024 · fb33566 · fb33566
2 parents 2333cb4 + 251f3d1
commit fb33566
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: cardx
 Title: Extra Analysis Results Data Utilities
-Version: 0.1.0.9051
+Version: 0.1.0.9052
 Authors@R: c(
     person("Daniel", "Sjoberg", , "[email protected]", role = c("aut", "cre")),
     person("Abinaya", "Yogasekaram", , "[email protected]", role = "aut"),

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# cardx 0.1.0.9051
+# cardx 0.1.0.9052
 
 ### Breaking Changes
 

diff --git a/R/ard_aod_wald_test.R b/R/ard_aod_wald_test.R
@@ -6,15 +6,18 @@
 #'
 #' @param x regression model object
 #' @param ... arguments passed to `aod::wald.test(...)`
+#' @inheritParams ard_regression
 #'
 #' @return data frame
 #' @export
 #'
 #' @examplesIf do.call(asNamespace("cardx")$is_pkg_installed, list(pkg = "aod", reference_pkg = "cardx"))
 #' lm(AGE ~ ARM, data = cards::ADSL) |>
 #'   ard_aod_wald_test()
-ard_aod_wald_test <- function(x, ...) {
+ard_aod_wald_test <- function(x, tidy_fun = broom.helpers::tidy_with_broom_or_parameters, ...) {
   set_cli_abort_call()
+  check_pkg_installed("broom.helpers", reference_pkg = "cardx")
+
   # check installed packages ---------------------------------------------------
   check_pkg_installed("aod", reference_pkg = "cardx")
 
@@ -23,7 +26,7 @@ ard_aod_wald_test <- function(x, ...) {
 
   # run regression() -----------------------------------------------------------
   reg_model <- cards::eval_capture_conditions(
-    ard_regression_basic(x, intercept = TRUE, stats_to_remove = c(
+    ard_regression_basic(x, tidy_fun = tidy_fun, intercept = TRUE, stats_to_remove = c(
       "var_type",
       "var_label",
       "var_class", "label",

diff --git a/man/ard_aod_wald_test.Rd b/man/ard_aod_wald_test.Rd