draft/getMingTai.R

getMingTai <- function(){
  url="http://www.mingtai.com.tw/company_location.asp"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text", encoding='big5')
  html <- htmlParse(res2, encoding = "utf8")
  
  tables <- readHTMLTable(html)
  data <-tables[[1]]
  data1 <- na.exclude(data)
  data2 <- data1[-1,]
  
  data0 = data.frame('明台產物', data2[,1], data2[,2], data2[,3], data2[,4], stringsAsFactors=FALSE) 
  
  names(data0) = c("brand_nm", "store_nm", "tel_no", "fax_no", "addr")
  data0
}
leoluyi/CRMaddress documentation built on May 21, 2019, 5:08 a.m.