네이버 증권뉴스 05_18

News_0518 <- NULL


urls <- paste0("https://news.naver.com/main/list.naver?mode=LS2D&mid=shm&sid1=101&sid2=258")
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_0518 <- c(News_0518,text_title)
  }
  

  
df <- data.frame(News_0518)

df[,1]<- gsub("\t","",df[,1])
df[,1]<- gsub("\n","",df[,1])
df[,1]<- gsub("                                                 ","",df[,1])

df