mirror of
https://github.com/dylanbenzi/hurricane_normalization_app.git
synced 2026-07-30 05:08:57 +00:00
update queries for growth maps
This commit is contained in:
+8
-4
@@ -845,7 +845,8 @@ output$growth_map <- renderLeaflet({
|
||||
fillColor = "red",
|
||||
color = "red",
|
||||
fillOpacity = ~population_opacity,
|
||||
weight = 2
|
||||
weight = 2,
|
||||
popup = ~ name
|
||||
)
|
||||
} else {
|
||||
map <- map %>%
|
||||
@@ -854,7 +855,8 @@ output$growth_map <- renderLeaflet({
|
||||
fillColor = "blue",
|
||||
color = "blue",
|
||||
fillOpacity = ~housing_opacity,
|
||||
weight = 2
|
||||
weight = 2,
|
||||
popup = ~ name
|
||||
)
|
||||
}
|
||||
|
||||
@@ -882,7 +884,8 @@ observe({
|
||||
fillColor = "red",
|
||||
color = "red",
|
||||
fillOpacity = ~population_opacity,
|
||||
weight = 2
|
||||
weight = 2,
|
||||
popup = ~ name
|
||||
)
|
||||
} else {
|
||||
leafletProxy("growth_map", data = growth_county_year) %>%
|
||||
@@ -891,7 +894,8 @@ observe({
|
||||
fillColor = "blue",
|
||||
color = "blue",
|
||||
fillOpacity = ~housing_opacity,
|
||||
weight = 2
|
||||
weight = 2,
|
||||
popup = ~ name
|
||||
)
|
||||
}
|
||||
})
|
||||
|
||||
Reference in New Issue
Block a user