fix country reports (#2956)

european-modelling-hubs · Mar 29, 2023 · 55febf8 · 55febf8
1 parent 30907cb
commit 55febf8
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 237,293 deletions.
diff --git a/code/evaluation/aggregate_scores.r b/code/evaluation/aggregate_scores.r
@@ -80,12 +80,16 @@ for (chr_report_date in as.character(report_dates)) {
     )
   }
 
-  combined_table <- bind_rows(tables, .id = "weeks_included") %>%
-    mutate(weeks_included = recode(weeks_included, `Inf` = "All"))
-  eval_filename <-
-    here::here(subdir, "evaluation", "weekly-summary",
-	       paste0("evaluation-", report_date, ".csv"))
+  combined_table <- bind_rows(tables, .id = "weeks_included")
+  if (nrow(combined_table) > 0) {
+    combined_table <- combined_table |>
+      mutate(weeks_included = recode(weeks_included, `Inf` = "All"))
+  }
+
+  eval_filename <- here::here(
+    subdir, "evaluation", "weekly-summary",
+    paste0("evaluation-", report_date, ".csv")
+  )
 
   write_csv(combined_table, eval_filename)
 }
-
diff --git a/code/reports/rmdchunks/plot-forecasts.Rmd b/code/reports/rmdchunks/plot-forecasts.Rmd
@@ -82,7 +82,7 @@ for (fcast_date in as.character(forecast_dates)) {
     plot_data <- scaled_data |>
       filter(
         target_variable == target_variables[[target]],
-        is.na(model) | model == compare_model,
+        model == compare_model,
         target_end_date >= fcast_date - weeks(10),
         target_end_date < fcast_date + weeks(4)
       ) |>