diff --git a/app/dashboard.Rmd b/app/dashboard.Rmd index 5708cab..ccedd23 100644 --- a/app/dashboard.Rmd +++ b/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 ) } }) diff --git a/app/queries.R b/app/queries.R index 7c88b61..354e198 100644 --- a/app/queries.R +++ b/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,