list diseases in multi epidist print method epiverse-trace#302 epiver…

…se-trace#277
PaulC91 · May 16, 2024 · 1ed7046 · 1ed7046
1 parent 7f69ecf
commit 1ed7046
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/epidist_db.R b/R/epidist_db.R
@@ -604,6 +604,12 @@ print.multi_epidist <- function(x, ...) {
               FUN.VALUE = logical(1)
             )
           )
+        ),
+        sprintf(
+          "\n  Diseases available:\n  %s",
+          paste(sort(unique(
+            vapply(x, function(y) y$disease, FUN.VALUE = character(1))
+          )), collapse = "\n  ")
         )
       )
     )