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