library(gtrendsR)
user <- "<Google account email>"
psw <- "<Google account password>"
gconnect(usr, psw) 
lang_trend <- gtrends(c("data is", "data are"), res="week")
plot(lang_trend)

--http://www.r-bloggers.com/modeling-and-solving-linear-programming-with-r-free-book/