getMingTai <- function(){
url="http://www.mingtai.com.tw/company_location.asp"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='big5')
html <- htmlParse(res2, encoding = "utf8")
tables <- readHTMLTable(html)
data <-tables[[1]]
data1 <- na.exclude(data)
data2 <- data1[-1,]
data0 = data.frame('明台產物', data2[,1], data2[,2], data2[,3], data2[,4], stringsAsFactors=FALSE)
names(data0) = c("brand_nm", "store_nm", "tel_no", "fax_no", "addr")
data0
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.