inst/examples/test/server.R

In jcheng5/googleCharts: Google Charts bindings for Shiny

library(googleCharts)

maxValue <- 4

shinyServer(function(input, output, session) {

  rnd <- reactive({
    invalidateLater(4000, session)

    len <- 10
    data.frame(
      x = 1:len,
      y = runif(len, min = 0, max = maxValue),
      z = runif(len, min = 0, max = maxValue)
    )
  })
  
  output$chart <- reactive({
    list(
      data = googleDataTable(
        rnd()
      ),
      options = list(
        animation = list(
          duration=400,
          easing='inAndOut'
        ),
        vAxis = list(
          maxValue = maxValue
        )
      )
    )
  })
  
  output$gauge <- reactive({
    invalidateLater(1000, session)
    list(
      data = googleDataTable(
        data.frame(
          Temperature = I(runif(1, min=0, max=100)),
          Pressure = I(runif(1, min=0, max=100))
        )
      )
    )
  })

  output$selected <- reactive({
    if (is.null(input$chart_selection))
      return(NULL)
    
    isolate({
      # Indices are 0-based in Google parlance, but 1-based in R
      rownum <- input$chart_selection[['row']] + 1
      colnum <- input$chart_selection[['column']] + 1
      
      data <- rnd()
      row <- data[rownum,]
      colname <- names(data)[[colnum]]
      df <- data.frame(x = row$x)
      df[[colname]] <- row[1,colname]
      list(data = googleDataTable(df))
    })
  })

  output$sankey <- reactive({
    list(
      data = googleDataTable(
        data.frame(
          From = c('Brazil', 'Brazil', 'Brazil', 'Brazil'),
          To = c('Portugal', 'France', 'Spain', 'England'),
          Weight = c(5, 1, 1, 1)
        )
      )
    )
  })
})