Problem 18-2

library(leaflet)
library(macleish)
library(tidyverse)

bechtel <- tibble(lat = 42.449167, lon = -72.679389)

m <- leaflet() %>%
  addTiles() %>%
  addPolygons(data = macleish_layers[["buildings"]], weight = 1, popup = ~name) %>%
  addPolylines(data = macleish_layers[["trails"]], weight = 1, color = "brown") %>%
  addPolylines(data = macleish_layers[["streams"]], weight = 2)

Leaflet map of Macleish Field Station,

Warning in RColorBrewer::brewer.pal(max(3, n), palette): n too large, allowed maximum for palette Greens is 9
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(max(3, n), palette): n too large, allowed maximum for palette Greens is 9
Returning the palette you asked for with that many colors