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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.