Google Play Comment Scraper

library(RJSONIO)
library(rvest)
library(RCurl)
result <- c()
for(i in 1:3){
  print(i)
  data <- postForm("https://play.google.com/store/getreviews?authuser=0",
                   reviewType = "0",
                   pageNum = i,
                   id = "com.garena.game.kgtw",
                   reviewSortOrder = "4",
                   xhr = "1",
                   token = "ow4xLEVhiBH_o5lzyRTQ5UxOuJE:1439703309614",
                   hl = "zh-TW"
                   ,.opts = list(ssl.verifypeer = FALSE),.encoding="UTF-8")


  data <- fromJSON(substr(data,7,nchar(data)), encoding="UTF-8")
  data <- read_html(data[[1]][[3]],encoding="utf8")
  data <- html_nodes(data, xpath="//div[@class='review-body with-review-wrapper']") %>% html_text
  data <- gsub("完整評論| ","",data)
  result <- c(result, data)
}