tutorials/GaugeApp2/server.R

In garrettgman/shiny-js-tutorials: javascript widget examples for shiny web apps

shinyServer(function(input, output, session) {

  output$Gauge1 <- renderC3Gauge({
    invalidateLater(5000, session)
    val <- round(runif(1,min=0,max=100),2)
    C3Gauge(message = val)
  })
  
  output$Gauge2 <- renderC3Gauge({
    invalidateLater(5000, session)
    val <- round(runif(1,min=0,max=100),2)
    C3Gauge(message = val)
  })
  
  output$Gauge3 <- renderC3Gauge({
    invalidateLater(5000, session)
    val <- round(runif(1,min=0,max=100),2)
    C3Gauge(message = val)
  })
  
  output$Gauge4 <- renderC3Gauge({
    invalidateLater(5000, session)
    val <- round(runif(1,min=0,max=100),2)
    C3Gauge(message = val)
  })
  
  output$PieProcess <- renderC3PieChart({
    invalidateLater(5000, session)
    
    value <- data.frame(a=runif(1,0,10),b=runif(1,0,10),c=runif(1,0,10))
    C3PieChart(value = value)
  })
  
  output$PieLabel <- renderC3PieChart({
    invalidateLater(5000, session)
    value <- data.frame(a=runif(1,0,10),b=runif(1,0,10),c=runif(1,0,10))
    C3PieChart(value = value)
  })
  
  output$PieProduct <- renderC3PieChart({
    invalidateLater(5000, session)
    value <- data.frame(a=runif(1,0,10),b=runif(1,0,10),c=runif(1,0,10))
    C3PieChart(value = value)
  })
  
  output$PieBranch <- renderC3PieChart({
    invalidateLater(5000, session)
    value <- data.frame(a=runif(1,0,10),b=runif(1,0,10),c=runif(1,0,10))
    C3PieChart(value = value)
  })
  
})