diff --git a/R/report_htest_ttest.R b/R/report_htest_ttest.R index 0d5de125..bf8f196b 100644 --- a/R/report_htest_ttest.R +++ b/R/report_htest_ttest.R @@ -106,12 +106,12 @@ vars <- paste0(x$data.name) } - text <- paste0( + final_text <- paste0( trimws(x$method), " testing the difference ", ifelse(grepl(" by ", x$data.name, fixed = TRUE), "of ", "between "), vars_full ) - text + final_text } diff --git a/R/report_participants.R b/R/report_participants.R index 54b92567..5471f67a 100644 --- a/R/report_participants.R +++ b/R/report_participants.R @@ -132,6 +132,7 @@ report_participants <- function(data, ...) { ## TODO: deprecate later if (!is.null(group)) { + format_warning("Argument `group` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint by <- group } diff --git a/R/report_sample.R b/R/report_sample.R index cd94981d..270e13e6 100644 --- a/R/report_sample.R +++ b/R/report_sample.R @@ -88,6 +88,7 @@ report_sample <- function(data, ...) { ## TODO: deprecate later if (!is.null(group_by)) { + format_warning("Argument `group_by` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint by <- group_by }