From 3d87a5b07d11804bcd696d0e19b9289d24958a06 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Tue, 7 Apr 2026 20:33:05 -0400
Subject: [PATCH] add proper badges in storm selector table

---
 app/server.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/app/server.R b/app/server.R
index 6df8a81..534bcc9 100644
--- a/app/server.R
+++ b/app/server.R
@@ -11,14 +11,15 @@ server <- function(input, output, session) {
       mutate(
         .,
         data = trimws(paste(
+          "<span class=\"badge bg-primary\">HURDAT2</span>",
           ifelse(
             as.logical(.data[[col_names[3]]]),
-            "Fatality",
+            "<span class=\"badge bg-danger\">Fatality</span>",
             ""
           ),
           ifelse(
             as.logical(.data[[col_names[4]]]),
-            "Cost",
+            "<span class=\"badge bg-success\">Cost</span>",
             ""
           )
         ))