getMegaBankATM <- function(){
url="https://www.megabank.com.tw/about/about04_03.asp"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='utf8')
html <- htmlParse(res2, encoding = "utf8")
tables <- readHTMLTable(html)
colnames(tables$ATM服務據點) = c("store_nm", "addr", "tel_no")
data1 <- tables[[1]]
data2 <- data1[,1]
data3 <- str_replace_all(data2,'[0-9]{7}|[:space:]',"")
data03=data.frame("兆豐銀行ATM", data3, data1[,-1], stringAsFactors=FALSE)
data31 <- data03[,-5]
data32 <- data31[,-5]
data33 <- data32[,-5]
colnames(data33) = c("brand_nm","store_nm", "addr", "tel_no")
data33
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.