Skip to content

Instantly share code, notes, and snippets.

@ThierryO

ThierryO/windmolens.R

Last active May 30, 2020 13:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ThierryO/040fc95a5832a73ea205f4dcdfad565c to your computer and use it in GitHub Desktop.
Save ThierryO/040fc95a5832a73ea205f4dcdfad565c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
windmolens.R
library(osmdata)
library(leaflet)
opq(bbox = "Terschelling") %>%
add_osm_feature(key = "power", value = "generator") %>%
add_osm_feature(key = "generator:source", value = "wind") %>%
osmdata_sp() -> mm
leaflet() %>%
addTiles() %>%
addMarkers(data = mm$osm_points)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment