Specialize in Geo-Spatial Visualizations With Leaflet – Part 1: Solutions

# load package
library(leaflet)

####################
#                  #
#    Exercise 1    #
#                  #
####################
leaflet() %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas")



####################
#                  #
#    Exercise 2    #
#                  #
####################
leaflet() %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7)



####################
#                  #
#    Exercise 3    #
#                  #
####################
leaflet(options = leafletOptions(minZoom = 5, maxZoom = 9)) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7)

####################
#                  #
#    Exercise 4    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons()



####################
#                  #
#    Exercise 5    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1
  )



####################
#                  #
#    Exercise 6    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1
  ) %>%
  addMarkers(
    lng = gadmCHE@polygons[[6]]@labpt[1],
    lat = gadmCHE@polygons[[6]]@labpt[2]
  )



####################
#                  #
#    Exercise 7    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1,
    highlightOptions = highlightOptions(color = "darkred", opacity = 1)
  ) %>%
  addMarkers(
    lng = gadmCHE@polygons[[6]]@labpt[1],
    lat = gadmCHE@polygons[[6]]@labpt[2]
  )

####################
#                  #
#    Exercise 8    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1,
    highlightOptions = highlightOptions(color = "darkred", opacity = 1),
    label = ~NAME_1
  ) %>%
  addMarkers(
    lng = gadmCHE@polygons[[6]]@labpt[1],
    lat = gadmCHE@polygons[[6]]@labpt[2]
  )

####################
#                  #
#    Exercise 9    #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1,
    highlightOptions = highlightOptions(color = "darkred", opacity = 1),
    label = ~NAME_1
  ) %>%
  addMarkers(
    lng = gadmCHE@polygons[[6]]@labpt[1],
    lat = gadmCHE@polygons[[6]]@labpt[2]
  ) %>%
  addMeasure(
    primaryLengthUnit = "kilometers",
    primaryAreaUnit = "sqmeters"
  )



####################
#                  #
#    Exercise 10   #
#                  #
####################
leaflet(
  data = gadmCHE,
  options = leafletOptions(minZoom = 5, maxZoom = 9)
) %>%
  addProviderTiles(provider = "Esri.WorldGrayCanvas") %>%
  setView(lng = 8.2275, lat = 46.8182, zoom = 7) %>%
  addPolygons(
    color = "red",
    weight = 3,
    opacity = 0.65,
    fillColor = "white",
    fillOpacity = 1,
    highlightOptions = highlightOptions(color = "darkred", opacity = 1),
    label = ~NAME_1
  ) %>%
  addMarkers(
    lng = gadmCHE@polygons[[6]]@labpt[1],
    lat = gadmCHE@polygons[[6]]@labpt[2]
  ) %>%
  addMeasure(
    primaryLengthUnit = "kilometers",
    primaryAreaUnit = "sqmeters"
  ) %>%
  addMiniMap(
    tiles = providers$Esri.WorldGrayCanvas,
    toggleDisplay = TRUE,
    minimized = T
  )