forecaster options must be unique

Author: nmdefries

run.R

@@ -119,15 +119,15 @@ if (use_shiny == "y") {
   )
 
   # Add ensembles
-  ensemble_options <- tar_read(ensemble_forecasters)[["parent_id"]]
+  ensemble_options <- unique(tar_read(ensemble_forecasters)[["parent_id"]])
   ensemble_options <- setNames(
     # File names
     paste0("ensemble_score_", ensemble_options),
     # Display names
     paste0("ensemble.", ensemble_options)
   )
 
-  external_options <- tar_read(external_names)
+  external_options <- unique(tar_read(external_names))
   EXTERNAL_PREFIX <- "[external] "
   if (!is.null(external_options) && length(external_options) > 0) {
     external_options <- setNames(