getCham <- function(){
##夏慕尼
url="http://www.chamonix.com.tw/store.aspx"
res <- GET(url, encoding='utf8')
res2 <- content(res,"text", encoding='utf8')
html <- htmlParse(res2, encoding = "utf8")
data1 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.name", cssCharacter)
data2 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.addr", cssCharacter)
data3 <- cssApply(html,"div.store > div:nth-child(2) > ul > li > ul > li.tel", cssCharacter)
data01=data.frame( '夏慕尼', data1, data3, data2, stringAsFactors=FALSE)
data02 <- data01[,-5]
colnames(data02) = c("brand_nm", "store_nm", "tel_no", "addr")
return(data02)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.