CRMaddress: Crawling address in Taiwan

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
}