feat(explain): render new per-capita provenance fields

cog_explain() now prints denominator_source, popyear_range, and pop_source_counts under the Transformations section.
2026-04-29 19:02:37 -04:00
parent a2ced368f5
commit 916212c327
2 changed files with 25 additions and 0 deletions
@@ -30,3 +30,18 @@ test_that("cog_explain errors on non-verb input", {
  df <- tibble::tibble(a = 1)
  expect_error(cog_explain(df), "provenance")
 })
+
+test_that("cog_explain prints denominator + popyear_range + counts", {
+  skip_if_no_corpus()
+  with_fixture_corpus({
+    r <- cog_spending("101006006", years = 2019:2020,
+                      category = "Police", per_capita = TRUE)
+    out <- paste(c(
+      capture.output(cog_explain(r)),
+      capture.output(cog_explain(r), type = "message")
+    ), collapse = "\n")
+    expect_true(grepl("Census F-33", out))
+    expect_true(grepl("popyear", out, ignore.case = TRUE))
+    expect_true(grepl("census_f33", out))
+  })
+})