install.packages(“rvest”)
# 패키지 불러오기
library(rvest)## Warning: package 'rvest' was built under R version 3.4.2## Loading required package: xml2# *네이버 주소 저장*
url3 <- "https://search.naver.com/search.naver?&where=news&query=%EC%9D%B4%EC%8A%B9%ED%99%98&sm=tab_pge&sort=0&photo=0&field=0&reporter_article=&pd=0&ds=&de=&docid=&nso=so:r,p:all,a:all&mynews=0&cluster_rank=49&start="
# *세부 주소를 설정 위한*
a <- seq(11,21,10)
# *for문을 이용한 추출*
for(i in a) {
url4 <- paste0(url3, i)
ex2 <- read_html(url4)
ex3 <- html_nodes(ex2,"dt a")
ex4 <- html_text(ex3)
print(ex4)
}## [1] "도움말"
## [2] "‘1%의우정’ 주진우 “절친 이승환보다 레드벨벳”"
## [3] "박신혜, 이승환과 찰칵 “공연의 신 이승환, 멋지십니다”"
## [4] "‘1%의 우정’ 공통점 없던 김희철X주진우, 친구가 되다 [종합]"
## [5] "'그린플러그드 2018' 2차 라인업 공개…YB·이승환·프롬·코인·자이언티 등..."
## [6] "이승환→자이언티, ‘그린플러그드 서울’ 2차 라인업 공개"
## [7] "숨은 명곡을 부르다..이승환 2018 ‘ONLY BALLAD’ 콘서트 열어"
## [8] "'1%의 우정' 주진우, 벤츠 타고 다닌 이유는? 이승환이 '쿨'하게 교환"
## [9] "증평군4-H연합회 이승환 충북연합회장에 취임"
## [10] "제54대 충청북도4-H연합회장 이승환씨 취임"
## [11] "증평군4-H연합회 이승환씨, 충북4-H연합회 회장 취임"
## [1] "도움말"
## [2] "주진우, 이승환과 훈훈한 브로맨스 사진 보아하니?"
## [3] "[문화파일] 네이버 열린연단, 이승환 고려대 교수 '자율과 타율: 근대 사회의..."
## [4] "'1%의 우정' 주진우 기자 \"전화 때문에 극장도 못 가, 이승환 집에서 영화 봐..."
## [5] "[KBL 2차 D리그] '17점 7어시스트' 이승환, \"1군 가려면 더 노력해야\""
## [6] "[D리그] ‘깜짝 활약’보인 이승환 “내 실력 아직 반밖에 못 보여줘”"
## [7] "[JB포토] 이승환 '빠른 발을 통해 올리는 레이업'"
## [8] "[JB포토] 이승환 '오늘만큼은 허용안해'"
## [9] "'최파타' E.O.S \"유희열·이승환 너무 고맙다..밥 열 끼 사드려야\""
## [10] "인사말 하는 이승환 회장"
## [11] "\"그러다 죽는다\" 삼성 저격수 주진우가 받은 섬뜩한 협박 메시지"