googleCharts in Shiny

server.R

library(googleCharts)
library(googleVis)
library(shiny)


shinyServer(function(input, output, session) {
  

  # this works
  output$scatter1 <- reactive({
    names(women) #[1] "height" "weight"
    list(
      data = googleDataTable(
        women
      )
    )
    
  })
  
  # correct column reference required
  output$scatter2 <- reactive({
    age <- c(20:34)
   women <- cbind(women,age)
    names(women) #[1] "height" "weight" "age"
    list(
      data = googleDataTable(
        women
      )
    )
    
  })
  

})

ui.R

shinyUI(basicPage(
  googleChartsInit(),
  googleScatterChart('scatter1', width='350px', height='300px'),
  googleScatterChart('scatter2', width='350px', height='300px')
  
))