gistfile1.txt

  server = function(input, output, session) {
    
   target_gapdata <- reactive({
    a <- subset(gapdata, gapdata$Sub.Region %in% input$Sub.Region)
    a <- droplevels(a)
    return(a)
  })

    
  output$motionchart <- renderGvis({

        target_gapdata <- target_gapdata()

        return (gvisMotionChart(target_gapdata, 
                            idvar="Country",
                            colorvar="Sub.Region",
                            timevar="Years",
                            xvar="GDP.per.capita",
                            yvar="Life.Expectancy",
                            sizevar="Population",
                            date.format="%Y", 
                            options=list(state='
                                         {"yAxisOption":"4","yLambda":1,"nonSelectedAlpha":0.4,"colorOption":"9","showTrails":true,"xZoomedDataMin":240.3630688,"xAxisOption":"2","yZoomedIn":false,"orderedByX":false,"sizeOption":"5","dimensions":{"iconDimensions":["dim0"]},"playDuration":15000,"time":"1800","uniColorForNonSelected":false,"iconKeySettings":[],"xZoomedDataMax":184563.1049,"duration":{"multiplier":1,"timeUnit":"Y"},"iconType":"BUBBLE","orderedByY":false,"yZoomedDataMax":83.58,"yZoomedDataMin":6,"xZoomedIn":false,"xLambda":0}
                                         ')
                            ))
  })
  }