addListener(.Object = amPieChart(),
name = "clickSlice" ,
expression = "function(event){ alert('ok !'); }")
addListener(.Object = amLegend(),
name = "select",
expression = paste0("function onSelect (properties) {",
"alert('selected nodes: ' + properties.nodes);",
"}"))
library(pipeR)
# For an AmChart
ls <- list(categoryAxis = list(gridPosition = "start"), test = 1)
amPieChart() %>>% setProperties(list = ls) %>>% setProperties(fontSize = 15)
Run the code above in your browser using DataLab