Check on dev-versions (#470)

strengejacke · rempsyc · web-flow · commit 39409c8724bb · 2024-12-12T20:24:24.000-05:00
* Check on dev-versions

* update data_rename-args

* add newline at end of file

---------

Co-authored-by: Rémi Thériault &lt;13123390+rempsyc@users.noreply.github.com&gt;
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,9 +18,9 @@ Authors@R:
              role = "aut",
              email = "patilindrajeet.science@gmail.com",
              comment = c(ORCID = "0000-0003-1995-6531")),
-      person(given = "Rémi", 
+      person(given = "Rémi",
              family = "Thériault",
-             role = c("aut", "cre"), 
+             role = c("aut", "cre"),
              email = "remi.theriault@mail.mcgill.ca",
              comment = c(ORCID = "0000-0003-4315-6788")),
       person(given = "Mattan S.",
@@ -154,4 +154,4 @@ Collate:
     'utils_misspelled_variables.R'
     'zzz.R'
 Roxygen: list(markdown = TRUE)
-Remotes: easystats/insight, easystats/effectsize, easystats/see, easystats/performance, easystats/bayestestR
+Remotes: easystats/datawizard, easystats/parameters, easystats/performance, easystats/see, easystats/bayestestR
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")))]

Original file line number	Diff line number	Diff line change
`@@ -47,8 +47,8 @@`
`47`	`47`
`48`	`48`	`table <- datawizard::data_rename(`
`49`	`49`	`as.data.frame(table),`
`50`		`- c("CI_low", "CI_high"),`
`51`		`- paste0(estimate, c("_CI_low", "_CI_high"))`
	`50`	`+ select = c("CI_low", "CI_high"),`
	`51`	`+ replacement = paste0(estimate, c("_CI_low", "_CI_high"))`
`52`	`52`	`)`
`53`	`53`
`54`	`54`	`table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))]`
Original file line number	Diff line number	Diff line change
`@@ -40,8 +40,8 @@`
`40`	`40`
`41`	`41`	`table <- datawizard::data_rename(`
`42`	`42`	`as.data.frame(table),`
`43`		`- c("CI_low", "CI_high"),`
`44`		`- paste0(estimate, c("_CI_low", "_CI_high"))`
	`43`	`+ select = c("CI_low", "CI_high"),`
	`44`	`+ replacement = paste0(estimate, c("_CI_low", "_CI_high"))`
`45`	`45`	`)`
`46`	`46`
`47`	`47`	`table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))]`
Original file line number	Diff line number	Diff line change
`@@ -70,8 +70,8 @@`
`70`	`70`
`71`	`71`	`table <- datawizard::data_rename(`
`72`	`72`	`as.data.frame(table),`
`73`		`- c("CI_low", "CI_high"),`
`74`		`- paste0(estimate, c("_CI_low", "_CI_high"))`
	`73`	`+ select = c("CI_low", "CI_high"),`
	`74`	`+ replacement = paste0(estimate, c("_CI_low", "_CI_high"))`
`75`	`75`	`)`
`76`	`76`
`77`	`77`	`table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))]`