% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/welfare.R
\name{get_welfare_spending}
\alias{get_welfare_spending}
\title{Get working-age welfare spending}
\usage{
get_welfare_spending(refresh = FALSE)
}
\arguments{
\item{refresh}{Logical. If \code{TRUE}, re-download even if a cached copy
exists. Defaults to \code{FALSE}.}
}
\value{
An \code{obr_tbl} with the standard v0.4.0 schema (columns:
\code{period}, \code{period_type}, \code{series}, \code{metric_type}, \code{value}, \code{unit}).
Values are spending as a percentage of GDP; \code{metric_type} is \code{"pct"},
\code{unit} is \code{"pct"}.
}
\description{
Downloads (and caches) the OBR Welfare Trends Report charts and tables
workbook and returns annual working-age welfare spending as a share of
GDP, split into incapacity-related and non-incapacity spending.
}
\details{
Data cover fiscal years from 1978-79 through the current forecast horizon.
The exact vintage is recorded in the returned object's provenance.
}
\examples{
\donttest{
op <- options(obr.cache_dir = tempdir())
try({
  welfare <- get_welfare_spending()
  welfare[welfare$series == "Working-age incapacity benefits spending" &
  welfare$period >= "2000-01", ]
})
options(op)
}

}
\seealso{
Other welfare: 
\code{\link{get_incapacity_caseloads}()},
\code{\link{get_incapacity_spending}()}
}
\concept{welfare}
