add fatality map test and heatmap

app/ui.R

@@ -193,7 +193,7 @@ ui <- page_navbar(
       nav_panel(
         "Human Factors",
         layout_column_wrap(
-          width = 1 / 2,
+          width = 1,
           layout_columns(
             col_widths = 12,
             row_heights = c("auto", "1fr", "auto"),
@@ -246,14 +246,25 @@ ui <- page_navbar(
       nav_panel("Perils"),
       nav_panel(
         "Fatality Map",
-        card(
-          full_screen = TRUE,
-          layout_sidebar(
-            sidebar = sidebar(
-              actionButton("hi", "test"),
-              open = "always"
+        layout_columns(
+          col_widths = c(8, 4),
+          card(
+            full_screen = TRUE,
+            layout_sidebar(
+              class = "p-0",
+              sidebar = sidebar(
+                actionButton("hi", "test"),
+                open = "always"
+              ),
+              leafletOutput("fatality_map", height = "100%")
+            )
+          ),
+          layout_column_wrap(
+            width = 1,
+            card(
+              plotlyOutput("fatality_heatmap", height = "100%")
             ),
-            leafletOutput("base_leaflet", height = "100%")
+            card()
           )
         )
       ),