draft/getXn.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getXn <- function(){
  url      <- 'http://www.xn--eqr4p55ijva.com/store/'
  htmldoc1 <- content(GET(url, encoding='utf8'), as='text', encoding='utf8')
  htmldoc2 <- htmlParse(htmldoc1, encoding='utf8')
  
  store_nm <- cssApply(htmldoc2,".shop-name" ,cssCharacter)
  addr     <- cssApply(htmldoc2,".address"   ,cssCharacter)
  tel_no   <- cssApply(htmldoc2,".phone"     ,cssCharacter)
  
  datas    <- data.frame('奇威',store_nm,addr,tel_no)
  names(datas) <- c('brand_nm','store_nm','addr','tel_no')
  datas
}