draft/getBop.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getBop <- function(){
  URL='http://www.bop.com.tw/BRNO_ADDR/BOP_ALL.asp'
  res <- GET(URL)
  t=rawToChar(res$content, multiple=FALSE)
  wantData <- readHTMLTable(t)
  wantData1=wantData[[1]][,c(1:4)]
  wantData1[,2]=str_replace_all(wantData1[,2],'、[0-9]{0,4}','')
  wantData1[,2]=str_replace_all(wantData1[,2],'號2樓|-1-1|樓及5樓之2|~3| ','')
  return(result=data.frame(brand_nm='板信銀行',store_nm=wantData1$分行,addr=wantData1$地址,tel_no=wantData1$電話,fax=wantData1$傳真))
  return(wantData1)
}