반려동물

↑맨위로 ↓맨아래

   
[멍이] 

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

[정보]
글쓴이 : 돈많이벌고싶… 날짜 : 2019-11-17 (일) 15:42 조회 : 1051 추천 : 5  

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


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






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









 [남성스타일] 컬러블록 루즈핏 맨투맨  

머리가아퍼요 2019-11-18 (월) 18:51
예쁜 포메네요 ㅋㅋ 우리 장모치와와애기들이랑 비슷해서 햇갈렸습니다
     
       
광폭강아지 2019-11-19 (화) 20:26
장모치와와 얘들은 좀 쎌쭉한 면이 있다면
아무래도 포메는 좀 까칠하죠
gosky 2019-11-21 (목) 01:32
감사합니다
명쾌한설계사 2019-11-22 (금) 16:14
아고, 표정이 아주 밝네요,^^ 사랑 많이 받은 티가 납니당~ 이뽀라 ㅎㅎ
   

반려동물  주간추천순 | 월간추천순 | 월간조회순 | 월간댓글순 | 반기추천순
 
   
번호 제목 글쓴이 날짜 추천 조회
[렌탈상담실] 직수 냉수, 정수기 (1) 렌탈상담실
117 [멍이]  내 손짓과 말투가 공격성을 칭찬했다 (1)  [정보] 친절한석이 02-25 5 283
116 [멍이]  스킨쉽을 너무 좋아해서 달려들고 점프하는데 어떡해야 하나요?  [정보] 친절한석이 02-22 4 487
115 [멍이]  본격 분노조절장애 댕댕이 인상이 아주 그냥 동네 문신 견달급  [정보] 친절한석이 02-21 4 715
114 [냥이]  고양이 모래 추천해주실거 있으신분 (11) 이미지첨부 [정보] 둘리베이베 02-19 4 489
113 [멍이]  나도 모르게 응원한 강아지의 줄당김|내 강아지의 공격성 하이라이트  [정보] 친절한석이 02-19 4 324
112 [기타]  페로솝비누 할인쿠폰 받고 싸게 구입해요. 이미지첨부 [정보] 하하하하하 02-14 2 232
111 [냥이]  앞마당 치즈~ (4) 이미지첨부 [정보] TigerCraz 02-03 8 1368
110 [멍이]  강아지 하네스 추천합니다 (7) 이미지첨부 [정보] 말라호프 01-26 8 1644
109 [동물]  (좋은일)유기견, 유기묘 기부 동참해요~ (1) 이미지첨부 [정보] 조사마 01-14 9 975
108 [냥이]  고양이 원룸에서 키워도 되나요? 나만 고양이 없어. 원룸에서 고양이 키우려는 예비집사 및 랜선집사분들은 꼭 한번쯤 들어야 할… (4)  [정보] flow91 01-06 5 1092
107 [조류]  펭귄 하나 (1) 이미지첨부 [정보] TigerCraz 12-23 7 1375
106 [동물]  분명 햄스터집만들기인데 재료가 이상? (1) 이미지첨부 [정보] 술리피 11-22 7 968
105 [멍이]  반려동물 동반 가능한 카페 찾는 방법 (4) 이미지첨부 [정보] 돈많이벌고싶… 11-17 5 1052
104 [멍이]  아임도그너 - 반려견 현혈카 캠페인 (현대자동차 협찬) 이미지첨부 [정보] 포이에마 11-02 4 687
103 [기타]  광주광역시, 2019 반려동물 한마당 축제 11월3일 개최 이미지첨부 [정보] 포이에마 10-30 5 667
102 [기타]  [질문]푸들 한마리 입양하고 싶은데요.. (5)  [정보] 매일저염식 10-25 5 646
101 [멍이]  강아지가좋아해요 (2)  [정보] 맥스아부지 10-24 4 829
100 [기타]  반려동물도 반려동물이 필요하다네요 (7) 이미지첨부 [정보] 최대8자 09-28 12 2670
99 [기타]  [신간] 반려동물을 생각한다:이학범 수의사 (2) 이미지첨부 [정보] 포이에마 09-15 7 974
98 [냥이]  치앙마이 냥이형제 카페 III (12) 이미지첨부 [정보] TigerCraz 09-15 18 1893
97 [냥이]  치앙마이 냥이형제 카페 II (3) 이미지첨부 [정보] TigerCraz 09-14 8 1058
96 [냥이]  치앙마이 냥이형제 카페 (4) 이미지첨부 [정보] TigerCraz 09-13 10 1299
95 [멍이]  입냄새 어떻게들 하시나요?? (7)  [정보] 존존스 09-11 3 1703
94 [멍이]  애완견 발 세척기.jpg (6) 이미지첨부 [정보] 뚝형 09-11 6 2207
93 [멍이]  콩이가 민증이 생겼습니다. (9) 이미지첨부 [정보] 콩이아빠라미 09-10 10 1871
92 [멍이]  댕댕이 연어사료 구매기 (3) 이미지첨부 [정보] 김원장센세 08-27 8 1634
91 [멍이]  믿기 어려운 강아지들의 특별한 능력들!! (3)  [정보] 망고소다 08-19 10 2115
90 [멍이]  [돌로박스의 건강꿀팁] 강아지도 식중독에 걸리나요?? 걸려요! (3)  [정보] 포이에마 08-13 5 697
89 [멍이]  개 아토피성 피부염 최신 치료 방법은?KSVD 학술대회 9월 8일 개최 (1) 이미지첨부 [정보] 포이에마 08-13 3 604
88 [멍이]  계곡 갈만한곳 있나요? (4)  [정보] 존존스 08-11 3 1133
 1  2  3  4