perf: Replace superseded dplyr::recode()

[mgirlich]

Using superseded functions harms the performance quite a bit.
I noticed this when removing tables via dm::dm_select_tbl(dm, -any_of(tables_to_remove)).

data <- nycflights_subset()
flights <- data$flights
weather <- data$weather
airlines <- data$airlines
airports <- data$airports
planes <- data$planes

dm <- dm(airlines, airports, flights, planes, weather)

remove_tables <- function() {
  dm %>% 
    dm_select_tbl(-airlines) %>% 
    dm_select_tbl(-airports) %>% 
    dm_select_tbl(-flights) %>% 
    dm_select_tbl(-planes) %>% 
    dm_select_tbl(-weather)
}

bench::mark(
  remove_tables()
)

# Before
# # A tibble: 1 × 13
#   expression     min median `itr/sec` mem_alloc `gc/sec` n_itr
#   <bch:expr>  <bch:> <bch:>     <dbl> <bch:byt>    <dbl> <int>
# 1 remove_tab… 52.5ms 58.2ms      16.7    1.35MB     13.4     5

# After
# # A tibble: 1 × 13
#   expression     min median `itr/sec` mem_alloc `gc/sec` n_itr
#   <bch:expr>  <bch:> <bch:>     <dbl> <bch:byt>    <dbl> <int>
# 1 remove_tab… 15.8ms 17.3ms      55.2    55.3KB     12.6    22

[krlmlr]

Thanks!