change base map

ironwood_plots.R

@@ -74,7 +74,8 @@ map <- leaflet() %>%
   setView(lng = site_lon,
           lat = site_lat,
           zoom = 16) %>%
-  addProviderTiles("CartoDB.Positron")
+  addTiles()
+  #addProviderTiles(providers$CartoDB.Positron)
 
 # Add markers with varying color and size based on population health and number of trees
 map <- map %>%
@@ -84,7 +85,7 @@ map <- map %>%
     lat = ~tree_lat,
     radius = 5,
     color = ~condition_colors[tree_health_index+1],
-    fillOpacity = 0.7
+    fillOpacity = 1
   )
 
 # show map