draft/getFirstIns.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getFirstIns <- function(){
  url="https://www.firstins.com.tw/kyc/aboutfirst/branches.htm"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text",encoding='big5')
  res2 <- toUTF8(res2)
  html <- htmlParse(res2, encoding = "utf8")
  tables <- readHTMLTable(html)
  
  data <- tables[[12]]
  data1 <- data[-1,]
  
  data05=data.frame('第一產物', data1[,1], data1[,3], data1[,4], data1[,2], stringAsFactors=FALSE) 
  data06 <- data05[,-6]
  colnames(data06) = c("brand_nm", "store_nm", "tel_no", "fax_no", "addr")
  data06
}