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