From 2bbcdf38044b1efa004b1733c7d3b7ce1a94245a Mon Sep 17 00:00:00 2001 From: Daniel Date: Sun, 19 May 2024 23:58:29 +0200 Subject: [PATCH] Use datawizard remotes (#724) --- DESCRIPTION | 2 +- R/check_heterogeneity_bias.R | 3 +-- R/check_outliers.R | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index cee96ac6b..a443a405c 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -154,4 +154,4 @@ Config/Needs/website: r-lib/pkgdown, easystats/easystatstemplate Config/rcmdcheck/ignore-inconsequential-notes: true -Remotes: easystats/insight +Remotes: easystats/insight, easystats/datawizard diff --git a/R/check_heterogeneity_bias.R b/R/check_heterogeneity_bias.R index 460dda761..7b7b22fcf 100644 --- a/R/check_heterogeneity_bias.R +++ b/R/check_heterogeneity_bias.R @@ -57,8 +57,7 @@ check_heterogeneity_bias <- function(x, select = NULL, by = NULL, group = NULL) result <- Map(function(predictor, id) { # demean predictor - ## FIXME: update argument name later! - d <- datawizard::demean(my_data, select = predictor, group = id, verbose = FALSE) + d <- datawizard::demean(my_data, select = predictor, by = id, verbose = FALSE) # get new names within_name <- paste0(predictor, "_within") diff --git a/R/check_outliers.R b/R/check_outliers.R index fff546741..071bd39a3 100644 --- a/R/check_outliers.R +++ b/R/check_outliers.R @@ -948,7 +948,7 @@ check_outliers.data.frame <- function(x, outlier_count <- lapply(outlier_count, function(x) { num.df <- x[!names(x) %in% c("Row", ID)] if (isTRUE(nrow(num.df) >= 1)) { - num.df <- datawizard::change_code( + num.df <- datawizard::recode_values( num.df, recode = list(`2` = "(Multivariate)") )