Skip to contents
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.71
change(data = labour_force, filter_with = list(indicator = "Employed total"))
#> [1] "increased by 332 (2.3%) to 14,637"

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