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

## ----eval=FALSE---------------------------------------------------------------
# # download treated forest crops data at the state level for 2019
# forest_crops <- load_pevs(
#   dataset = "pevs_forest_crops",
#   raw_data = FALSE,
#   geo_level = "state",
#   time_period = 2019,
#   language = "eng"
# )

## ----eval=FALSE---------------------------------------------------------------
# # download treated silviculture area data at the state level for 2013 to 2019
# silvi_area <- load_pevs(
#   dataset = "pevs_silviculture_area",
#   raw_data = FALSE,
#   geo_level = "state",
#   time_period = 2013:2019,
#   language = "eng"
# )

## ----eval=FALSE---------------------------------------------------------------
# # download treated silviculture production data at the region level for 2019
# silvi_prod <- load_pevs(
#   dataset = "pevs_silviculture",
#   raw_data = FALSE,
#   geo_level = "region",
#   time_period = 2019,
#   language = "eng"
# )