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