draft/getHushPuppies.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getHushPuppies <- function(){
  wantURL <- 'http://www.hushpuppies.com.tw/Web/Search.aspx?province=&city=undefined&shopname=%u5E97%u92EA%u540D%u7A31'
  res=htmlParse(wantURL, encoding='utf8')
  
  store_nm <- xpathSApply(res, '//*[@class="SearchList"]/tr/td[1]', xmlValue)
  area <- xpathSApply(res, '//*[@class="SearchList"]/tr/td[2]', xmlValue)
  tel_no <- xpathSApply(res, '//*[@class="SearchList"]/tr/td[3]', xmlValue)
  addr <- xpathSApply(res, '//*[@class="SearchList"]/tr/td[4]', xmlValue)
  
  OUTPUT= data.frame(brand_nm='Hush Puppies',area=area,store_nm=store_nm,addr=addr,tel_no=tel_no, data_dt=gsub('-','',Sys.Date()) ,stringsAsFactors=FALSE )
  
}