update data_rename-args

easystats · Dec 3, 2024 · 68058f5 · 68058f5
1 parent c2d649e
commit 68058f5
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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"]