# Baixa Legacy CAGED para Nordeste (2015–2019)
nordeste <- c("MA", "PI", "CE", "RN", "PB", "PE", "AL", "SE", "BA")
caged_load(
years = 2015:2019,
db_path = "caged_historico.duckdb"
)
con <- caged_connect("caged_historico.duckdb")
# Evolução anual do saldo formal no Nordeste
tbl(con, "caged_antigo") |>
mutate(ano = as.integer(substr(as.character(competencia), 1, 4))) |>
group_by(ano, uf) |>
summarise(saldo = sum(saldomovimentacao, na.rm = TRUE)) |>
collect() |>
tidyr::pivot_wider(names_from = uf, values_from = saldo)
DBI::dbDisconnect(con, shutdown = TRUE)