library(googleVis)
library(knitr)
library(markdown)

op <- options(gvis.plot.tag='chart')
#Return options to the original setting
#options(op)

data_path <- 'data/'
df <- read.csv(paste0(data_path,'newRD.csv'), header = T)
world <- df[which(df$region != ""),]