getKing <- function(){
URL='http://www.king.com.tw/shop/shop.aspx'
res <- GET(URL)
html=htmlParse(rawToChar(content(res,'raw',encoding="utf8")))
name <-cssApply(html, ".shop_shop2 ", cssCharacter)
name1 <-cssApply(html, ".shop_shop ", cssCharacter)
addrs <-cssApply(html, ".shop_add", cssCharacter)
tel <-cssApply(html, ".shop_phone", cssCharacter)
store=rbind(name[1],name1[1],name1[2],name1[3],name1[4],name1[5],name[2],name1[6],name1[7],name1[8],
name[3],name[4],name[5],name[6],name[7])
result=cbind(store,addrs,tel)
colnames(result)=c('name','addrs','tel')
result=data.frame(result)
result1=data.frame(brand_nm='金格',store_nm=result$name,addr=result$addrs,tel_no=result$tel)
return(result1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.