À½Áú ¾ÈÁÁÀº Á¡ Á˼ÛÇÕ´Ï´Ù ¤Ð¤Ð¤Ð
¹Ù»Ú½ÅºÐµé 30ºÐ 30ÃʺÎÅÍ º¸½Ã¸é µË´Ï´Ù. (À½Áú ±¸¸°Á¡ Á˼ÛÇÕ´Ï´Ù¤Ð.¤Ð¤Ð ºñ½Ñ¸¶ÀÌÅ©Àε¥ ÀâÀ½ÀÌ ¼¯ÀÌ³×¿ä ¤Ð¤Ð)
°£´Ü Á¤¸®
## https://www.r-project.org/ r¼³Ä¡
## https://rstudio.com / rstudio ¼³Ä¡
# install.packages("stringr") ## ÆÐÅ°Áö ¼³Ä¡ (# Áö¿ì°í ctrl+enter)
# install.packages("RJSONIO")
# Å°¿öµå ÀÔ·Â
# ¼Ò½ºÄÚµå ½ÇÇà (ctrl+enter)
## https://www.r-project.org/ r¼³Ä¡
## https://rstudio.com / rstudio ¼³Ä¡
# install.packages("stringr") ## ÆÐÅ°Áö ¼³Ä¡
# install.packages("RJSONIO")
library(stringr)
library(RJSONIO)
keyword<-"±îÄ¡»ê¿ª Ä«Æä" ## ÇØ´ç Áö¿ª + Ä«Æä Å°¿öµå·Î ³Ö±â
keyword<-iconv(keyword,from="cp949",to="UTF-8")
ek<-URLencode(keyword)
url<-paste0("https://m.map.naver.com/search2/searchMore.nhn?query=",ek,"&sm=clk&page=",1,"&displayCount=1000&type=SITE_1")
b<-readLines(url, encoding="UTF-8")
b2<-paste0(b,collapse = " ")
b3<-fromJSON(b2)
b3$result$site$list[[1]]$id
b3$result$site$list[[2]]$id
id<-sapply(b3$result$site$list,function(x){x$id})
name<-sapply(b3$result$site$list,function(x){x$name})
id2<-str_sub(id,2)
url2<-paste("https://m.place.naver.com/restaurant/",str_trim(id2))
url3<-gsub(" ","",url2)
url3
i<-1
final<-c()
for(i in 54:length(url3)){ ### ¿¡·¯ ³¯¼öµµ ÀÖÀ½
b<- readLines(url3[i],encoding="UTF-8")
length(b)
final[i]<-sum(str_detect(b,"¹Ý·Áµ¿¹°"))
cat("\n",i)
Sys.sleep(1)
}
url3[final>0]
name[final>0]
±×¸®°í ¿ì¸® ÄáÀÌ ÀÌ»µÇØÁÖ°í °¡¼¼¿ä...¤»¤»¤»¤»¤»¤»