draft/getWwUnion.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getWwUnion <- function(){
  url="https://www.wwunion.com/6service_places.aspx?item="
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text", encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  
  tables <- readHTMLTable(html)
  data <- tables[[2]]
  store <- data [,2]
  tel <- data [,3]
  fax <- data [,4]
  addr <- data [,6]
  
  data15=data.frame('旺旺友聯產物', unlist(store), unlist(tel), unlist(fax), unlist(addr), stringAsFactors=FALSE) 
  data16 <- data15[,-6]
  colnames(data16) = c("brand_nm", "store_nm", "tel_no", "fax_no", "addr")
  data16
}