Maps of the Maricopa Ag center using Leaflet

terraref_leaflet_maps.R

library(leaflet)
library(leafem)
library(wellknown)
leaflet(options = leafletOptions(minZoom = 5, maxZoom = 5)) %>% 
  addTiles() %>% 
#  addProviderTiles(provider = providers$Esri.WorldStreetMap) %>% 
  addPopups(lng = -111.975, lat = 33.0755,
             popup = "<center>Maricopa Agricultural Center<br/>Maricopa, AZ</center>",
            options = popupOptions(closeButton = FALSE, ))
leaflet(options = leafletOptions(minZoom = 1, maxZoom = 18)) %>%
  addProviderTiles(provider = providers$Esri.WorldImagery) %>%
  leafem::addFeatures(data = st_as_sfc(
    "POLYGON ((-111.9747967 33.0764953 711.68, -111.9747967 33.0745228 711.68, -111.9750963 33.0745228 711.68, -111.9750963 33.0764953 711.68, -111.9747967 33.0764953 711.68))"))