Closed jpmarindiaz closed 4 years ago
l <- purrr::map(1:nrow(d), function(z){ data$data[[z]] <<- list("name" = d$a[z], "y" = as.numeric(d$b[z]), "color" = as.character(d$..colors[z])) })