Test shiny with googleVis

server.R

## Diego de Castillo, Markus Gesmann, February 2013
require(shiny)
require(googleVis)

shinyServer(function(input, output) {
  myCities <- reactive({
     input$Cities
  })
  
  output$gvis <- renderGvis({   
     myData <- head(CityPopularity, myCities())
     gvisPieChart(myData)  
  })
})

ui.R

require(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Example 2: pie chart"),
  sidebarPanel(
    numericInput("Cities","Number of cities:", 2)
  ),
  mainPanel(
    htmlOutput("gvis")
    )
  )
)