diff --git a/R/report_htest_chi2.R b/R/report_htest_chi2.R index e051f001..2962fc0a 100644 --- a/R/report_htest_chi2.R +++ b/R/report_htest_chi2.R @@ -47,8 +47,8 @@ table <- datawizard::data_rename( as.data.frame(table), - c("CI_low", "CI_high"), - paste0(estimate, c("_CI_low", "_CI_high")) + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) ) table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] diff --git a/R/report_htest_fisher.R b/R/report_htest_fisher.R index b8e5da98..6dc9e514 100644 --- a/R/report_htest_fisher.R +++ b/R/report_htest_fisher.R @@ -40,8 +40,8 @@ table <- datawizard::data_rename( as.data.frame(table), - c("CI_low", "CI_high"), - paste0(estimate, c("_CI_low", "_CI_high")) + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) ) table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] diff --git a/R/report_htest_ttest.R b/R/report_htest_ttest.R index af74eab3..e3fe9a23 100644 --- a/R/report_htest_ttest.R +++ b/R/report_htest_ttest.R @@ -70,8 +70,8 @@ table <- datawizard::data_rename( as.data.frame(table), - c("CI_low", "CI_high"), - paste0(estimate, c("_CI_low", "_CI_high")) + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) ) table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] diff --git a/R/report_sample.R b/R/report_sample.R index 83b95115..0c7986c3 100644 --- a/R/report_sample.R +++ b/R/report_sample.R @@ -187,7 +187,7 @@ report_sample <- function(data, new_column = ".new_names", separator = ", " )[[".new_names"]] - result <- datawizard::data_rename(result, pattern = old_names, replacement = new_names) + result <- datawizard::data_rename(result, select = old_names, replacement = new_names) } # remember values of first columns variable <- result[[1]]["Variable"]