diff --git a/app.R b/app.R
index c421cd6..ebe16d0 100644
--- a/app.R
+++ b/app.R
@@ -162,8 +162,8 @@ ui <- fluidPage(
# Range selection for substations
radioButtons(
inputId = 'distance',
- label = 'Select the range (in miles) of displayed substations within the current district',
- choices = list(10, 25, 50),
+ label = 'Select the range (in miles) of displayed substations with respect to the center of the current district',
+ choices = list(10, 25, 50, 100),
width = '175px'
)
),
@@ -182,6 +182,10 @@ ui <- fluidPage(
"Click on a dot to view reservoir name, estimated PV production and
census tract low/moderate income percentage."
),
+ tags$li(
+ "Click on an icon with lightning symbol to view information regarding an
+ electric substation."
+ ),
tags$li(
"Select a congressional district (left) to highlight census tracts
in that district."
@@ -399,7 +403,7 @@ ui <- fluidPage(
)
),
- # Quote from Rep. Tonko
+ # Quote
tags$br(),
tags$p(tags$b(
'Words of support from U.S. Rep. Paul Tonko (D-NY20), Chair of the U.S.
@@ -479,10 +483,12 @@ ui <- fluidPage(
case-by-case feasibility, and the results should only be considered
as a starting point for national and regional examinations.")),
tags$p("Estimated reservoir area obtained from US Army Corps of Engineers
- (USACE).The NREL model and the underlying data may contain errors."),
+ (USACE). The NREL model and the underlying data may contain errors."),
tags$p("Income data on the State Map is obtained from the US Census. Low income
is defined as up to 50 percent of the Area Median Income (AMI); moderate
income is defined as greater than 50 percent AMI and up to 80 percent AMI."),
+ tags$p("Electric substation data on the State Map is obtained from the Homeland
+ Infrastructure Foundation-Level Data (HIFLD)."),
# Further information block
@@ -795,10 +801,12 @@ server <- function(input, output, session) {
icon = sub_icon,
group = 'substations',
popup = paste0(substations_in_range()$NAME, '
',
+ 'Substation ID: ', substations_in_range()$ID, "
",
'Location: ', str_to_title(substations_in_range()$CITY),
', ', substations_in_range()$STATE, '
',
'Type: ', str_to_title(substations_in_range()$TYPE), '
',
- 'Status: ', str_to_title(substations_in_range()$STATUS),
+ 'Status: ', str_to_title(substations_in_range()$STATUS), '
',
+ 'Source: eia.gov
',
NULL
)
)