bthieurmel
commented
8 years ago Hi,
Your problem is how to access to an existing chart within shiny and javascript function.
As you can see here (http://stackoverflow.com/questions/28384411/get-an-instance-of-amchart-using-id), amCharts have AmCharts.charts array with all amCharts graphics, and so we can get a chart by his id.
To simplify this, and have a simply functionnality, I've just add getAmChart() javascript function to get and then modify a chart. So now, you can use all the methods you want ! Here is a simple example with two graphics :
require(shiny)
require(rAmCharts)
require(shinyjs)
jsCode <- "shinyjs.changeType = function(params){
var chart = getAmChart(params[1]);
chart.graphs[0].type = params[0];
chart.validateNow();
}"
server <- function(input, output) {
output$myplot1 <- renderAmCharts({
##Data
data('data_bar')
##Plot
graph <- pipeR::pipeline(
amSerialChart(categoryField = 'country'),
setDataProvider(data_bar),
addGraph(balloonText = '<b>[[category]]: [[value]]</b>', type = "line", valueField = 'visits')
)
graph
})
output$myplot2 <- renderAmCharts({
##Data
data('data_bar')
##Plot
graph <- pipeR::pipeline(
amSerialChart(categoryField = 'country'),
setDataProvider(data_bar),
addGraph(balloonText = '<b>[[category]]: [[value]]</b>', type = "column", valueField = 'visits')
)
graph
})
observeEvent(input$type1, {
js$changeType(input$type1, "myplot1")
})
observeEvent(input$type2, {
js$changeType(input$type2, "myplot2")
})
}
ui <- fluidPage(
useShinyjs(),
extendShinyjs(text = jsCode),
sidebarLayout(
sidebarPanel(
selectInput("type1", "Type of graph 1 :", c("line", "column")),
selectInput("type2", "Type of graph 2 :", c("column", "line"))
),
mainPanel(amChartsOutput("myplot1"), amChartsOutput("myplot2"))
)
)
shinyApp(ui = ui, server = server)
debsush
Your package manual/documentation rAmcharts.pdf provides below language
"chartScrollbarSettings ChartScrollbar. If you change a property after the chart is initialized, you should call stockChart.validateNow() method in order for it to work. If there is no default value specified, default value of ChartScrollbar class will be used"
I would like to see the validateNow() method being triggered in an example. Usage of validateNow() and validateData() methods is probably the most important part of the package that I am missing today as I enter the final stages of my webapp development.
I have implemented it within an amChart "event" [panelRemoved event] using addListener.
The below works perfectly - I had two panels in my chart. I tried to change the chart type of the first panel stockGraph from line to column using the validateNow() method when user tries to close the second panel. I simple wanted to see if validateNow() method works and it does.
addListener('panelRemoved', 'function(event){ event.chart.panels[0].stockGraphs[0].type = "column"; event.chart.validateNow(); }')
But I really need to be able to call this method anytime based on R events and not just amCharts events. When I say R events, I am referring to say the click of an actionbutton within ui.R. Does the below work for you?
ui.R
actionbutton("samplebtn", label="Click Me"),
amChartsOutput("pic", type = NULL, width = "100%", height = "400px")
server.R
output$pic<-renderAmCharts({
stockChart<<-pipeR::pipeline( amSerialChart(dataDateFormat = 'YYYY',categoryField = 'year', startDuration = 0), setDataProvider(data.frame(year = 1990:2015, value = runif(length(1990:2015), -1, 1))), addValueAxes(axisAlpha = 0, position = 'left'), addGraph(id = 'g1', type = 'column', valueField = 'value', fillAlphas = 1), setCategoryAxis(minPeriod = 'YYYY', parseDates = TRUE), addListener('init', paste('function(event) {', 'setTimeout(function() {', ' event.chart.allLabels = [{', ' x: event.chart.marginLeftReal + 20,', ' y: event.chart.marginTopReal + 20,', ' text: "Watermark label",', ' size: 20,', ' color: "green",', ' alpha: 1', ' }];', ' event.chart.validateNow()', '}, 100)}')) )
return(plot(chart)) })
shinyjs::onclick("samplebtn", stockChart.validateNow())
Or you could Use
observeEvent(input$samplebtn,{
Change some chart property here
..... .....
Now validate the chart
stockChart.validateNow() })
Thank you for your cooperation and I am willing to bring ideas to the table,if needed, to implement it.
Thank you as always SD