RからGoogle Trendsを呼び出す方法（日本国内）

＃『R 3.2.0』からGoogle Trendsを呼び出すには、RGoogleTrendsを使えば良い、という記述がRjpWikiにありますが、平成27年5月現在、日本国内では動作しません。タイムアウトしてしまいます。そこで、Christoph Riedl氏のウェブサイトに掲載されているスクリプトにひと工夫加えるのが、現状では、最善の方法だと思います。許諾を取っていませんので、変更箇所のみ示します。

1. 日本国内のGoogle TrendsのURLは、"http://www.google.co.jp/trends/"です。このため、合計2カ所、変更すべき箇所があります。
1. gLogin関数内のpostForm関数中の引数を"http://www.google.co.jp/trends/"とする。
2. 最後のgetForm関数中の引数を"http://www.google.co.jp/trends/trendsReport?"とする。
2. 最後のgetForm関数に渡す検索語の文字コードは、UTF-8でないといけません。現時点ではWindows版でしか確認していませんが、次のスニペットのように変換すると、うまく動きます。getForm関数の引数urlは、上で指摘したように変更済みです。

searchWords <- c("冷やし中華", "担々麺")
searchWords <- enc2utf8(paste(searchWords, collapse=","))
res <- getForm("http://www.google.co.jp/trends/trendsReport?",
               curl = ch,
               .params = c(q = searchWords,
                           hl = "ja",
                           cmpt = "q",
                           content = 1,
                           export = 1))

これらを用いて、別の記事では、Google Trendsにおける検索語の推移を見てみることにします。