chore: add a default title for unnamed cards

Author: averissimo

R/Reporter.R

@@ -212,12 +212,13 @@ Reporter <- R6::R6Class( # nolint: object_name_linter.
           if (idx != length(cards)) blocks <- append(blocks, sep)
           next # Easier to remove when ReportCard is fully deprecated
         }
-        card_with_title <- if (length(metadata(card, "title")) > 0) {
-          c(report_document(sprintf("# %s", metadata(card, "title"))), card)
+        title <- trimws(metadata(card, "title"))
+        card_title <- if (length(title) > 0 && nzchar(title)) {
+          report_document(sprintf("# %s", title))
         } else {
-          card
+          report_document(sprintf("# _Unnamed Card (%d)_", idx))
         }
-
+        card_with_title <- c(card_title, card)
         blocks <- append(blocks, unclass(card_with_title))
         if (idx != length(cards)) blocks <- append(blocks, trimws(sep))
       }