fn <- "function(){
console.log('Category: ' + this.category);
alert('Category: ' + this.category);
}"
hc <- highcharts_demo() %>%
hc_plotOptions(
series = list(
cursor = "pointer",
point = list(
events = list(
click = JS(fn)
)
)
)
)
Run the code above in your browser using DataLab