## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(ato)

## -----------------------------------------------------------------------------
cpi <- ato_crosswalk("cpi")
cpi[cpi$financial_year %in% c("2012-13", "2022-23"), ]

## -----------------------------------------------------------------------------
ato_deflate(100, year = "2012-13", base = "2022-23")

## -----------------------------------------------------------------------------
ato_deflate(100, year = "2022-23", base = "2022-23")

## -----------------------------------------------------------------------------
bud <- ato_crosswalk("budget")
bud[bud$financial_year == "2022-23" &
    bud$measure == "individuals_income_tax_net", ]

## -----------------------------------------------------------------------------
res <- ato_reconcile(310.0e9, "2022-23", "individuals_income_tax_net")
res[, c("diff_aud", "pct_diff")]

## -----------------------------------------------------------------------------
res <- tryCatch(
  ato_reconcile(400e9, "2022-23", "individuals_income_tax_net"),
  warning = function(w) {
    message("Captured warning: ", conditionMessage(w))
    NULL
  }
)

## -----------------------------------------------------------------------------
erp <- ato_crosswalk("erp")
erp[erp$financial_year == "2022-23", ]

## -----------------------------------------------------------------------------
ato_per_capita(316.4e9, "2022-23")

## -----------------------------------------------------------------------------
f <- tempfile()
file.create(f)
ato_sha256(f)