음질 안좋은 점 죄송합니다 ㅠㅠㅠ
바쁘신분들 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]
그리고 우리 콩이 이뻐해주고 가세요...ㅋㅋㅋㅋㅋㅋ
(야구)
고교야구에서 나온 쿠션 홈런 ㅋㅋㅋ
(11)
반려동물 월간 추천 
