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

## ----setup, message = FALSE---------------------------------------------------
library(citesperu)
library(dplyr)

## -----------------------------------------------------------------------------
# Ejemplo: Especies de fauna peruana en Apéndice I que están amenazadas nacionalmente
data(cites_fauna_peru_2023)

cites_fauna_peru_2023 %>%
  filter(apendice == "I", !is.na(categoria_nacional), categoria_nacional != "-") %>%
  select(especie = especie_nombre_cientifico, clase, apendice, categoria_nacional, uicn) %>%
  head(6)

## -----------------------------------------------------------------------------
data(cites_fauna_peru_2018)

# Distribución por apéndices en el compendio oficial 2018 (columna 'ap')
table(cites_fauna_peru_2018$ap, useNA = "ifany")

## -----------------------------------------------------------------------------
data(codigos_departamentos_pe)
head(codigos_departamentos_pe, 8)