반려동물 동반 가능한 카페 찾는 방법

음질 안좋은 점 죄송합니다 ㅠㅠㅠ

바쁘신분들 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]

그리고 우리 콩이 이뻐해주고 가세요...ㅋㅋㅋㅋㅋㅋ