내 주변 카페리스트 수집하기

keyword_list<-c("신촌 카페","이태원 카페")

for(i in 1:length(keyword_list)){
x<-keyword_list[i]
keyword<-iconv(x,from="CP949",to="UTF-8")
keyword2<-URLencode(keyword)

url<-paste0("https://m.map.naver.com/search2/searchMore.nhn?query=",keyword2,"&sm=clk&style=v5&page=1&displayCount=75&type=SITE_1")
b<-readLines(url,encoding="UTF-8")
head(b)
length(b)
b<-paste(b,collapse = " ")

library(RJSONIO)
b2<-fromJSON(b)
# b2$result$site$list[[1]]$name
# b2$result$site$list[[1]]$id
# b2$result$site$list[[1]]$x
# b2$result$site$list[[1]]$y
# b2$result$site$list[[1]]$address

name<-sapply(b2$result$site$list,function(x){x$name})
id<-sapply(b2$result$site$list,function(x){x$id})
x<-sapply(b2$result$site$list,function(x){x$x})
y<-sapply(b2$result$site$list,function(x){x$y})
addr<-sapply(b2$result$site$list,function(x){x$address})

data<-cbind(name,id,x,y,addr)
cat("\n",keyword,"완료")
write.csv(data,paste0(keyword,".csv"),row.names = F)
}