draft/getLaNew.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getLaNew <- function(){
  res <- GET("http://www.lanew.com.tw/shoplist.aspx")
  res <- content(res, encoding = 'utf8')
  result <- readHTMLTable(res)
  result <- result[[2]]
  names(result) <- c('store_nm', 'tel_no', 'addr', 'openWeekday', 'openHoliday', 'note', 'del')
  result$del <- NULL
  result$tel_no <- str_replace_all(result$tel_no, '-', '')
  result$openWeekday <- str_replace_all(result$openWeekday, '\\(|\\)| ', '')
  result$openHoliday <- str_replace_all(result$openHoliday, '\\(|\\)| ', '')
  result <- data.frame(brand_nm='La new', as.matrix(result), stringsAsFactors = FALSE )
}