file46e04fad6311.R

```{r}
library(tidyverse)
library(rlang)
replace_value <- function(.data, var, from, to) {
  var <- enquo(var)
  mutate(.data, !!quo_name(var) := if_else(UQ(var) == from, to, !!var))
}
mtcars %>% 
  replace_value(gear, 4, 8) %>% 
  replace_value(vs, 0, NA_real_) %>% 
  head()

```