marcmtk

```{r}
library(tidyverse)
library(rlang)
meddle <- function(.data, ...) {
  formulas <- quos(...)
  xprs <- exprs(!!!formulas)
  vars <- map_chr(xprs, all.vars) #Extract variables from formulas
  build_cases <- function(var, formulas) { #Build case_when statements from the given formulas
    var_sym <- as.symbol(var)
    expr(case_when(!!!formulas, TRUE ~ !!var_sym))

marcmtk

```{r}
library(tidyverse)
library(rlang)
meddle <- function(.data, ...) {
  formulas <- quos(...)
  xprs <- exprs(!!!formulas)
  vars <- map_chr(xprs, all.vars) #Extract variables from formulas
  build_cases <- function(var, formulas) { #Build case_when statements from the given formulas
    var_sym <- as.symbol(var)
    expr(case_when(!!!formulas, TRUE ~ !!var_sym))

marcmtk

```{r}
library(tidyverse)
library(rlang)
meddle <- function(.data, ...) {
  formulas <- quos(...)
  xprs <- exprs(!!!formulas)
  vars <- map_chr(xprs, all.vars) #Extract variables from formulas
  build_cases <- function(var, formulas) { #Build case_when statements from the given formulas
    var_sym <- as.symbol(var)
    expr(case_when(!!!formulas, TRUE ~ !!var_sym))

marcmtk

library(tidyverse)
library(rlang)
library(stringr)
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)

marcmtk

```{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_) %>% 

marcmtk

mtcars

marcmtk

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_)

marcmtk

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_)

marcmtk

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_)

marcmtk

Keybase proof

I hereby claim:

• I am marcmtk on github.
• I am marcmtk (https://keybase.io/marcmtk) on keybase.
• I have a public key whose fingerprint is 2B8A 9CFA 4B7D 0AA6 DE25 71E3 3FF0 0B83 4959 B059

To claim this, I am signing this object: