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

## ----id-equivalence-----------------------------------------------------------
# table_data <- statcan_data("10-10-0001-01", "eng")
# table_data <- statcan_data("10100001", "eng")

## ----install------------------------------------------------------------------
# install.packages("statcanR")

## ----setup--------------------------------------------------------------------
# library(statcanR)

## ----version------------------------------------------------------------------
# packageVersion("statcanR")

## ----find-eng-----------------------------------------------------------------
# matches <- statcan_find(
#   "R&D expenditures in Quebec since 2020",
#   lang = "eng",
#   n = 5
# )
# 
# matches[, c("title", "id", "score", "match_reason")]

## ----find-fra-----------------------------------------------------------------
# matches_fr <- statcan_find(
#   "Dépenses de R-D au Québec depuis 2020",
#   lang = "fra"
# )

## ----search-eng---------------------------------------------------------------
# statcan_search(
#   c("federal", "expenditures", "objectives"),
#   lang = "eng"
# )

## ----search-broad-------------------------------------------------------------
# statcan_search("expenditures", lang = "eng")

## ----search-fra---------------------------------------------------------------
# statcan_search(c("dépenses", "fédérales"), lang = "fra")

## ----search-refresh-----------------------------------------------------------
# statcan_find(
#   "population in Alberta since 2021",
#   lang = "eng",
#   refresh = TRUE
# )

## ----data-eng-----------------------------------------------------------------
# table_data <- statcan_data("10-10-0001-01", lang = "eng")

## ----inspect------------------------------------------------------------------
# dim(table_data)
# names(table_data)
# head(table_data)

## ----subset-------------------------------------------------------------------
# recent_data <- table_data[
#   !is.na(table_data$REF_DATE) &
#     table_data$REF_DATE >= as.Date("2020-01-01"),
# ]

## ----data-fra-----------------------------------------------------------------
# table_fr <- statcan_data("10-10-0001-01", lang = "fra")

## ----save-default-------------------------------------------------------------
# table_data <- statcan_download_data("10-10-0001-01", "eng")
# getwd()

## ----save-path----------------------------------------------------------------
# output_dir <- file.path(tempdir(), "statcanR-data")
# dir.create(output_dir, recursive = TRUE, showWarnings = FALSE)
# 
# table_data <- statcan_download_data(
#   "10-10-0001-01",
#   "eng",
#   path = output_dir
# )
# 
# attr(table_data, "statcan_file")

## ----compatibility------------------------------------------------------------
# # This familiar two-argument form remains valid.
# table_data <- statcan_data("10-10-0001-01", "eng")
# 
# # This also remains valid and saves into the working directory.
# table_data <- statcan_download_data("10-10-0001-01", "eng")

## ----citation-----------------------------------------------------------------
# citation("statcanR")