add SARS to disease lookup in .epireview_to_epiparameter

epiverse-trace · Oct 24, 2024 · 9e385f7 · 9e385f7
1 parent cd5c11e
commit 9e385f7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/coercion.R b/R/coercion.R
@@ -258,12 +258,12 @@ is_epiparameter_df <- function(x) {
 
   pathogen <- .unique(x$pathogen, var_name = "pathogen")
   # get disease from pathogen lookup
-  disease <- switch(
-    pathogen,
+  disease <- switch(pathogen,
     "Marburg virus" = "Marburg Virus Disease",
     "Lassa mammarenavirus" = "Lassa fever",
     "Ebola virus" = "Ebola Virus Disease",
-    stop("Pathogen in epireview not recognised", call. = FALSE)
+    "SARS-CoV" = "Severe Acute Respiratory Syndrome (SARS)",
+    stop("Pathogen in {epireview} not recognised", call. = FALSE)
   )
   epi_name <- .unique(x$parameter_type, var_name = "parameter types")
   prob_dist <- .unique(x$distribution_type, var_name = "distribution types")