add base map for fatality data

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) %>%
     {

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",