draft/getKing.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getKing <- function(){
  URL='http://www.king.com.tw/shop/shop.aspx'
  res <- GET(URL)
  html=htmlParse(rawToChar(content(res,'raw',encoding="utf8")))
  name <-cssApply(html, ".shop_shop2 ", cssCharacter)
  name1 <-cssApply(html, ".shop_shop ", cssCharacter)
  addrs <-cssApply(html, ".shop_add", cssCharacter)
  tel <-cssApply(html, ".shop_phone", cssCharacter)
  store=rbind(name[1],name1[1],name1[2],name1[3],name1[4],name1[5],name[2],name1[6],name1[7],name1[8],
              name[3],name[4],name[5],name[6],name[7])
  result=cbind(store,addrs,tel)
  colnames(result)=c('name','addrs','tel')
  result=data.frame(result)
  result1=data.frame(brand_nm='金格',store_nm=result$name,addr=result$addrs,tel_no=result$tel)
  return(result1)
}