# NOT RUN {
library(viridisLite)
cols <- viridis(3)
cols <- substr(cols, 0, 7)
highchart() %>%
hc_add_series(data = sample(1:12)) %>%
hc_add_series(data = sample(1:12) + 10) %>%
hc_add_series(data = sample(1:12) + 20) %>%
hc_colors(cols)
# }
Run the code above in your browser using DataLab