Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(xml2)
- library(httr)
- library(pipeR)
- library(stringi)
- library(rvest)
- Sys.setlocale("LC_ALL", 'C')
- tables <- sapply(1:7, function(i){
- tmp <- paste0("http://www.i-write.idv.tw/life/info/familymart/familymart1-", i, ".html") %>>%
- GET %>>% content(encoding = "UTF-8") %>>% html_nodes("table") %>>% '[['(3) %>>%
- html_table %>>% as.matrix
- tmp %>>% stri_conv(from = "UTF-8", to = "Big5") %>>% matrix(nrow(tmp))
- })
- # [,1] [,2] [,3] [,4]
- # [1,] "門市名稱" "門市電話" "門市地址" "門市代號"
- # [2,] "七堵工明店" "02-24519520" "基隆市七堵區工建路1之15號1樓" "服務代號: 50268"
- # [3,] "七堵工建店" "02-24527145" "基隆市七堵區工建路4號" "服務代號:"
- # [4,] "七堵永富店" "02-24558170" "基隆市七堵區永富路120號" "服務代號: 15827"
- # [5,] "七堵新明德店" "02-24517467" "基隆市七堵區明德二路15之53號" "服務代號: 50035"
- # [6,] "七堵大興店" "02-24560059" "基隆市七堵區南興路30號" "服務代號: 11444"
- # [7,] "七堵大華店" "02-24563412" "基隆市七堵區南興路85號" "服務代號: 11142"
- # [8,] "基隆百福店" "02-24529098" "基隆市七堵區福二街204號" "服務代號: 15172"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement