TJ Palanca tjpalanca
djnavarro
/ nse_hell.R
Created
May 23, 2019 23:56
passing user expressions to inner functions, tidyeval and base
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # tidyeval version: tidy_outer returns | |
| # the user expression | |
| # | |
| # expr quotes you | |
| # enexpr quotes user | |
| tidy_outer <- function(x) { | |
| tidy_inner(!!rlang::enexpr(x)) | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| # data from https://www.kaggle.com/bls/american-time-use-survey | |
| df.resp <- read_csv('../data/atus/atusresp.csv') | |
| df.act <- read_csv('../data/atus/atusact.csv', col_types=cols(tustarttim = col_character(), tustoptime = col_character())) | |
| df.sum <- read_csv('../data/atus/atussum.csv') | |
| df.tmp <- df.act %>% | |
| mutate(activity = case_when(trtier2p == 1301 ~ 'Exercise', |