draft/getHonda.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getHonda <- function(){
  
  url <-'http://www.honda-taiwan.com.tw/auto/dealers_print01.aspx'
  res <- GET(url)
  res <- content(res,'text', encoding = 'utf8')
  html<- htmlParse(res, encoding = "utf8")
  
  data<- cssApply(html, '#form1 > table > tr > td > div > table > tr:nth-child(2) > td > div > table  > tr:nth-child(3) > td:nth-child(1)', cssCharacter)
  data <- data[-c(1:5)]
  data <- matrix(data, ncol=4, byrow=TRUE)
  data<- as.data.frame(data, stringsAsFactors = FALSE)
  names(data) <- c("store_nm", "addr","tel_no","tel_no2")
  
  data <- cbind('Honda', data)
  names(data) <- c('brand_nm',"store_nm", "addr","tel_no","tel_no2")
  data
}