1 # SPDX-License-Identifier: AGPL-3.0-or-later
   2 
   3 # done for battlemesh v15 presentation for guifi sax 2022 on 2022-11-4
   4 #   by guifipedro in a lavapies hotel in Madrid
   5 
   6 library(leaflet)
   7 library(data.table)
   8 
   9 # https://stackoverflow.com/questions/37376398/how-to-create-an-empty-datatable-with-columns-names-and-then-append-datatables-t
  10 
  11 dt <- data.table(edition=numeric(),lat=numeric(), long=numeric())
  12 # calafou -> https://battlemesh.org/BattleMeshV15
  13 dt <- rbind(dt, list(15, 41.51118847925773, 1.7028579145321114))
  14 # fusolab -> https://battlemesh.org/BattleMeshV14
  15 dt <- rbind(dt, list(14, 41.8720435, 12.5822329))
  16 # point it to the sea -> src https://battlemesh.org/BattleMeshV13
  17 #dt <- rbind(dt, list(13, 46.832150, -9.069017))
  18 # le 6b -> src https://battlemesh.org/BattleMeshV12
  19 dt <- rbind(dt, list(12, 48.93810677428581, 2.342786597620561))
  20 # c-base -> src https://battlemesh.org/BattleMeshV11 -> src https://wireless-meshup.org
  21 dt <- rbind(dt, list(11, 52.512979591701196, 13.42010285544062))
  22 # Volkskundemuseum -> src https://battlemesh.org/BattleMeshV10
  23 dt <- rbind(dt, list(10, 48.21298, 16.35052))
  24 # Faculty of Engineering, University of Porto -> src https://battlemesh.org/BattleMeshV9
  25 dt <- rbind(dt, list(9, 41.1782, -8.5958))
  26 # Dom Obrambe Pekre -> src https://battlemesh.org/BattleMeshV8
  27 dt <- rbind(dt, list(8, 46.5348607,15.5841888))
  28 # sublab -> src https://battlemesh.org/BattleMeshV7
  29 dt <- rbind(dt, list(7, 51.33027747540477, 12.330840668159015))
  30 # Aalborg University -> src https://battlemesh.org/BattleMeshV6
  31 dt <- rbind(dt, list(6, 57.0134, 9.9893))
  32 # National Technical University of Athens (NTUA) -> src https://battlemesh.org/BattleMeshV5
  33 dt <- rbind(dt, list(5.2, 37.9878421,23.7307094))
  34 # Sarantaporo -> src https://battlemesh.org/BattleMeshV5_Warmup
  35 dt <- rbind(dt, list(5.1, 40.01732095079183, 22.071475061427538))
  36 # ? -> src https://battlemesh.org/BattleMeshV4.01
  37 # FIXME this gave me 404
  38 # Can Roca Sant Bartomeu del Grau -> src https://battlemesh.org/BattleMeshV4
  39 dt <- rbind(dt, list(4, 41.969587068961374, 2.1691728856638686))
  40 # camp in Godarville -> src https://battlemesh.org/BattleMeshV3.3
  41 dt <- rbind(dt, list(3.3, 50.501992,4.284022))
  42 # the Ghent hackerspace, 0x20 (aka whitespace) -> src https://battlemesh.org/BattleMeshV3.1416
  43 dt <- rbind(dt, list(3.1, 51.059737375192924, 3.7323995787093787))
  44 # bracciano camping -> src https://battlemesh.org/BattleMeshV3
  45 dt <- rbind(dt, list(3, 42.10605,12.18743))
  46 # hasselt -> src https://wiki.hsbxl.be/Wireless_Battle_Mesh_v_2.7182
  47 dt <- rbind(dt, list(2.7, 50.92567356913028, 5.319454261398706))
  48 # okno -> src https://wiki.hsbxl.be/Wireless_Battle_Mesh_v2
  49 dt <- rbind(dt, list(2, 50.85478277588161, 4.342007724407652))
  50 # /tmp/lab -> src https://www.tmplab.org/2009/02/16/first-tmplab-wireless-battle-mesh-april-11-12th-2009-tmplab/
  51 dt <- rbind(dt, list(1, 48.755009244613184, 2.411218359572519))
  52 
  53 # thaanks https://stackoverflow.com/questions/31745525/leaflet-with-r-add-text-labels
  54 #leaflet(data = dt) %>% addTiles() %>%
  55 #  addLabelOnlyMarkers(~long, ~lat, label = ~as.character(edition),
  56 #                      labelOptions = labelOptions(noHide = T, direction = 'center', textOnly = T, textsize = "30px")) %>%
  57 #  addProviderTiles(providers$CartoDB.Positron)
  58 
  59 leaflet(data = dt) %>% addTiles() %>%
  60   addMarkers(~long, ~lat, label = ~as.character(edition)) %>%
  61   addProviderTiles(providers$CartoDB.Positron)
  62