Skip to menu

  page_url <- "http://www.yes24.com/24/category/bestseller?CategoryNumber=001&sumgb=09&year=2019&month=1&PageNumber=1"

  

  book_page <- read_html(page_url)


  

  # title

  book_title <- book_page %>%

    html_nodes("td.goodsTxtInfo > p > a") %>%

    html_text()

  

  message(book_title)}



을 하니

고요할수록 밝아지는 것들112개고마워, 우리 함께했던 모든 순간들 (한정특전 B_투명북마크 11종 세트)9개12가지 인생의 법칙123개꽃을 보듯 너를 본다116개트렌드 코리아 201981개곰돌이 푸, 행복한 일은 매일 있어 228개아가씨와 밤79개추리 천재 엉덩이 탐정 780개걷는 사람, 하정우116개골든아워 1142개역사의 역사212개나는 나로 살기로 했다264개당신이 옳다191개리밸런싱15개하마터면 열심히 살 뻔했다168개골든아워 267개다산의 마지막 공부49개언어의 온도440개수미네 반찬68개열두 발자국221개

가 뜹니다. 저기서 ____개를 빼고 싶은데 해당 html node가 책 제목부분 node와 같습니다 어떻게 해결할 수 있을까요?