update naming scheme for hubs

O957 · O957 · commit a0b1c06846c7 · 2025-09-15T10:29:42.000-04:00
diff --git a/R/generate_hub_baselines.R b/R/generate_hub_baselines.R
@@ -207,9 +207,11 @@ generate_hub_baseline <- function(
     )
   }
 
-  baseline_model_name <- glue::glue(
-    "{stringr::str_to_title(disease)}Hub-baseline"
+  hub_name <- dplyr::case_when(
+    disease == "covid" ~ "CovidHub",
+    disease == "rsv" ~ "RSVHub"
   )
+  baseline_model_name <- glue::glue("{hub_name}-baseline")
   output_dirpath <- fs::path(base_hub_path, "model-output", baseline_model_name)
   if (!fs::dir_exists(output_dirpath)) {
     fs::dir_create(output_dirpath, recurse = TRUE)
diff --git a/R/generate_hub_ensemble.R b/R/generate_hub_ensemble.R
@@ -99,7 +99,10 @@ generate_hub_ensemble <- function(
     )
   }
 
-  hub_name <- glue::glue("{stringr::str_to_title(disease)}Hub")
+  hub_name <- dplyr::case_when(
+    disease == "covid" ~ "CovidHub",
+    disease == "rsv" ~ "RSVHub"
+  )
   ensemble_model_name <- glue::glue("{hub_name}-ensemble")
 
   output_dirpath <- fs::path(base_hub_path, "model-output", ensemble_model_name)

Original file line number	Diff line number	Diff line change
`@@ -207,9 +207,11 @@ generate_hub_baseline <- function(`
`207`	`207`	`)`
`208`	`208`	`}`
`209`	`209`
`210`		`- baseline_model_name <- glue::glue(`
`211`		`- "{stringr::str_to_title(disease)}Hub-baseline"`
	`210`	`+ hub_name <- dplyr::case_when(`
	`211`	`+ disease == "covid" ~ "CovidHub",`
	`212`	`+ disease == "rsv" ~ "RSVHub"`
`212`	`213`	`)`
	`214`	`+ baseline_model_name <- glue::glue("{hub_name}-baseline")`
`213`	`215`	`output_dirpath <- fs::path(base_hub_path, "model-output", baseline_model_name)`
`214`	`216`	`if (!fs::dir_exists(output_dirpath)) {`
`215`	`217`	`fs::dir_create(output_dirpath, recurse = TRUE)`
Original file line number	Diff line number	Diff line change
`@@ -99,7 +99,10 @@ generate_hub_ensemble <- function(`
`99`	`99`	`)`
`100`	`100`	`}`
`101`	`101`
`102`		`- hub_name <- glue::glue("{stringr::str_to_title(disease)}Hub")`
	`102`	`+ hub_name <- dplyr::case_when(`
	`103`	`+ disease == "covid" ~ "CovidHub",`
	`104`	`+ disease == "rsv" ~ "RSVHub"`
	`105`	`+ )`
`103`	`106`	`ensemble_model_name <- glue::glue("{hub_name}-ensemble")`
`104`	`107`
`105`	`108`	`output_dirpath <- fs::path(base_hub_path, "model-output", ensemble_model_name)`