library(httr)
library(rvest)
library(stringr)
# 게시판 URL
list.url = 'http://m.cafe.naver.com/ArticleList.nhn?search.boardtype=L&search.menuid=142&search.questionTab=A&search.clubid=19773565&search.totalCount=201&search.page=1'
res <- html(list.url)
html_nodes(res, 'ul.lst4 li a')
## [[1]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=317&articleid=57735&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 리얼시팅 방문체험 시범 서비스 기념 스틸케이스, 오카무라 할인 이벤트
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Manager...</span>
## <span class="bar">|</span>2015.07.09.
## <span class="bar">|</span> 조회 689
## </span>
## </p>
## </a>
##
## [[2]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|57735|7|317)">
## <span class="num_box"><span class="hc">덧글 수</span>7</span>
## </a>
##
## [[3]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57671&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 리얼시팅 방문체험서비스 전국 시범운영 이벤트
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">RealSea...</span>
## <span class="bar">|</span>2015.07.07.
## <span class="bar">|</span> 조회 396
## </span>
## </p>
## </a>
##
## [[4]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|57671|10|1)">
## <span class="num_box"><span class="hc">덧글 수</span>10</span>
## </a>
##
## [[5]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57567&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 퍼시스, 시디즈, 파트라, 듀오백 최저가 문의 게시판 오픈!
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Manager...</span>
## <span class="bar">|</span>2015.07.02.
## <span class="bar">|</span> 조회 698
## </span>
## </p>
## </a>
##
## [[6]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|57567|6|1)">
## <span class="num_box"><span class="hc">덧글 수</span>6</span>
## </a>
##
## [[7]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=57378&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 오카무라 콘테사체어 조립방법 안내
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Manager...</span>
## <span class="bar">|</span>2015.06.24.
## <span class="bar">|</span> 조회 310
## </span>
## </p>
## </a>
##
## [[8]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57023&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## [필독] 의사모 중고 장터 이용방법 변경 예고안내
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Manager...</span>
## <span class="bar">|</span>2015.06.08.
## <span class="bar">|</span> 조회 104
## </span>
## </p>
## </a>
##
## [[9]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=56885&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 스틸케이스 제스쳐 체어 옵션 선택 가이드
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">RealSea...</span>
## <span class="bar">|</span>2015.05.31.
## <span class="bar">|</span> 조회 215
## </span>
## </p>
## </a>
##
## [[10]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=56857&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 오카무라 콘테사 체어 옵션 선택 가이드
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">RealSea...</span>
## <span class="bar">|</span>2015.05.29.
## <span class="bar">|</span> 조회 267
## </span>
## </p>
## </a>
##
## [[11]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=143&articleid=48237&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 의자를 사용하는 사람들의 건강체조
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Manager...</span>
## <span class="bar">|</span>2014.06.09.
## <span class="bar">|</span> 조회 856
## </span>
## </p>
## </a>
##
## [[12]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|48237|8|143)">
## <span class="num_box"><span class="hc">덧글 수</span>8</span>
## </a>
##
## [[13]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=9&articleid=19901&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 의사모 카페 가입 및 강제탈퇴에 관하여 알려드립니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">더블P</span>
## <span class="bar">|</span>2012.01.18.
## <span class="bar">|</span> 조회 1268
## </span>
## </p>
## </a>
##
## [[14]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|19901|25|9)">
## <span class="num_box"><span class="hc">덧글 수</span>25</span>
## </a>
##
## [[15]]
## <a href="/ArticleRead.nhn?clubid=19773565&menuid=9&articleid=871&page=1&boardtype=L">
## <p>
## <strong>
## <span class="ic_noti">공지</span>
##
##
##
##
##
##
##
##
##
## 등업기준 및 열람기준
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">오늘도...</span>
## <span class="bar">|</span>2010.08.12.
## <span class="bar">|</span> 조회 11484
## </span>
## </p>
## </a>
##
## [[16]]
## <a href="#" class="cmt_num _click(ArticleList|CommentCountWithMenuid|19773565|871|274|9)">
## <span class="num_box"><span class="hc">덧글 수</span>274</span>
## </a>
##
## [[17]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57975&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57975', '1')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">jason99</span>
## <span class="bar">|</span> 13:50
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[18]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57973&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57973', '2')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청합니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">골프하...</span>
## <span class="bar">|</span> 12:24
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[19]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57969&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57969', '3')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 이젠 사고 싶습니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">zhuxian</span>
## <span class="bar">|</span> 06:36
## <span class="bar">|</span> 조회 4
## </span>
## </p>
## </a>
##
## [[20]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57968&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57968', '4')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업 요청합니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">루시엘r</span>
## <span class="bar">|</span> 02:15
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[21]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57966&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57966', '5')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업 요청 드립니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">kkdowni...</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[22]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57964&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57964', '6')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청드립니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">요리콩</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[23]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57962&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57962', '7')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업 부탁 드림
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">돈토코...</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 1
## </span>
## </p>
## </a>
##
## [[24]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57960&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57960', '8')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업부탁드립니다~
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <span class="ic_new">New</span>
## <br/><span class="info">
## <span class="ty">raum</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 2
## </span>
## </p>
## </a>
##
## [[25]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57952&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57952', '9')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청 드립니다~
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">ij</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[26]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57950&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57950', '10')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청합니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">ㅋㄷㅋ...</span>
## <span class="bar">|</span> 2015.07.20.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[27]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57943&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57943', '11')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업부탁드려요
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">로엔그...</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 2
## </span>
## </p>
## </a>
##
## [[28]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57941&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57941', '12')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업부탁드려요
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">룸바라...</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 1
## </span>
## </p>
## </a>
##
## [[29]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57939&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57939', '13')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청합니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">그라시...</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 1
## </span>
## </p>
## </a>
##
## [[30]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57936&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57936', '14')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업 요청드립니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">가을비</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 2
## </span>
## </p>
## </a>
##
## [[31]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57934&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57934', '15')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">BANJIN</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[32]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57932&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57932', '16')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업 요청드립니다
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">허리는...</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 2
## </span>
## </p>
## </a>
##
## [[33]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57923&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57923', '17')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청드립니다~
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">위너스</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[34]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57920&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57920', '18')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 등업요청 부탁드립니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">Winterf...</span>
## <span class="bar">|</span> 2015.07.19.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## [[35]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57919&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57919', '19')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 안녕하세요 등업요청합니다.
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">검기무</span>
## <span class="bar">|</span> 2015.07.18.
## <span class="bar">|</span> 조회 1
## </span>
## </p>
## </a>
##
## [[36]]
## <a href="/ArticleRead.nhn?clubid=19773565&articleid=57914&page=1&boardtype=L&menuid=142" onclick="nclk(this, 'cfl.list', '57914', '20')">
##
##
## <p>
## <strong>
##
##
##
##
##
##
##
##
##
## 안녕하세요
## </strong>
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## <br/><span class="info">
## <span class="ty">프로시...</span>
## <span class="bar">|</span> 2015.07.18.
## <span class="bar">|</span> 조회 0
## </span>
## </p>
## </a>
##
## attr(,"class")
## [1] "XMLNodeSet"
# 검색 페이지에서 게시물을 클릭한 것처럼 보이도록
referer = add_headers(Referer='https://m.search.naver.com/search.naver?query=1')
# 제목과 본문을 저장할 벡터
titles = c()
contents = c()
# 게시판 1~2페이지 크롤링
for(i in 1:2){
url = modify_url(list.url, query=list(search.page=i)) # 게시판 URL에서 페이지를 변경
h.list = html(url) # 게시물 목록을 가져옴
# 게시물 링크 추출
title.links = html_nodes(h.list, 'ul.lst4 li a')
article.links = html_attr(title.links, 'href')
for(link in article.links){
if(link != '#'){
link = paste0('http://m.cafe.naver.com', link) # 게시물 주소 앞에 네이버 주소를 붙임
h = html(GET(link, referer)) # 게시물을 가져옴
# 제목
title = html_text(html_nodes(h, 'div.post_tit h2'))
titles = c(titles, title)
# 내용
content = str_trim(html_text(html_nodes(h, 'div#postContent')))
contents = c(contents, content)
print(link)
}
}
}
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=317&articleid=57735&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57671&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57567&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=57378&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=1&articleid=57023&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=56885&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=212&articleid=56857&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=143&articleid=48237&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=9&articleid=19901&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&menuid=9&articleid=871&page=1&boardtype=L"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57975&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57973&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57969&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57968&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57966&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57964&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57962&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57960&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57952&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57950&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57943&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57941&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57939&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57936&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57934&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57932&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57923&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57920&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57919&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57914&page=1&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57912&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57910&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57908&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57905&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57904&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57902&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57900&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57897&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57894&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57888&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57886&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57883&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57881&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57879&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57876&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57874&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57871&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57870&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57868&page=2&boardtype=L&menuid=142"
## [1] "http://m.cafe.naver.com/ArticleRead.nhn?clubid=19773565&articleid=57866&page=2&boardtype=L&menuid=142"
# 결과 저장
result <- data.frame(titles, contents)
write.table(result, 'naver.csv', sep=',')