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

## ----setup--------------------------------------------------------------------
library(perufaunads004)
library(dplyr)

## ----parse-demo---------------------------------------------------------------
nombres_inventario <- c(
  "Tremarctos ornatus (F. Cuvier, 1825)",
  "Telmatobius culeus (Garman, 1876)",
  "Lama guanicoe cacsilensis Lönnberg, 1913",
  "Penelope albipennis Taczanowski 1878",
  "Tingomaria hydrophila"
)

clasificacion <- ds004_classify_spnames(nombres_inventario)
clasificacion |>
  select(submitted_name, genus, species, subspecies, authorship)

## ----matching-demo------------------------------------------------------------
lista_campo <- c(
  "Tremarctos ornatus",    # Exacto (Oso de anteojos - VU)
  "Oreonax flavicauda",    # Sinónimo de Lagothrix flavicauda (Mono choro de cola amarilla - CR)
  "Vultor gryphus",        # Error tipográfico por Vultur gryphus (Cóndor andino - EN)
  "Telmatobius culeus",    # Rana gigante del Titicaca (CR)
  "Sulcophanaeus actaeon", # Escarabajo pelotero (CR)
  "Panthera leo"           # Especie no listada en la fauna amenazada peruana
)

resultado_matching <- fauna_matching(lista_campo)

resultado_matching |>
  select(
    submitted_name,
    matched_name,
    match_type,
    ds004_code,
    libro_rojo_code,
    clase,
    common_name
  )

## ----threatened-demo----------------------------------------------------------
especies_prueba <- c("Tremarctos ornatus", "Panthera leo", "Penelope albipennis", "Columba livia")

is_threatened(especies_prueba)

## ----ficha-demo---------------------------------------------------------------
# Consulta de la monografía de la Pava aliblanca (Penelope albipennis)
ficha_pava <- get_ficha("Penelope albipennis")

cat("Especie:", ficha_pava$species_name, "\n")
cat("Categoría y Criterios UICN:", ficha_pava$ficha_categoria, "\n")
cat("Autores:", ficha_pava$autores, "\n\n")
cat("Distribución:\n", ficha_pava$distribucion, "\n\n")
cat("Principales Amenazas:\n", ficha_pava$amenazas, "\n")