diff --git a/DESCRIPTION b/DESCRIPTION index 7cff6637f..e840243f4 100644 --- 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", , "danield.sjoberg@gmail.com", role = c("aut", "cre")), person("Abinaya", "Yogasekaram", , "abinaya.yogasekaram@contractors.roche.com", role = "aut"), diff --git a/NEWS.md b/NEWS.md index d11bcea46..0d2e90eb9 100644 --- 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 index ec87532ab..ecb883980 100644 --- a/R/ard_aod_wald_test.R +++ b/R/ard_aod_wald_test.R @@ -6,6 +6,7 @@ #' #' @param x regression model object #' @param ... arguments passed to `aod::wald.test(...)` +#' @inheritParams ard_regression #' #' @return data frame #' @export @@ -13,8 +14,10 @@ #' @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 index 2469ac1ba..0d7ec6129 100644 --- a/man/ard_aod_wald_test.Rd +++ b/man/ard_aod_wald_test.Rd @@ -4,11 +4,18 @@ \alias{ard_aod_wald_test} \title{ARD Wald Test} \usage{ -ard_aod_wald_test(x, ...) +ard_aod_wald_test( + x, + tidy_fun = broom.helpers::tidy_with_broom_or_parameters, + ... +) } \arguments{ \item{x}{regression model object} +\item{tidy_fun}{(\code{function})\cr +a tidier. Default is \code{\link[broom.helpers:tidy_with_broom_or_parameters]{broom.helpers::tidy_with_broom_or_parameters}}} + \item{...}{arguments passed to \code{aod::wald.test(...)}} } \value{