![](https://velog.velcdn.com/images/xowen96/post/a41b7221-b8d1-45ee-a528-82452e646053/image.png)
![](https://velog.velcdn.com/images/xowen96/post/23ee4b5e-cc0f-4dea-9840-ac0c9d76bae3/image.png)
![](https://velog.velcdn.com/images/xowen96/post/8cb3a62a-4f33-43a2-a86a-c0011b4b7c1f/image.png)
News_0608 <- NULL
for (pageNo in 1:10) {
urls <- paste0("https://news.naver.com/main/list.naver?mode=LS2D&mid=shm&sid2=258&sid1=101&date=20220608&page=",pageNo)
html_source <- read_html(urls)
for (i in 1:20) {
T.selector <- paste0("#main_content > div.list_body.newsflash_body > ul.type06_headline > li:nth-child(",i,") > dl > dt:nth-child(2) > a")
title_nodes <- html_nodes(html_source,T.selector)
text_title <- html_text(title_nodes)
News_0608 <- c(News_0608,text_title)
}
}
df <- data.frame(News_0608)
df[,1]<- gsub("\t","",df[,1])
df[,1]<- gsub("\n","",df[,1])
df[,1]<- gsub(" ","",df[,1])
df