getLovelyWorld <- function(){
url <- 'http://www.lovelyworld.tw/store.html'
htmldoc1 <- content(GET(url, encoding='utf8'), as='text', encoding='utf8')
htmldoc2 <- htmlParse(htmldoc1, encoding='utf8')
tables <- readHTMLTable(htmldoc2)
list1 <- data.frame(t(data.frame(names(tables[[1]]))), row.names = NULL)
list3 <- data.frame(t(data.frame(names(tables[[3]]))), row.names = NULL)
list4 <- data.frame(t(data.frame(names(tables[[4]]))), row.names = NULL)
list5 <- data.frame(t(data.frame(names(tables[[5]]))), row.names = NULL)
names(list1) <- c("aa","store_nm","tel_no","addr")
names(list3) <- c("aa","store_nm","tel_no","addr")
names(list4) <- c("aa","store_nm","tel_no","addr")
names(list5) <- c("aa","store_nm","tel_no","addr")
names(tables[[1]]) <- c("aa","store_nm","tel_no","addr")
names(tables[[3]]) <- c("aa","store_nm","tel_no","addr")
names(tables[[4]]) <- c("aa","store_nm","tel_no","addr")
names(tables[[5]]) <- c("aa","store_nm","tel_no","addr")
datas <- rbind(list1,tables[[1]],list3,tables[[3]],list4,tables[[4]],list5,tables[[5]])
datas$aa <- NULL
data1 <- data.frame('ζηδΈη',datas)
names(data1) <- c('brand_nm','store_nm', 'tel_no', 'addr')
data1
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.