draft/getHyundai.R

getHyundai <- function(){
  result<-list()
  url   <-list()
  link<-6
  for(i in 1:link){
    
    url[[i]]<-sprintf('http://www.hyundai-motor.com.tw/hyundai/Shopping/get-dealers?areaId=%s',i)
    res <- GET(url[[i]])
    
    res <- content(res,'text', encoding = 'utf8')
    
    data <- rjson::fromJSON(res)
    
    data <- do.call(rbind, data)
    store_nm<- unlist(data[,2])
    tel_no  <- unlist(data[,6])
    addr    <- unlist(data[,5])
    
    result[[i]]<-data.frame(brand_nm='現代汽車',store_nm, tel_no, addr, stringsAsFactors = FALSE)
    
  }
  
  data_fin <- do.call(rbind, result)
  return(data_fin)
}
leoluyi/CRMaddress documentation built on May 21, 2019, 5:08 a.m.