Substation icon

app.R

@@ -522,6 +522,13 @@ server <- function(input, output, session) {
   reservoir_data <- reactive({return(get_dataset(input$state, 'reservoir'))})
   substation_data <- reactive({return(get_dataset(input$state, 'substation'))})
 
+  # Electric substation icon ===== 
+  sub_icon <- makeIcon(
+    iconUrl = 'substation.png',
+    iconWidth = 18,
+    iconHeight = 18
+  )
+
   # Update congressional district selection upon changing states =====
   # Set to At-large for states containing only one congressional district
   # Default to 20 for New York
@@ -784,6 +791,7 @@ server <- function(input, output, session) {
         data = substations_in_range(),
         lng=substations_in_range()$LONGITUDE,
         lat=substations_in_range()$LATITUDE,
+        icon = sub_icon,
         group = 'substations'
       )
   })