inst/examples/shiny/server.R

In jjallaire/dimple: Interface to dimple.js JavaScript library

library(dimple)
library(datasets)

shinyServer(function(input, output) {
  
  dataset <- reactive({
    if (input$head)
      head(cars)
    else
      cars
  })
  
  
  output$dimple <- renderDimple({
    dimple(dataset())
  })
  
})