add layout for data tracking page

app/ui.R

@@ -44,6 +44,8 @@ ui <- page_navbar(
         '
         )
       ),
+      layout_columns(
+        col_widths = 12,
         card(
           HTML(
             '
@@ -68,8 +70,14 @@ ui <- page_navbar(
           <p>All storms include HURDAT2 track data. Cost normalization and fatality data are available for a subset of storms, indicated by the <span class="badge bg-success">Cost</span> and <span class="badge bg-danger">Fatality</span> badges in the Storm Selector.</p>
           '
           )
+        ),
+        card(
+          "Contact Us",
+          card_body(
+            "CONTACT US INFO"
           )
-      # TODO: contact us information
+        )
+      ),
     )
   ),
   nav_panel(
@@ -387,7 +395,42 @@ ui <- page_navbar(
   ),
   nav_menu(
     "Data",
-    nav_panel("What We Track"),
+    nav_panel(
+      "What We Track",
+      layout_columns(
+        col_widths = 12,
+        layout_column_wrap(
+          width = 1 / 4,
+          card(),
+          card(),
+          card(),
+          card()
+        ),
+        layout_columns(
+          col_widths = 6,
+          layout_columns(
+            col_widths = 12,
+            card(card_header("HURDAT2 Integration")),
+            card(card_header("Economic Data")),
+            card(card_header("Population and Housing Growth")),
+            card(card_header("Social Vulnerability"))
+          ),
+          navset_card_tab(
+            height = 600,
+            title = "Geographic Data Coverage",
+            nav_panel(
+              "Cost"
+            ),
+            nav_panel(
+              "Fatality"
+            ),
+            nav_panel(
+              "SVI"
+            )
+          )
+        )
+      )
+    ),
     nav_panel("Export")
   ),
   nav_menu(