gistfile1.txt

suppressPackageStartupMessages(library(googleVis))
library(shiny)

myChoices <- c("Central Africa", "Central America and Caribbean", "Central Asia",
               "East Africa","East Asia", "Eastern Europe",
               "Middle East", "North Africa", "North America",
               "Oceania", "South America", "South Asia",
               "South-East Asia", "Southern Africa", "West Africa", "Western Europe")


# # setwd("/Users/2015/Dropbox/Data Science/NYC Data Science Academy/Shiny/Great-Escape")
gapdata <- readRDS("data/gapdata.per.capita.Rda")