getSwiter <- function(){
url<-'http://www.switer.com.tw/Web/04ShopName.htm'
res <- GET(url)
res <- content(res,'text', encoding = 'utf8')
res <- str_replace_all(res, ' ', '_!_')
html <- htmlParse(res, encoding = "utf8")
#tables <- readHTMLTable(html)
#tables <- tables[1]
data <- cssApply(html, '.style21', cssCharacter)
data <- str_replace_all(data, '_!_;', '')
data <- data[nchar(data)!=0]
data <- matrix(data, ncol=3, byrow=TRUE)
store_nm<-data[,1]
tel_no <-data[,2]
addr <-data[,3]
result<-data.frame(brand_nm='詩威特',store_nm, tel_no, addr, stringsAsFactors = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.