draft/getMegaBankATM.R

In leoluyi/CRMaddress: Crawling address in Taiwan

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
}