Merge pull request #2125 from olivroy/case-match

remove case_match() usage

Author: rich-iannone

DESCRIPTION

@@ -39,7 +39,7 @@ Imports:
     bitops (>= 1.0-7),
     cli (>= 3.6.3),
     commonmark (>= 1.9.1),
-    dplyr (>= 1.1.4),
+    dplyr (>= 1.2.0),
     fs (>= 1.6.4),
     glue (>= 1.8.0),
     htmltools (>= 0.5.8.1),
@@ -52,7 +52,7 @@ Imports:
     sass (>= 0.4.9),
     scales (>= 1.3.0),
     tidyselect (>= 1.2.1),
-    vctrs,
+    vctrs (>= 0.7.0),
     xml2 (>= 1.3.6)
 Suggests:
     bit64,

R/dt_stub_df.R

@@ -141,11 +141,8 @@ dt_stub_df_init <- function(
 
       unique_row_group_ids <-
         create_unique_id_vals(unique_row_group_labels, simplify = process_md)
-      names(unique_row_group_ids) <- unique_row_group_labels
 
-      # dplyr::recode is superseded, and is slower now.
-      # TODO consider using vctrs::vec_case_match when available r-lib/vctrs#1622
-      row_group_ids <- dplyr::recode(row_group_labels, !!!unique_row_group_ids)
+      row_group_ids <- dplyr::replace_values(row_group_labels, from = unique_row_group_ids, to = unique_row_group_labels)
 
     } else {
       row_group_ids <- row_group_labels

R/format_data.R

@@ -5419,11 +5419,11 @@ extract_duration_pattern <- function(
 ) {
 
   x_val_i_type <-
-    dplyr::case_match(
+    dplyr::recode_values(
       value,
       1 ~ "one",
       0 ~ "zero",
-      .default = "other"
+      default = "other"
     )
 
   pattern <- patterns[grepl(paste0(sub("s$", "", time_p), ".*?.", x_val_i_type), names(patterns))][[1]]

R/info_tables.R

@@ -764,10 +764,9 @@ info_locales <- function(begins_with = NULL) {
   )
 
   tab_1$group <-
-    dplyr::case_match(
+    dplyr::replace_values(
       tab_1$group,
-      c("\u00a0", "\u202f") ~ "space",
-      .default = tab_1$group
+      c("\u00a0", "\u202f") ~ "space"
     )
 
   tab_1 <- tab_1[c("locale", "display_name", "group", "decimal")]

R/text_transform.R

@@ -410,7 +410,7 @@ text_case_match <- function(
 
       if (.replace == "all") {
 
-        x <- dplyr::case_match(.x = unlist(x), !!!x_list, .default = unlist(.default))
+        x <- dplyr::recode_values(x = unlist(x), !!!x_list, default = unlist(.default))
 
       } else {
 

R/utils_examples.R

@@ -283,7 +283,7 @@ write_gt_examples_qmd_files <- function(
         )
       ) |>
       dplyr::mutate(
-        group = dplyr::case_match(family,
+        group = dplyr::recode_values(family,
           1 ~ "Table creation",
           2 ~ "Creating or modifying parts of a table",
           3 ~ "Formatting column data",