# NOT RUN {
parties <- sample(c("d", "r", "i", "g", "l"), 20, replace = TRUE)
switch_case(
parties,
"d" ~ "Democrat",
"r" ~ "Republican",
"i" ~ "Independent",
"g" ~ "Green",
"l" ~ "Libertarian"
)
parties %>%
switch_case(
"d" ~ "Democrat",
"r" ~ "Republican",
"i" ~ "Independent",
"g" ~ "Green",
"l" ~ "Libertarian"
)
parties %>%
switch_case(
"d" ~ "Democrat",
"r" ~ "Republican",
c("i", "g", "l") ~ "Other"
)
parties %>%
switch_case(
"d" ~ "Democrat",
"r" ~ "Republican",
default = "Other"
)
parties %>%
switch_case(
"d" ~ "Democrat",
"r" ~ "Republican",
preserve = FALSE
)
parties %>%
switch_case(
"d" ~ "Democrat",
"r" ~ "Republican",
preserve = TRUE
)
# }
Run the code above in your browser using DataLab