add proper badges in storm selector table

2026-07-30 05:08:57 +00:00 · 2026-04-07 20:33:05 -04:00
parent 0fd3d836b9
commit 3d87a5b07d
1 changed files with 3 additions and 2 deletions
@@ -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>",
            ""
          )
        ))