highcharter-issues-121.R

library(highcharter)

## Highcharts (www.highcharts.com) is a Highsoft software product

## which is not free for commercial and Governmental use

suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(purrr))


n <- 10

hc <- highchart() %>% 
  hc_add_series(data = rnorm(n), name = "s1", id = "g1") %>% 
  hc_add_series(data = rnorm(n), name = "s2", id = "g2")

hc

series <- data_frame(
  name = paste0("series", seq(1:n)),
  linkedTo = ifelse(runif(n) < 0.5, "g1", "g2"),
  data = map(1:10, rnorm, n = 10)) %>%
  list.parse3()
  
series[[1]]

## $name
## [1] "series1"
## 
## $linkedTo
## [1] "g2"
## 
## $data
##  [1]  1.52884034  1.48244841 -0.10890855 -0.96093950 -0.94348712
##  [6]  1.27727642  3.25857200  1.33605101  1.84088616  0.01373392

hc %>% 
  hc_add_series_list(series)