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( + "HURDAT2", ifelse( as.logical(.data[[col_names[3]]]), - "Fatality", + "Fatality", "" ), ifelse( as.logical(.data[[col_names[4]]]), - "Cost", + "Cost", "" ) ))