# NOT RUN {
library(dplyr)
dm_draw(dm_nycflights13())
dm_draw(dm_nycflights13(cycle = TRUE))
dm_get_available_colors()
dm_get_colors(dm_nycflights13())
dm_nycflights13(color = FALSE) %>%
dm_set_colors(
darkblue = starts_with("air"),
"#5986C4" = flights
) %>%
dm_draw()
# Splicing is supported:
nyc_cols <- dm_get_colors(dm_nycflights13())
nyc_cols
dm_nycflights13(color = FALSE) %>%
dm_set_colors(!!!nyc_cols) %>%
dm_draw()
# }
Run the code above in your browser using DataLab