getMil <- function(){
url="http://www.mli.com.tw/MLI_Public/AboutUsDefault.aspx?tid=Nav02&mid=52&cid=p10"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='utf8')
html <- htmlParse(res2, encoding = "utf8")
tables <- readHTMLTable(html)
data <- tables[[2]]
data05=data.frame('三商美邦', data[,1], data[,2], data[,4], data[,5], data[,6], stringAsFactors=FALSE)
data1 <- data05[-1, ]
data06 <- data1[,-7]
colnames(data06) = c("brand_nm", "隸屬機構", "store_nm", "tel_no", "fax_no", "addr")
return(data06)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.