# NOT RUN {
ds <- lapply(seq(5), function(x) {
list(data = cumsum(rnorm(100, 2, 5)), name = x)
})
highchart() %>%
hc_plotOptions(series = list(marker = list(enabled = FALSE))) %>%
hc_add_series_list(ds)
# }
Run the code above in your browser using DataLab