shinyServer(function(input, output) {
  
  # use the new renderGvis
  output$gvMotion <- renderGvis({
 
    # subset by season
    dat <- subset(tableByGame,Season==input$season1)
       
    # set initial conditions
    initState <- ' 
{"iconKeySettings":[{"trailStart":"1901","key":{"dim0":"Man. Utd."}},
    {"trailStart":"1901","key":{"dim0":"West Brom"}},{"trailStart":"1901",
    "key":{"dim0":"Liverpool"}}],"orderedByX":false,"yZoomedDataMin":-20,
    "yZoomedDataMax":-1,"dimensions":{"iconDimensions":["dim0"]},
    "showTrails":true,"time":"1901","yLambda":1,"xAxisOption":"2",
    "nonSelectedAlpha":0.1,"xZoomedDataMin":1,"yZoomedIn":false,
    "playDuration":30000,"xZoomedIn":false,"iconType":"BUBBLE",
    "xLambda":1,"colorOption":"_UNIQUE_COLOR","sizeOption":"7",
    "duration":{"timeUnit":"Y","multiplier":1},"xZoomedDataMax":27,
    "uniColorForNonSelected":false,"yAxisOption":"3","orderedByY":false}'
    # produce chart
    gvisMotionChart(dat, idvar="Team", timevar="Games",xvar="Pl", yvar="Position", options=list(state=initState))         
  })
  
})