getLaNew <- function(){
res <- GET("http://www.lanew.com.tw/shoplist.aspx")
res <- content(res, encoding = 'utf8')
result <- readHTMLTable(res)
result <- result[[2]]
names(result) <- c('store_nm', 'tel_no', 'addr', 'openWeekday', 'openHoliday', 'note', 'del')
result$del <- NULL
result$tel_no <- str_replace_all(result$tel_no, '-', '')
result$openWeekday <- str_replace_all(result$openWeekday, '\\(|\\)| ', '')
result$openHoliday <- str_replace_all(result$openHoliday, '\\(|\\)| ', '')
result <- data.frame(brand_nm='La new', as.matrix(result), stringsAsFactors = FALSE )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.