draft/getCham.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getCham <- function(){
  ##夏慕尼
  url="http://www.chamonix.com.tw/store.aspx"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text", encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  
  data1 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.name", cssCharacter)
  data2 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.addr", cssCharacter)
  data3 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.tel", cssCharacter)
  
  data01=data.frame( '夏慕尼', data1, data3, data2, stringAsFactors=FALSE) 
  data02 <- data01[,-5]
  
  colnames(data02) = c("brand_nm", "store_nm", "tel_no", "addr")

  return(data02)
}