Agency Pulse: Grantmaking at NIH

this_year_label = "{group}FY{year} {metric} as of {asOf}"
avg_label = "{group}FY{range} average {metric} on this day"

// One icon per *kind of number*, page-wide: a count is a count whether it's
// broken out by state, institute, mechanism or activity, so they all get the
// same grid glyph rather than a decorative per-section one. Money gets the
// payments glyph. Any Iconify name works -- the site registers <iconify-icon>
// globally -- but reach for Carbon first, and only fall back to Material
// Symbols' flat `-sharp` variants where Carbon has no equivalent glyph. Both
// sit with the brand's flat styling where Bootstrap Icons' rounded strokes
// don't.
count_icon = "carbon:grid"
cost_icon = "carbon:money"

// The stat boxes fundingCurveStatBoxes() builds, iconed by whether the active
// metric is money. Spread into its options: {...statBoxIcons(is_cost)}
statBoxIcons = (isCost) => ({
  thisYearIcon: isCost ? cost_icon : count_icon,
  avgIcon: isCost ? cost_icon : count_icon
})

// This page shows three boxes per section: this year so far, the prior-years
// average, and the % change between them. Last year's same-day figure is
// dropped -- it's the one number the chart itself already reads off at a
// glance, and three boxes fit one row at every width. fundingCurveStatBoxes()
// emits a box per non-null field of `stats`, so removing the field is the
// whole edit; nothing downstream has to know which box is which.
dropLastYear = (stats) => ({ ...stats, lastYear: null })

// A 3rd box: % change of "this year so far" vs. the prior-years average
// above. This is a derived comparison, not a value read straight off the
// data, so it's computed here rather than in gwtools -- an up arrow for a
// positive change, a down arrow for a negative one. `group` should match
// whatever prefix the chart's other three boxes use.
pctDiffBox = (stats, group = "") => {
  const pct = stats.priorAvg.value
    ? (stats.thisYear.value - stats.priorAvg.value) / stats.priorAvg.value
    : null;
  return {
    icon: pct == null ? "carbon:subtract" : pct >= 0 ? "carbon:arrow-up-right" : "carbon:arrow-down-right",
    value: pct == null ? "—" : formatPercent(pct),
    title: `${group}% change vs. average`
  };
}

overview_selection = fundingCurveWatch(document.getElementById("overview-widget"))
overview_is_cost = overview_selection.metric.value === "cost"
// .thisYear: latest running total on record for the FY in progress now.
// .lastYear: last year's running total on the SAME day of its own FY --
// dropped from the boxes here (see dropLastYear above), still on the chart.
// .priorAvg: mean of that same day-of-FY figure across every year <= 2024
// (fixed, not "N years back" -- see fundingCurveYearStats()'s own doc).
overview_stats = fundingCurveYearStats(overview_selection.rows, { valueField: overview_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(overview_stats), {
    formatValue: resolveValueFormat(overview_selection.metric.valueFormat),
    metric: overview_selection.metric.label,
    ...statBoxIcons(overview_is_cost),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(overview_stats)
], { columns: 3 })

award_type_selection = fundingCurveWatch(document.getElementById("award-type-widget"))
award_type_stats = fundingCurveYearStats(award_type_selection.rows, { valueField: award_type_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(award_type_stats), {
    formatValue: resolveValueFormat(award_type_selection.metric.valueFormat),
    metric: award_type_selection.metric.label,
    // Both award-type metrics are counts, so never the money icon.
    ...statBoxIcons(false),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(award_type_stats)
], { columns: 3 })

state_selection = fundingCurveWatch(document.getElementById("state-widget"))
state_is_cost = state_selection.metric.value === "cost"

state_stats = fundingCurveYearStats(state_selection.rows, { valueField: state_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(state_stats), {
    formatValue: resolveValueFormat(state_selection.metric.valueFormat),
    group: `${state_selection.labels.State}: `,
    metric: state_selection.metric.label,
    ...statBoxIcons(state_is_cost),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(state_stats, `${state_selection.labels.State}: `)
], { columns: 3 })

md`Currently showing **${state_selection.labels.Grant_Type}** ${state_selection.metric.label.toLowerCase()} for **${state_selection.labels.State}**.`

ic_selection = fundingCurveWatch(document.getElementById("ic-widget"))
ic_is_cost = ic_selection.metric.value === "cost"

ic_stats = fundingCurveYearStats(ic_selection.rows, { valueField: ic_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(ic_stats), {
    formatValue: resolveValueFormat(ic_selection.metric.valueFormat),
    group: `${ic_selection.labels.IC}: `,
    metric: ic_selection.metric.label,
    ...statBoxIcons(ic_is_cost),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(ic_stats, `${ic_selection.labels.IC}: `)
], { columns: 3 })

md`Currently showing **${ic_selection.labels.Grant_Type}** ${ic_selection.metric.label.toLowerCase()} for **${ic_selection.labels.IC}**.`

mechanism_selection = fundingCurveWatch(document.getElementById("mechanism-widget"))
mechanism_is_cost = mechanism_selection.metric.value === "cost"

mechanism_stats = fundingCurveYearStats(mechanism_selection.rows, { valueField: mechanism_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(mechanism_stats), {
    formatValue: resolveValueFormat(mechanism_selection.metric.valueFormat),
    group: `${mechanism_selection.labels.Mechanism}: `,
    metric: mechanism_selection.metric.label,
    ...statBoxIcons(mechanism_is_cost),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(mechanism_stats, `${mechanism_selection.labels.Mechanism}: `)
], { columns: 3 })

md`Currently showing **${mechanism_selection.labels.Grant_Type}** ${mechanism_selection.metric.label.toLowerCase()} for **${mechanism_selection.labels.Mechanism}**.`

activity_selection = fundingCurveWatch(document.getElementById("activity-widget"))
activity_is_cost = activity_selection.metric.value === "cost"

activity_stats = fundingCurveYearStats(activity_selection.rows, { valueField: activity_selection.metric.y })
fundingCurveValueBoxes([
  ...fundingCurveStatBoxes(dropLastYear(activity_stats), {
    formatValue: resolveValueFormat(activity_selection.metric.valueFormat),
    group: `${activity_selection.labels.Activity}: `,
    metric: activity_selection.metric.label,
    ...statBoxIcons(activity_is_cost),
    thisYearLabel: this_year_label,
    avgLabel: avg_label
  }),
  pctDiffBox(activity_stats, `${activity_selection.labels.Activity}: `)
], { columns: 3 })

md`Currently showing **${activity_selection.labels.Grant_Type}** ${activity_selection.metric.label.toLowerCase()} for **${activity_selection.labels.Activity}**.`