From 40d5f5508bffa64039e4ad04239ca5837de292b8 Mon Sep 17 00:00:00 2001
From: Michael Liu <lius21@rpi.edu>
Date: Wed, 3 Aug 2022 18:59:23 -0400
Subject: [PATCH] Substation info update

---
 app.R | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

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, '<br/>',
+                       'Substation ID: ', substations_in_range()$ID, "<br/>",
                        'Location: ', str_to_title(substations_in_range()$CITY),
                        ', ', substations_in_range()$STATE, '<br/>',
                        'Type: ', str_to_title(substations_in_range()$TYPE), '<br/>',
-                       'Status: ', str_to_title(substations_in_range()$STATUS),
+                       'Status: ', str_to_title(substations_in_range()$STATUS), '<br/>',
+                       'Source: eia.gov<br/>',
                        NULL
         )
       )