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

## -----------------------------------------------------------------------------
library(raisr)

## -----------------------------------------------------------------------------
f <- system.file("extdata", "2022", "RAIS_VINC_PUB_NORDESTE_sample.7z", package = "raisr")
a <- rais_read(f, chunk_size = 5L, verbose = FALSE)
b <- rais_read(f, chunk_size = 100000L, verbose = FALSE)
identical(a, b)

## -----------------------------------------------------------------------------
new <- rais_read(system.file("extdata", "2024", "RAIS_VINC_PUB_NORDESTE_sample.7z", package = "raisr"),
                 columns = c("municipio", "vinculo_ativo_31_12", "vl_remun_media_nom"), verbose = FALSE)
old <- rais_read(f, columns = c("municipio", "vinculo_ativo_31_12", "vl_remun_media_nom"), verbose = FALSE)
rais_stock(rbind(new, old))

## -----------------------------------------------------------------------------
subset(rais_layout(), original != original_2023)[, c("column", "original", "original_2023")]

## ----eval = FALSE-------------------------------------------------------------
# Sys.setenv(RAISR_CACHE_DIR = "~/dados/rais")
# rais_cache_list()
# rais_cache_clear(2019)      # drop one year

## -----------------------------------------------------------------------------
rais_files(2023, uf = "PE", edition = "legado")$url