getBokATM <- function(){
URL='https://www.bok.com.tw/atm-search'
res <- GET(URL, encoding='utf8')
res2 <- htmlParse(content(res, "text", encoding = "utf8"), encoding = "utf8")
store_info <- cssApply(res2," tr > td",cssCharacter)
store_info <-matrix(data=store_info,ncol = 3,byrow=TRUE)
Title = c("store_nm","addr","function")
colnames(store_info)=Title
brand_nm='高雄銀行ATM據點'
store_info2<-data.frame(brand_nm,store_info,stringsAsFactors = FALSE)
return(store_info2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.