From 0fd3d836b9f38892457cff4af80076de2e9844f3 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Tue, 7 Apr 2026 20:25:55 -0400
Subject: [PATCH] add base map for fatality data

---
 app/server.R |  5 +++++
 app/ui.R     | 14 +++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/app/server.R b/app/server.R
index 25e2955..6df8a81 100644
--- a/app/server.R
+++ b/app/server.R
@@ -1,4 +1,9 @@
 server <- function(input, output, session) {
+  output$base_leaflet <- renderLeaflet({
+    leaflet() %>%
+      addProviderTiles("Stadia.AlidadeSmooth")
+  })
+
   storm_coverage <- get_storm_data_coverage() %>%
     select(-storm_basin) %>%
     {
diff --git a/app/ui.R b/app/ui.R
index 51e1517..e05af35 100644
--- a/app/ui.R
+++ b/app/ui.R
@@ -207,7 +207,19 @@ ui <- page_navbar(
         )
       ),
       nav_panel("Perils"),
-      nav_panel("Fatality Map"),
+      nav_panel(
+        "Fatality Map",
+        card(
+          full_screen = TRUE,
+          layout_sidebar(
+            sidebar = sidebar(
+              actionButton("hi", "test"),
+              open = "always"
+            ),
+            leafletOutput("base_leaflet", height = "100%")
+          )
+        )
+      ),
       nav_spacer(),
       nav_menu(
         title = "Export",