update queries for growth maps

app/dashboard.Rmd

@@ -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
       )
   }
 })

app/queries.R

@@ -354,7 +354,14 @@ get_hurdat_landfalls <- function(storm) {
 
 # returns all tracked storm conus landfalls
 get_all_conus_landfalls <- function() {
-  query <- view.all_conus_landfalls
+  query <- view.all_conus_landfalls %>%
+    select(
+      storm_year,
+      storm_name,
+      lon,
+      lat,
+      rmw_meters
+    )
 
   result <- query %>% collect()
 
@@ -479,6 +486,7 @@ get_normalized_metric_growth <- function(storm, full_lf_id) {
         state_fips,
         county_fips,
         year,
+        name,
         population,
         housing_units,
         normalized_population,
@@ -543,6 +551,7 @@ get_normalized_metric_growth <- function(storm, full_lf_id) {
       select(
         state_fips,
         year,
+        name,
         population,
         housing_units,
         normalized_population,