Append the model descriptions to the plot data

vignettes/benchmarks.Rmd.orig

@@ -605,6 +605,12 @@ rt_crps_full <- merge.data.table(
   by = "model"
 )
 
+# Add model descriptions
+rt_crps_full <- merge.data.table(
+  rt_crps_full,
+  model_descriptions,
+  by = "model"
+)
 # Replace the snapshot dates with their description
 # Replace snapshot_date based on the dictionary
 rt_crps_full[, epidemic_phase := names(snapshot_date_names)[
@@ -661,6 +667,13 @@ infections_crps_full <- merge.data.table(
   by = "model"
 )
 
+# Add model descriptions
+infections_crps_full <- merge.data.table(
+  infections_crps_full,
+  model_descriptions,
+  by = "model"
+)
+
 # Replace the snapshot dates with their description
 # Replace snapshot_date based on the dictionary
 infections_crps_full[,epidemic_phase := names(snapshot_date_names)[