getMoma <- function(){
url <- 'https://www.momaclub.com.tw/store.php'
htmldoc1 <- content(GET(url, encoding='utf8'), as='text', encoding='utf8')
htmldoc2 <- htmlParse(htmldoc1, encoding='utf8')
data1 <- cssApply(htmldoc2,"div > dl > dd > p" ,cssCharacter)
store_nm <- gsub(" ","",str_sub(data1,1,4))
tel <- str_extract(data1,'[0-9]{2}-[0-9]{3,4}-[0-9]{3,4}')
addr1 <- gsub("\n|地圖| |\\[|\\]","",str_replace(str_replace(data1,'[0-9]{2}-[0-9]{3,4}-[0-9]{3,4}',''),str_sub(data1,1,4),''))
addr <- gsub(' ','',addr1)
datas <- data.frame('MOMA',store_nm,tel,addr)
names(datas) <- c('brand_nm','store_nm','tel_no','addr')
datas
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.