draft/getMegaBank.R

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)
}
leoluyi/CRMaddress documentation built on May 21, 2019, 5:08 a.m.