{"id":11928,"date":"2019-02-18T12:13:21","date_gmt":"2019-02-18T17:13:21","guid":{"rendered":"https:\/\/rud.is\/b\/?p=11928"},"modified":"2019-02-18T12:13:21","modified_gmt":"2019-02-18T17:13:21","slug":"in-dev-wigle-your-way-into-a-hotspot-with-wiglr","status":"publish","type":"post","link":"https:\/\/rud.is\/b\/2019\/02\/18\/in-dev-wigle-your-way-into-a-hotspot-with-wiglr\/","title":{"rendered":"In Dev: WiGLE Your Way Into A Hotspot with wiglr"},"content":{"rendered":"

WiGLE<\/a> has been around a while<\/em> and is a great site to explore the pervasiveness or sparsity of Wi-Fi (and cellular) networks around the globe. While interactive use is fun, WiGLE also has a free API (so long as you obey the EULA and aren’t abusive) that lets you explore a little deeper if you register for an account, get a key, and use the WIP wiglr<\/code>?<\/a> | GL<\/a>| GH<\/a> package.<\/p>\n

Install from your least offensive social coding site:<\/p>\n

devtools::install_git(\"https:\/\/sr.ht.com\/~hrbrmstr\/wiglr\")\n# or\ndevtools::install_gitlab(\"hrbrmstr\/wiglr\")\n# or (if you must)\ndevtools::install_github(\"hrbrmstr\/wiglr\")\n<\/code><\/pre>\n
read the code (to ensure R package developers are pwning or tracking you),and …after putting your “Encoded for use” token in the WIGLE_API_KEY<\/code> environment variable…start exploring!<\/p>\n
Let’s pull all the country stats and plot the top 20:<\/p>\n
library(wiglr)\nlibrary(hrbrthemes)\nlibrary(tidyverse) # for show\n\ncc <- wigle_country_stats()\n\ntop_n(cc, 20) %>%  # show top 20 \n  mutate(country = factor(country, levels = rev(country))) %>% \n  ggplot(aes(count, country)) +\n  geom_segment(aes(xend=0, yend=country), size = 6, color = ft_cols$blue) +\n  scale_x_comma(position = \"top\") +\n  labs(\n    x = \"# Networks\", y = NULL,\n    title = \"WiGLE Top 20 Countries\"\n  ) +\n  theme_ipsum_rc(grid = \"X\")\n<\/code><\/pre>\n
\"\"<\/a><\/p>\n
We can also supply a bounding box and find all the Wi-Fi access points in the vicinity and use leaflet<\/code> to make a handy interactive map (you can add other columns, too, to find fully open ones):<\/p>\n
library(leaflet)\n\nwifi_box <- wigle_bbox_search(43.2468, 43.2806, -70.9282, -70.8025)\n\nwifi_box$results %>% \n  mutate(labs = sprintf(\"SSID: <code>%s<\/code><br\/>Encryption: %s\", ssid, encryption)) %>% \n  leaflet() %>% \n  addTiles() %>% \n  addCircleMarkers(~trilong, ~trilat, radius = 1, popup = ~labs)\n<\/code><\/pre>\n