library(magrittr)
x <- data.frame(RACE = factor(1))
x %<>% modify(RACE, label = 'race', guide = list(white = 0, black = 1, asian = 2))
x %>% decorations
x %>% explicit_guide %>% decorations
x %>% explicit_guide %>% implicit_guide %>% decorations
x %>% explicit_guide(simplify = FALSE) %>% decorations
x %>% explicit_guide(simplify = FALSE) %>% implicit_guide %>% decorations
x %<>% explicit_guide
a <- x$RACE
str(a)
str(a %>% implicit_guide)
Run the code above in your browser using DataLab