R로 크롤링하려고 하는데요. allreview에 비었다고 뜨고, 크롤링 저장되어 있는 csv저장하면 값이 없어요.

base_url='https://news.naver.com/main/list.nhn?mode=LSD&mid=sec&listType=title&sid1=101&page=' allreviews=c()

for명령문

for(page in 1:200){ print(page) url=paste(base_url, page, sep='') r=GET(url)

h=read_html(r)

comment_area=html_nodes(h, 'allreviews')

comments=html_nodes(comment_area, '.nclicks')

reviews=html_text(comments)

if(length(reviews)==0){break}

allreviews=c(allreviews, reviews)

}

write.csv(allreviews, 'reviews.csv')