draft/getBabyCity.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getBabyCity <- function(){
  url <-"http://www.babycity.com.tw/store.asp"
  res <- GET(url, encoding='utf8')
  res2 <- content(res,"text",encoding='utf8')
  html <- htmlParse(res2, encoding = "utf8")
  tables <- readHTMLTable(html)
  
  city1 <- cssApply(html,"#submenu1  td.store_memu > a", cssLink)
  city2 <- cssApply(html,"#submenu2  td.store_memu > a", cssLink)
  city3 <- cssApply(html,"#submenu3  td.store_memu > a", cssLink)
  city4 <- cssApply(html,"#submenu4  td.store_memu > a", cssLink)
  
  city <- c(city1, city2, city3, city4)
  
  mylist <- list()
  for (i in 1:length(city))
  {
    url <- sprintf("http://www.babycity.com.tw/%s", city[i])
    
    #url <- "http://www.babycity.com.tw/store.asp?cityID=1"
    res <- GET(url, encoding='utf8')
    res2 <- content(res,"text",encoding='utf8')
    html <- htmlParse(res2, encoding = "utf8")
    
    store <- cssApply(html,"tr:nth-child(1) > td.store_t01", cssCharacter)
    addr  <- cssApply(html,"tr:nth-child(1) > td.gray13", cssCharacter)
    addr1 <- addr[-length(addr)]
    
    store_info <- matrix(data=addr1, ncol=2, byrow=TRUE)
    
    data05=data.frame('babycity', store, store_info[,1], store_info[,2], stringAsFactors=FALSE) 
    data06 <- data05[,-5]
    
    colnames(data06) = c("brand_nm", "store_nm", "addr", "tel_no")
    
    data_sum <- data06
    mylist=rbind(mylist,data_sum)
  }
  mylist
}