dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

add proper badges in storm selector table

Browse Source
This commit is contained in:
dylan
2026-04-07 20:33:05 -04:00
parent 0fd3d836b9
commit 3d87a5b07d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/server.R
+3 -2
View File
@@ -11,14 +11,15 @@ server <- function(input, output, session) {
mutate( mutate(
., .,
data = trimws(paste( data = trimws(paste(
"<span class=\"badge bg-primary\">HURDAT2</span>",
ifelse( ifelse(
as.logical(.data[[col_names[3]]]), as.logical(.data[[col_names[3]]]),
"Fatality", "<span class=\"badge bg-danger\">Fatality</span>",
"" ""
), ),
ifelse( ifelse(
as.logical(.data[[col_names[4]]]), as.logical(.data[[col_names[4]]]),
"Cost", "<span class=\"badge bg-success\">Cost</span>",
"" ""
) )
)) ))