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:
```{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)) |
```{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)) |
```{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)) |
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) |
```{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_) %>% |
mtcars |
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_) |
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_) |
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_) |
I hereby claim:
To claim this, I am signing this object: