draft/getIsabelle.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getIsabelle <- function(){
  URL='http://www.isabelle.com.tw/store'
  res <- GET(URL)
  html <- htmlParse(rawToChar(content(res,'raw', encoding = "big5")))
  store <-cssApply(html, ".listinfo", cssCharacter)
  zone <-cssApply(html, "div.area", cssCharacter)
  name=str_extract(store,'.+店')
  addrs=str_extract(store,'地址.*') 
  addrs=str_replace_all(addrs,'\\(.*','')
  addrs=str_replace_all(addrs,'\t','')
  addrs=str_replace_all(addrs,'地址：','')
  tel=str_extract(store,'電話.*地') 
  tel=str_replace_all(tel,'\t|地','')
  tel=str_replace_all(tel,'電話：','')
  result=cbind(zone,name,addrs,tel)
  result=data.frame(result)
  result1=data.frame(brand_nm='伊莎貝爾',zone=result$zone,store_nm=result$name,addr=result$addrs,tel_no=result$tel)
  return(result1)
}