draft/getSakura.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getSakura <- function(){
  URL <- 'http://www.sakura.com.tw/kitchenlife/life_store.aspx'
  res <- GET(URL, encoding='utf8')
  res2 <- htmlParse(content(res, "text", encoding = "utf8"), encoding = "utf8")
  result <- cssApply(res2,'tr > td',cssCharacter)
  result <- matrix(result, ncol = 4, byrow = TRUE)
  
  sakura <- data.frame(brand_nm='櫻花整體廚房',
                       store_nm=result[,1],
                       addr=result[,2],
                       tel_no=result[,3],
                       fax=result[,4],
                       stringsAsFactors=FALSE)
  
}