draft/getBokATM.R

In leoluyi/CRMaddress: Crawling address in Taiwan

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)
}