Agency Program Activities

Functions to retrieve program activity information for federal agencies, including details and counts.

Usage

agency_program_activity(
  toptier_code,
  fiscal_year = NULL,
  .page_all = FALSE,
  ...
)

agency_program_activity_count(
  toptier_code,
  fiscal_year = NULL,
  .page_all = FALSE,
  ...
)

Arguments

toptier_code

A character string containing a 3-4 digit numeric code that uniquely identifies a top-tier federal agency (e.g., "086" for Department of Housing and Urban Development). Must be a valid CGAC (Common Government-wide Accounting Classification) or FREC (Federal Record Classification) code.

fiscal_year

Optional numeric value specifying the fiscal year for the query. If NULL (default), the API will use the current fiscal year. Must be 2017 or later.

.page_all

Logical indicating whether to retrieve all pages of results (TRUE) or just the first page (FALSE, default). When TRUE, the function will automatically handle pagination to retrieve the complete dataset.

...

Additional parameters passed to specific API endpoints. Common options include:

• page: Integer specifying the page number to retrieve (default: 1)

• limit: Integer specifying number of records per page (default: 10)

• sort: Field to sort results by (varies by endpoint)

• order: Sort direction: "asc" or "desc" (default varies by endpoint)

Value

Each function returns a tibble with different structures:

• agency_program_activity() returns:

  • name: Program activity name

  • obligated_amount: Amount obligated

  • gross_outlay_amount: Gross outlay amount

• agency_program_activity_count() returns:

  • toptier_code: Agency identifier code

  • fiscal_year: Fiscal year

  • program_activity_count: Number of program activities

See also

agency_object_class(), agency_treasury_account_program_activity()

Examples

if (FALSE) { # interactive()
# Get program activities for HUD
programs <- agency_program_activity("086", 
                                   fiscal_year = 2023,
                                   .page_all = TRUE)

# Get program activity counts
program_counts <- agency_program_activity_count("086", fiscal_year = 2023)
}