draft/getTasty.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getTasty <- function(){
  ##Tasty
  url="http://www.tasty.com.tw/store.aspx"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text", encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  
  tables <- readHTMLTable(html)
  
  mylist <- list()
  for (i in 1:6){
    a <- 8+2*i
    data1 <-tables[[a]]
    data2 <-sapply(data1, as.character)
    data3 <-colnames(data1)
    data5 <- rbind(data2, data3)
    data6 <- data5[-1,]
    mylist=rbind(mylist,data6)
  }
  
  data8 <- str_extract_all(unlist(mylist[,3]), ".+(號|樓|F|B[0-9]{1})")
  
  data11=data.frame('西堤', unlist(mylist[,2]), unlist(data8), unlist(mylist[,4]), stringAsFactors=FALSE) 
  data12 <- data11[,-5]
  
  colnames(data12) = c("brand_nm", "store_nm", "addr", "tel_no")
  return(data12)
}