Merge pull request #180 from cmu-delphi/enable-hosp-scalebybaseline

Re-enable scaleByBaseline for hospitalizations

Author: nmdefries

app/server.R

@@ -243,7 +243,7 @@ server <- function(input, output, session) {
     filteredScoreDf <- filteredScoreDf[c("Forecaster", "Forecast_Date", "Week_End_Date", "Score", "ahead")]
     filteredScoreDf <- filteredScoreDf %>% mutate(across(where(is.numeric), ~ round(., 2)))
     if (input$scoreType != "coverage") {
-      if (input$scaleByBaseline && input$targetVariable != "Hospitalizations") {
+      if (input$scaleByBaseline) {
         baselineDf <- filteredScoreDf %>% filter(Forecaster %in% "COVIDhub-baseline")
         filteredScoreDfMerged <- merge(filteredScoreDf, baselineDf, by = c("Week_End_Date", "ahead"))
         # Scaling score by baseline forecaster