API tools faq
paste
Advertisement
celestialgod

parsing html tables

celestialgod
Jun 16th, 2016
327
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 6.94 KB | None | 0 0
raw download clone embed print report
  1. library(xml2)
  2. library(httr)
  3. library(pipeR)
  4. library(stringi)
  5.  
  6. tables <- sapply(1:7, function(i){
  7.   paste0("http://www.i-write.idv.tw/life/info/familymart/familymart1-", i, ".html") %>>%
  8.     GET %>>% content %>>% xml_find_all("//table//table") %>>% '[['(2) %>>%
  9.     xml_find_all("tr") %>>% lapply(function(node){
  10.       xml_find_all(node, "td") %>>% xml_text %>>% stri_conv(from = "UTF-8", to = "Big5")
  11.     }) %>>% do.call(what = rbind) %>>% `colnames<-`(.[1,]) %>>% '['(2:nrow(.), )
  12. })
  13.  
  14. # [[1]]
  15. #      門市名稱       門市電話      門市地址                       門市代號            
  16. # [1,] "七堵工明店"   "02-24519520" "基隆市七堵區工建路1之15號1樓" "服務代號： 50268"  
  17. # [2,] "七堵工建店"   "02-24527145" "基隆市七堵區工建路4號"        "服務代號："        
  18. # [3,] "七堵永富店"   "02-24558170" "基隆市七堵區永富路120號"      "服務代號：    15827"
  19. # [4,] "七堵新明德店" "02-24517467" "基隆市七堵區明德二路15之53號" "服務代號：    50035"
  20. # [5,] "七堵大興店"   "02-24560059" "基隆市七堵區南興路30號"       "服務代號：    11444"
  21. # [6,] "七堵大華店"   "02-24563412" "基隆市七堵區南興路85號"       "服務代號：    11142"
  22. # [7,] "基隆百福店"   "02-24529098" "基隆市七堵區福二街204號"      "服務代號：    15172"
  23. #
  24. # [[2]]
  25. #      門市名稱     門市電話      門市地址                            門市代號            
  26. # [1,] "基隆中山店" "02-24285091" "基隆市中山區中山二路53號,53-1號"   "服務代號： 16552"  
  27. # [2,] "基隆大慶店" "02-24374852" "基隆市中山區中和路168巷5弄17號1樓" "服務代號：    10960"
  28. # [3,] "基隆囍市店" "02-24370415" "基隆市中山區中和路85巷14號"        "服務代號：    15520"
  29. # [4,] "基隆樂華店" "02-24285782" "基隆市中山區西定路467號"           "服務代號：    16124"
  30. # [5,] "基隆華復店" "02-24282937" "基隆市中山區通化里中華路2號"       "服務代號：    15295"
  31. # [6,] "基隆復興店" "02-24371342" "基隆市中山區復興路142號"           "服務代號：    16799"
  32. # [7,] "基隆全興店" "02-24374595" "基隆市中山區復興路259巷61號"       "服務代號：    11527"
  33. # [8,] "基隆經國店" "02-24374320" "基隆市中山區復興路346號"           "服務代號：    14227"
  34. #
  35. # [[3]]
  36. #      門市名稱       門市電話      門市地址                        門市代號            
  37. # [1,] "基隆中船店"   "02-24245729" "基隆市中正區中船路88號"        "服務代號： 10954"  
  38. # [2,] "基隆海大三店" "02-24634022" "基隆市中正區北寧路2號"         "服務代號：    16499"
  39. # [3,] "基隆和一店"   "02-24636340" "基隆市中正區和一路106號"       "服務代號：    15958"
  40. # [4,] "基隆忠義店"   "02-24285951" "基隆市中正區信二路290之1號1樓" "服務代號：    15107"
  41. # [5,] "基隆祥豐店"   "02-24636245" "基隆市中正區祥豐街847號"       "服務代號：    15663"
  42. # [6,] "基隆新豐店"   "02-24692356" "基隆市中正區新豐街363號"       "服務代號：    11069"
  43. # [7,] "基隆義二店"   "02-24254496" "基隆市中正區義二路28號"        "服務代號：    14659"
  44. # [8,] "基隆觀海店"   "02-24606545" "基隆市中正區觀海街136號"       "服務代號：    15620"
  45. #
  46. # [[4]]
  47. #      門市名稱       門市電話      門市地址                  門市代號            
  48. # [1,] "基隆仁二店"   "02-24245713" "基隆市仁愛區仁二路214號" "服務代號： 11042"  
  49. # [2,] "基隆廟口店"   "02-24289166" "基隆市仁愛區仁三路33號"  "服務代號：    15829"
  50. # [3,] "基隆博愛店"   "02-24254737" "基隆市仁愛區仁四路40號"  "服務代號：    10695"
  51. # [4,] "基隆仁四店"   "02-24265932" "基隆市仁愛區仁四路52號"  "服務代號：    18684"
  52. # [5,] "基隆新站前店" "02-24273646" "基隆市仁愛區忠一路19號"  "服務代號：    18828"
  53. # [6,] "基隆忠二店"   "02-24285581" "基隆市仁愛區忠二路30號"  "服務代號：    18755"
  54. # [7,] "基隆精一店"   "02-24249183" "基隆市仁愛區精一路41號"  "服務代號：    10763"
  55. #
  56. # [[5]]
  57. #       門市名稱       門市電話      門市地址                                          門市代號            
  58. #  [1,] "基隆安定店"   "02-24258025" "基隆市安樂區安一路132號"                         "服務代號： 15911"  
  59. #  [2,] "基隆安和店"   "02-24341775" "基隆市安樂區安和一街128號"                       "服務代號：    10829"
  60. #  [3,] "基隆樂強店"   "02-24272830" "基隆市安樂區安樂路一段208號"                     "服務代號：    16031"
  61. #  [4,] "基隆長庚店"   "02-24326001" "基隆市安樂區安樂路二段157號"                     "服務代號：    11168"
  62. #  [5,] "基隆武嶺店"   "02-24335573" "基隆市安樂區武嶺街181之6號"                      "服務代號：    15416"
  63. #  [6,] "基隆新國揚店" "02-34012842" "基隆市安樂區基金一路121巷14號"                   "服務代號：    19659"
  64. #  [7,] "基隆情人湖店" "02-24326530" "基隆市安樂區基金一路208巷200號"                  "服務代號：    19021"
  65. #  [8,] "基隆大武崙店" "02-24346967" "基隆市安樂區基金一路389號"                       "服務代號：    19771"
  66. #  [9,] "基隆基金店"   "02-24329658" "基隆市安樂區基金三路145號"                       "服務代號：    10992"
  67. # [10,] "基隆長樂店"   "02-24331198" "基隆市安樂區麥金路222號地下一樓（基隆長庚醫院）" "服務代號：    16787"
  68. # [11,] "基隆樂富店"   "02-24349184" "基隆市安樂區樂利二街62巷212號"                   "服務代號：    15521"
  69. # [12,] "基隆樂群店"   "02-24322426" "基隆市安樂區樂利三街100號"                       "服務代號：    15550"
  70. # [13,] "基隆新城店"   "02-24326835" "基隆市安樂區樂利三街8巷16號"                     "服務代號：    12490"
  71. #
  72. # [[6]]
  73. #      門市名稱       門市電話      門市地址                   門市代號            
  74. # [1,] "基隆正信店"   "02-24668110" "基隆市信義區正信路181號"  "服務代號： 15957"  
  75. # [2,] "基隆東信店"   "02-24669537" "基隆市信義區東信路5號"    "服務代號：    19086"
  76. # [3,] "基隆信一店"   "02-24241255" "基隆市信義區信一路148號"  "服務代號：    11239"
  77. # [4,] "基隆深溪店"   "02-24659495" "基隆市信義區深溪路53號"   "服務代號：    18877"
  78. # [5,] "基隆深澳坑店" "02-24684912" "基隆市信義區深澳坑路89號" "服務代號：    16447"
  79. #
  80. # [[7]]
  81. #      門市名稱     門市電話      門市地址                  門市代號            
  82. # [1,] "基隆暖東店" "02-24582882" "基隆市暖暖區暖暖街163號" "服務代號： 16872"  
  83. # [2,] "基隆暖港店" "02-24574786" "基隆市暖暖區過港路254號" "服務代號：    16419"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!