Rename change_code() to recode_values() (#235)

Closes #233 Co-authored-by: Daniel <[email protected]>
easystats · Aug 25, 2022 · a9668f6 · a9668f6
1 parent 6adeff4
commit a9668f6
Show file tree

Hide file tree

Showing 68 changed files with 462 additions and 403 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -20,11 +20,6 @@ S3method(center,factor)
 S3method(center,grouped_df)
 S3method(center,logical)
 S3method(center,numeric)
-S3method(change_code,character)
-S3method(change_code,data.frame)
-S3method(change_code,default)
-S3method(change_code,factor)
-S3method(change_code,numeric)
 S3method(convert_na_to,character)
 S3method(convert_na_to,data.frame)
 S3method(convert_na_to,default)
@@ -76,6 +71,11 @@ S3method(ranktransform,data.frame)
 S3method(ranktransform,factor)
 S3method(ranktransform,grouped_df)
 S3method(ranktransform,numeric)
+S3method(recode_values,character)
+S3method(recode_values,data.frame)
+S3method(recode_values,default)
+S3method(recode_values,factor)
+S3method(recode_values,numeric)
 S3method(rescale,data.frame)
 S3method(rescale,default)
 S3method(rescale,grouped_df)
@@ -209,6 +209,7 @@ export(object_has_rownames)
 export(print_html)
 export(print_md)
 export(ranktransform)
+export(recode_values)
 export(remove_empty)
 export(remove_empty_columns)
 export(remove_empty_rows)

diff --git a/NEWS.md b/NEWS.md
@@ -9,6 +9,9 @@ BREAKING CHANGES
 
 * New `text_format()` alias is introduced for `format_text()`, latter of which
   will be removed in the next release.
+
+* New `recode_values()` alias is introduced for `change_code()`, latter of which
+  will be removed in the next release.
 
 CHANGES
 

diff --git a/R/adjust.R b/R/adjust.R
@@ -99,11 +99,12 @@ adjust <- function(data,
   } else {
     # evaluate select/exclude, may be select-helpers
     select <- .select_nse(select,
-                          data,
-                          exclude,
-                          ignore_case,
-                          regex = regex,
-                          verbose = verbose)
+      data,
+      exclude,
+      ignore_case,
+      regex = regex,
+      verbose = verbose
+    )
   }
 
   # Factors

diff --git a/R/categorize.R b/R/categorize.R
@@ -141,8 +141,10 @@ categorize.numeric <- function(x,
   if (is.character(split)) {
     split <- match.arg(
       split,
-      choices = c("median", "mean", "quantile", "equal_length", "equal_range",
-                  "equal", "equal_distance", "range", "distance")
+      choices = c(
+        "median", "mean", "quantile", "equal_length", "equal_range",
+        "equal", "equal_distance", "range", "distance"
+      )
     )
   }
 
@@ -258,11 +260,12 @@ categorize.data.frame <- function(x,
                                   ...) {
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # process arguments
   args <- .process_std_args(
@@ -315,11 +318,12 @@ categorize.grouped_df <- function(x,
 
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # process arguments
   args <- .process_std_args(x, select, exclude, weights = NULL, append, append_suffix = "_r", force = TRUE)

diff --git a/R/center.R b/R/center.R
@@ -175,11 +175,12 @@ center.data.frame <- function(x,
                               ...) {
   # evaluate select/exclude, may be select-helpers
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # process arguments
   args <- .process_std_args(x, select, exclude, weights, append,
@@ -227,11 +228,12 @@ center.grouped_df <- function(x,
                               ...) {
   # evaluate select/exclude, may be select-helpers
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   args <- .process_grouped_df(x, select, exclude, append,
     append_suffix = "_c",

diff --git a/R/convert_na_to.R b/R/convert_na_to.R
@@ -159,11 +159,12 @@ convert_na_to.data.frame <- function(x,
                                      ...) {
   data <- x
   select_nse <- .select_nse(select,
-                            data,
-                            exclude = exclude,
-                            ignore_case,
-                            regex = regex,
-                            verbose = verbose)
+    data,
+    exclude = exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # list are not covered by .select_nse
   if (length(select_nse) == 0) {

diff --git a/R/convert_to_na.R b/R/convert_to_na.R
@@ -173,11 +173,12 @@ convert_to_na.data.frame <- function(x,
                                      ...) {
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   x[select] <- lapply(x[select], convert_to_na, na = na, drop_levels = drop_levels, verbose = verbose, ...)
   x

diff --git a/R/data_arrange.R b/R/data_arrange.R
@@ -24,14 +24,17 @@
 #' }
 #' @export
 data_arrange <- function(data, select = NULL, safe = TRUE) {
-  if (is.null(select) || length(select) == 0) return(data)
+  if (is.null(select) || length(select) == 0) {
+    return(data)
+  }
 
   # coerce to data frame?
   if (!is.data.frame(data)) {
     data <- tryCatch(as.data.frame(data),
-    error = function(e) {
-      stop("Could not coerce `data` into a data frame.", call. = FALSE)
-    })
+      error = function(e) {
+        stop("Could not coerce `data` into a data frame.", call. = FALSE)
+      }
+    )
   }
 
   # find which vars should be decreasing
@@ -53,7 +56,9 @@ data_arrange <- function(data, select = NULL, safe = TRUE) {
     select <- select[-which(select %in% dont_exist)]
   }
 
-  if (length(select) == 0) return(data)
+  if (length(select) == 0) {
+    return(data)
+  }
 
   out <- data
 

diff --git a/R/data_extract.R b/R/data_extract.R
@@ -86,11 +86,12 @@ data_extract.data.frame <- function(data,
 
   # evaluate arguments
   select <- .select_nse(select,
-                        data,
-                        exclude = NULL,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    data,
+    exclude = NULL,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # nothing to select?
   if (!length(select)) {

diff --git a/R/data_group.R b/R/data_group.R
@@ -40,7 +40,8 @@ data_group <- function(data,
     exclude,
     ignore_case = ignore_case,
     regex = regex,
-    verbose = verbose)
+    verbose = verbose
+  )
   # create grid with combinations of all levels
   grid <- as.data.frame(expand.grid(lapply(data[select], unique)))
   # sort grid

diff --git a/R/data_relocate.R b/R/data_relocate.R
@@ -76,11 +76,12 @@ data_relocate <- function(data,
   }
 
   cols <- .select_nse(select,
-                      data,
-                      exclude = NULL,
-                      ignore_case = ignore_case,
-                      regex = regex,
-                      verbose = verbose)
+    data,
+    exclude = NULL,
+    ignore_case = ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # save attributes
   att <- attributes(data)
@@ -136,11 +137,12 @@ data_reorder <- function(data,
                          verbose = TRUE,
                          ...) {
   cols <- .select_nse(select,
-                      data,
-                      exclude = NULL,
-                      ignore_case = ignore_case,
-                      regex = regex,
-                      verbose = verbose)
+    data,
+    exclude = NULL,
+    ignore_case = ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
   remaining_columns <- setdiff(colnames(data), cols)
 
   out <- data[c(cols, remaining_columns)]

diff --git a/R/data_remove.R b/R/data_remove.R
@@ -21,7 +21,8 @@ data_remove <- function(data,
     exclude = NULL,
     ignore_case = ignore_case,
     regex = regex,
-    verbose = verbose)
+    verbose = verbose
+  )
 
   # nothing to remove?
   if (!length(select)) {

diff --git a/R/data_rename.R b/R/data_rename.R
@@ -42,7 +42,7 @@
 #' - Functions to rename stuff: [data_rename()], [data_rename_rows()], [data_addprefix()], [data_addsuffix()]
 #' - Functions to reorder or remove columns: [data_reorder()], [data_relocate()], [data_remove()]
 #' - Functions to reshape, pivot or rotate data frames: [data_to_long()], [data_to_wide()], [data_rotate()]
-#' - Functions to recode data: [rescale()], [reverse()], [categorize()], [change_code()], [slide()]
+#' - Functions to recode data: [rescale()], [reverse()], [categorize()], [recode_values()], [slide()]
 #' - Functions to standardize, normalize, rank-transform: [center()], [standardize()], [normalize()], [ranktransform()], [winsorize()]
 #' - Split and merge data frames: [data_partition()], [data_merge()]
 #' - Functions to find or select columns: [data_select()], [data_find()]

diff --git a/R/data_rescale.R b/R/data_rescale.R
@@ -130,11 +130,12 @@ rescale.grouped_df <- function(x,
 
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # dplyr < 0.8.0?
   if (is.null(grps)) {
@@ -175,11 +176,12 @@ rescale.data.frame <- function(x,
                                ...) {
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # Transform the range so that it is a list now
   if (!is.null(range)) {

diff --git a/R/data_reverse.R b/R/data_reverse.R
@@ -141,11 +141,12 @@ reverse.grouped_df <- function(x,
 
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # dplyr < 0.8.0?
   if (is.null(grps)) {
@@ -184,11 +185,12 @@ reverse.data.frame <- function(x,
                                ...) {
   # evaluate arguments
   select <- .select_nse(select,
-                        x,
-                        exclude,
-                        ignore_case,
-                        regex = regex,
-                        verbose = verbose)
+    x,
+    exclude,
+    ignore_case,
+    regex = regex,
+    verbose = verbose
+  )
 
   # Transform the range so that it is a list now
   if (!is.null(range)) {