Reporting ABS Time Series Data

library(reportabs)
labour_force <- read_absdata("labour_force")

average_over(data = labour_force, filter_with = list(indicator = "Employed total"), between = c("2010-01-01", "2020-01-01"))
#> [1] 11793.72

change(data = labour_force, filter_with = list(indicator = "Employed total"))
#> [1] "increased by 358 (2.5%) to 14,622"

Numbers can be formatted nicely for inclusion in documents using as_comma(), as_percent() and as_percentage_point().