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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.