getMegaBank <- function(){
##國內分行
url="https://www.megabank.com.tw/about/about04.asp"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='utf8')
html <- htmlParse(res2, encoding = "utf8")
tables <- readHTMLTable(html)
colnames(tables$printthis) = c("store_nm", "addr", "tel_no")
data1 <- tables[[1]]
data2 <- data1[,1]
data3 <- str_replace_all(data2,'[0-9]{7}|[:space:]',"")
data01=data.frame("兆豐分行", data3, data1[,-1], "國內分行", stringAsFactors=FALSE)
data11 <- data01[,-5]
data12 <- data11[,-6]
colnames(data12) = c("brand_nm","store_nm", "addr", "tel_no","kind")
##國外據點
url="https://www.megabank.com.tw/about/about04_02.asp"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='utf8')
html <- htmlParse(res2, encoding = "utf8")
tables <- readHTMLTable(html)
colnames(tables$國外服務據點) = c("store_nm", "addr", "tel_no")
data1 <- tables[[1]]
data2 <- data1[,1]
data3 <- str_replace_all(data2,'[0-9]{7}|[:space:]',"")
data02=data.frame("兆豐分行", data3, data1[,-1], "海外分行", stringAsFactors=FALSE)
data21 <- data02[,-6]
data22 <- data21[,-6]
colnames(data22) = c("brand_nm","store_nm", "addr", "tel_no","kind")
data55= rbind(data12, data22)
return(data55)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.