ニコニコ動画コメント等データから、動画コメントを取り出す例 http://www.nii.ac.jp/cscenter/idr/nico/nico-apply.html

gistfile1.r

# 動画コメントを取り出す例


#install.packages("rjson")
library("rjson")
json_file <- "/ファイルの場所/sm57.dat"

thread<-file(json_file,"r")

for(i in 1:10000000){
  line <- readLines(con=thread,1)
	json_data <- fromJSON(line)
	print(json_data$comment)
}