library(rjson) library(RCurl) library(tm) library(SnowballC)

j_file2 <-dir(pattern="json") datas = lapply(j_file2, read.table, header=TRUE) finalData = do.call(rbind, datas)

Read a json file to workspace

talk_creativ<-fromJSON(file=j_file2, method="C") str(talk_creativ)

---->>>4개의 json파일을 하나로 합쳐 읽으려고 dir(pattern="json")을 써서 json파일들을 다불러온다음 datas = lapply(j_file2, read.table, header=TRUE) finalData = do.call(rbind, datas) 을 사용해서 하나로 합쳐주었습니다.

그런데 밑에서부터 이제 작업을 시작하려고 github에서 공유 소스코드를 받아서 작성하고 있었는데 talk_creativ<-fromJSON(file=j_file2, method="C") 이코드에서 Error in file(con, "r") : invalid 'description' argument 라는 에러가 떴는데 왜 뜨는지 도저히 구글링을 해봐도 모르겠습니다. 혹시 아시는분이 있으시다면 설명해주시면 감사하겠습니다.