draft/getSwiter.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getSwiter <- function(){
  url<-'http://www.switer.com.tw/Web/04ShopName.htm'
  res <- GET(url)
  res <- content(res,'text', encoding = 'utf8')
  res <- str_replace_all(res, '&nbsp', '_!_') 
  html <- htmlParse(res, encoding = "utf8")
  
  
  #tables <- readHTMLTable(html)
  #tables <- tables[1]
  
  data <- cssApply(html, '.style21', cssCharacter)
  data <- str_replace_all(data, '_!_;', '')
  data <- data[nchar(data)!=0]
  
  data  <- matrix(data, ncol=3, byrow=TRUE)
  
  store_nm<-data[,1]
  tel_no  <-data[,2]
  addr    <-data[,3]
  
  result<-data.frame(brand_nm='詩威特',store_nm, tel_no, addr, stringsAsFactors = FALSE)
}