draft/getSumCar.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getSumCar <- function(){
  url="http://888.sum.com.tw/main/place"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text",encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  tables <- readHTMLTable(html)
  
  data <- tables[[1]]
  data1 <- data[,-5]
  
  addr <- str_replace_all(unlist(data1[,4]),'^\\(.+\\)', "")
  
  data05=data.frame(brand_nm = '匯豐汽車', city = data1[,1], store_nm = data1[,2], 
                    tel_no = data1[,3], addr = unlist(addr), stringsAsFactors=FALSE) 
  return(data05)
}