diff --git a/R/epidist_db.R b/R/epidist_db.R index 69c00330e..3f2ea0199 100644 --- 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 ") ) ) )