diff --git a/DESCRIPTION b/DESCRIPTION index 061d4023f..252604e31 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -34,7 +34,7 @@ Imports: cli (>= 3.6.0), DBI (>= 1.1.0), digest (>= 0.6.27), - dplyr (>= 1.1.0), + dplyr (>= 1.2.0), dbplyr (>= 2.3.0), fs (>= 1.6.0), glue (>= 1.6.2), diff --git a/R/utils-specifications.R b/R/utils-specifications.R index 758e8a9db..17623708c 100644 --- a/R/utils-specifications.R +++ b/R/utils-specifications.R @@ -300,7 +300,7 @@ check_vin_db <- function(table, dplyr::across( .cols = dplyr::matches("pb_vin_[0-9]{3}_"), function(x) { - dplyr::case_match(x, + dplyr::replace_values(x, c("a", "j") ~ "1", c("b", "k", "s") ~ "2", c("c", "l", "t") ~ "3", @@ -310,8 +310,7 @@ check_vin_db <- function(table, c("g", "p", "x") ~ "7", c("h", "y") ~ "8", c("r", "z") ~ "9", - c("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") ~ "100000", - .default = x + c("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") ~ "100000" ) }), pb_vin_chk_ = pb_vin_009_,