draft/getMil.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getMil <- function(){
  url="http://www.mli.com.tw/MLI_Public/AboutUsDefault.aspx?tid=Nav02&mid=52&cid=p10"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text", encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  tables <- readHTMLTable(html)
  data <- tables[[2]]
  
  data05=data.frame('三商美邦', data[,1], data[,2], data[,4], data[,5], data[,6], stringAsFactors=FALSE) 
  data1 <- data05[-1, ]
  data06 <- data1[,-7]
  
  colnames(data06) = c("brand_nm", "隸屬機構",  "store_nm", "tel_no", "fax_no", "addr")
  return(data06)
}