climatechange.r

install_github("ropengov/rsunlight")
library("ropengov")

dream <- lapply(c('D','R'), function(x) cw_timeseries(phrase='climate change', party=x, 
                                                      granularity='month'))
df <- merge(dream[[1]], dream[[2]], by='month', all=TRUE)
df[is.na(df)] <- 0
names(df) <- c('date','D','R')
df$date <- as.character(df$date)

library(rCharts)
m1 <- mPlot(x = "date", y = c("D", "R"), type = "Line", data = df)
m1$set(pointSize = 0, lineWidth = 1)
m1
m1$publish("My Chart", host = 'rpubs') # publish to rpubs