[Scraping]알라딘 별점

R에서는 rvest패키지를 통해 손쉽게 크롤링을 수행할 수 있다. 아래는 키워드에 따라 알라딘의 별점을 크롤링하는 코드이다.  

library(rvest)
keworad='작별인사'
keworad=URLencode(iconv(keworad,to='UTF-8'))
h1=read_html(
  paste0(
    'https://www.aladin.co.kr/search/wsearchresult.aspx?SearchTarget=Book&KeyWord=',keworad,"&KeyRecentPublish=0&OutStock=0&ViewType=Detail&CustReviewCount=0&CustReviewRank=0&KeyFullWord=","&x=0&y=0"))
doc=h1%>%html_nodes('a.bo3')
url=doc%>%html_attr('href')
h2=read_html(url[1])
h%>%html_nodes("[class='Ere_sub_pink Ere_fs16 Ere_str']")%>%html_text()