getIsabelle <- function(){
URL='http://www.isabelle.com.tw/store'
res <- GET(URL)
html <- htmlParse(rawToChar(content(res,'raw', encoding = "big5")))
store <-cssApply(html, ".listinfo", cssCharacter)
zone <-cssApply(html, "div.area", cssCharacter)
name=str_extract(store,'.+店')
addrs=str_extract(store,'地址.*')
addrs=str_replace_all(addrs,'\\(.*','')
addrs=str_replace_all(addrs,'\t','')
addrs=str_replace_all(addrs,'地址:','')
tel=str_extract(store,'電話.*地')
tel=str_replace_all(tel,'\t|地','')
tel=str_replace_all(tel,'電話:','')
result=cbind(zone,name,addrs,tel)
result=data.frame(result)
result1=data.frame(brand_nm='伊莎貝爾',zone=result$zone,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.