diff --git a/app.R b/app.R index 92d3ca1..1cd21c9 100644 --- a/app.R +++ b/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' ) }) diff --git a/www/substation.png b/www/substation.png new file mode 100644 index 0000000..b3eafb5 Binary files /dev/null and b/www/substation.png differ