## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = identical(Sys.getenv("INEPTR2_BUILD_VIGNETTES"), "true")
)

## -----------------------------------------------------------------------------
library(ineptr2)

## -----------------------------------------------------------------------------
ine <- INEClient$new(lang = "EN")
ine

## -----------------------------------------------------------------------------
ine$lang <- "PT"
ine$lang <- "EN"

## -----------------------------------------------------------------------------
ine$info("0008273")

## -----------------------------------------------------------------------------
ine$get_dim_info("0008273")

## -----------------------------------------------------------------------------
# All dimensions
vals <- ine$get_dim_values("0008273")
head(vals)

# Only dimensions 1 and 3
ine$get_dim_values("0008273", dims = c(1, 3))

## -----------------------------------------------------------------------------
ine$preview_chunks("0008206")

## -----------------------------------------------------------------------------
ine$preview_chunks("0008206", dim1 = "S7A2023")

## -----------------------------------------------------------------------------
df <- ine$get_data("0008273", dim1 = "S7A2023", dim2 = c("PT", "1", "2", "3"))
head(df)

## -----------------------------------------------------------------------------
ine$use_cache <- TRUE
ine$cache_dir <- file.path(tempdir(), "ineptr2_vignette")
ine$download_data("0008273", dim1 = "S7A2023")

## -----------------------------------------------------------------------------
raw <- ine$load_raw_data("0008273")
str(raw, max.level = 2)

## -----------------------------------------------------------------------------
ine$use_cache <- TRUE

## -----------------------------------------------------------------------------
ine$is_updated("0008273", metadata = ine$get_metadata("0008273"))
# OR
ine$is_updated("0008273", last_updated = "2024-01-01")

## -----------------------------------------------------------------------------
ine$is_valid("0008273")
ine$is_valid("0000000")

## -----------------------------------------------------------------------------
ine_pt <- INEClient$new(lang = "PT")
ine_pt$info("0008273")

## -----------------------------------------------------------------------------
# cleanup - single indicator
ine$clear_cache("0008273")

# everything
# WARNING: This will remove `cache_dir` and all its contents.
ine$clear_cache()