feat(print.epi_df): display decay_to_tibble attr if non-NULL

cmu-delphi · Jun 21, 2024 · 1cf296e · 1cf296e
1 parent b1c40d4
commit 1cf296e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/methods-epi_df.R b/R/methods-epi_df.R
@@ -60,6 +60,8 @@ print.epi_df <- function(x, ...) {
   cat(sprintf("* %-9s = %s\n", "geo_type", attributes(x)$metadata$geo_type))
   cat(sprintf("* %-9s = %s\n", "time_type", attributes(x)$metadata$time_type))
   cat(sprintf("* %-9s = %s\n", "as_of", attributes(x)$metadata$as_of))
+  # Conditional output (silent if attribute is NULL):
+  cat(sprintf("* %-9s = %s\n", "decay_to_tibble", attr(x, "decay_to_tibble")))
   cat("\n")
   NextMethod()
 }