ecological-agent-skills 3.1.0

package/skills/ecological-data-foundation/scripts/download_from_inat.py

@@ -0,0 +1,304 @@
+# ecological-agent-skills / Copyright (C) 2026 Francisco Diego Barros Barata
+# SPDX-License-Identifier: GPL-3.0-or-later
+
+"""Download occurrence records from iNaturalist via pyinaturalist.
+
+Usage: python download_from_inat.py <species_name_or_list_csv> <output_dir> [year_from] [year_to] [quality_grade]
+
+Arguments:
+    species_name_or_list_csv : Species name (e.g., "Panthera onca") or path to CSV
+                               with column 'scientificName'
+    output_dir               : Directory for outputs (created if absent)
+    year_from                : Minimum observation year (default: 2000)
+    year_to                  : Maximum observation year (default: current year)
+    quality_grade            : 'research' or 'any' (default: 'research')
+
+Outputs (per species):
+    occurrences_raw_iNat_{species}_{date}.csv  — standardised occurrence records
+    download_metadata_iNat_{species}.txt        — download provenance and citation
+
+Standard output schema:
+    species, decimalLatitude, decimalLongitude, eventDate, countryCode,
+    basisOfRecord, coordinateUncertaintyInMeters, datasetName, occurrenceID,
+    source, download_doi
+"""
+
+import logging
+import sys
+from datetime import datetime
+from pathlib import Path
+
+SKILL_NAME = "ecological-data-foundation"
+_LOG_DIR   = Path("logs")
+_LOG_DIR.mkdir(parents=True, exist_ok=True)
+_log_file  = _LOG_DIR / f"skill_{SKILL_NAME}_{datetime.now().strftime('%Y%m%d_%H%M%S')}.log"
+logging.basicConfig(
+    level=logging.INFO,
+    format="[%(asctime)s] [%(levelname)s] [" + SKILL_NAME + "] %(message)s",
+    datefmt="%Y-%m-%d %H:%M:%S",
+    handlers=[
+        logging.StreamHandler(sys.stdout),
+        logging.FileHandler(_log_file, encoding="utf-8"),
+    ],
+)
+logger = logging.getLogger(SKILL_NAME)
+
+def log_step(n: int, desc: str) -> None:
+    logger.info("-- STEP %d: %s", n, desc)
+
+def log_decision(var: str, val, why: str) -> None:
+    logger.info("DECISION | %s = %s | %s", var, val, why)
+
+
+from datetime import date
+
+try:
+    import pandas as pd
+    import pyinaturalist
+    from pyinaturalist import get_observations
+except ImportError as e:
+    logger.error(
+        "Dependencia ausente: %s\n  Instale com: pip install pyinaturalist pandas\n  Skill anterior: ecological-data-foundation",
+        e,
+    )
+    sys.exit(1)
+
+
+# ── Constants ─────────────────────────────────────────────────────────────────
+MAX_RESULTS_PER_PAGE = 200   # iNaturalist API page size limit
+MAX_TOTAL_RESULTS    = 10000 # practical cap for single-species query
+
+
+# ── Helper functions ──────────────────────────────────────────────────────────
+
+def fetch_observations(taxon_name: str, year_from: int, year_to: int,
+                        quality_grade: str) -> list[dict]:
+    """Fetch all research-grade observations for a taxon, handling pagination."""
+    all_results = []
+    page = 1
+    while True:
+        try:
+            response = get_observations(
+                taxon_name=taxon_name,
+                quality_grade=quality_grade,
+                geo=True,
+                captive=False,
+                d1=f"{year_from}-01-01",
+                d2=f"{year_to}-12-31",
+                per_page=MAX_RESULTS_PER_PAGE,
+                page=page,
+                order="desc",
+                order_by="created_at",
+            )
+        except Exception as e:
+            logger.error(
+                "Falha em get_observations (pagina=%d, taxon='%s'): %s\n  Causa provavel: sem conexao com a internet ou API iNaturalist indisponivel.\n  Skill anterior: ecological-data-foundation",
+                page, taxon_name, e,
+            )
+            raise
+
+        results = response.get("results", [])
+        if not results:
+            break
+        all_results.extend(results)
+        logger.info("Pagina %d: %d registros recuperados (total acumulado: %d)",
+                    page, len(results), len(all_results))
+
+        total_results = response.get("total_results", 0)
+        if len(all_results) >= min(total_results, MAX_TOTAL_RESULTS):
+            break
+        if len(results) < MAX_RESULTS_PER_PAGE:
+            break
+        page += 1
+
+    return all_results
+
+
+def standardise_records(observations: list[dict], species_name: str) -> "pd.DataFrame":
+    """Convert iNaturalist observation dicts to the standard occurrence schema."""
+    rows = []
+    for obs in observations:
+        loc = obs.get("location", "")
+        lat, lon = None, None
+        if loc and "," in str(loc):
+            parts = str(loc).split(",")
+            try:
+                lat, lon = float(parts[0]), float(parts[1])
+            except ValueError:
+                pass
+
+        taxon    = obs.get("taxon", {}) or {}
+        place    = obs.get("place_guess", "")
+
+        rows.append({
+            "species":                       species_name,
+            "decimalLatitude":               lat,
+            "decimalLongitude":              lon,
+            "eventDate":                     obs.get("observed_on", ""),
+            "countryCode":                   place,
+            "basisOfRecord":                 "HUMAN_OBSERVATION",
+            "coordinateUncertaintyInMeters": obs.get("positional_accuracy"),
+            "datasetName":                   "iNaturalist",
+            "occurrenceID":                  str(obs.get("id", "")),
+            "source":                        "iNaturalist",
+            "download_doi":                  None,
+        })
+    df = pd.DataFrame(rows)
+    # Drop records missing coordinates
+    df = df.dropna(subset=["decimalLatitude", "decimalLongitude"])
+    return df
+
+
+def save_metadata(output_dir: Path, species_name: str, n_records: int,
+                  year_from: int, year_to: int, quality_grade: str) -> None:
+    safe_name = species_name.replace(" ", "_")
+    today = date.today().isoformat()
+    year  = date.today().year
+    lines = [
+        f"Species: {species_name}",
+        f"Source: iNaturalist (https://www.inaturalist.org)",
+        f"Quality grade: {quality_grade}",
+        f"Year range: {year_from} - {year_to}",
+        f"Captive excluded: True",
+        f"Geo-referenced only: True",
+        f"n_records: {n_records}",
+        f"Download date: {today}",
+        (f"Citation: iNaturalist contributors and the California Academy of Sciences ({year}). "
+         f"iNaturalist Research-grade Observations. iNaturalist.org. Accessed {today}."),
+        "License: CC BY-NC (individual records may vary; see iNaturalist for details)",
+        "Note: iNaturalist does not issue download DOIs; record the access date for reproducibility.",
+    ]
+    meta_path = output_dir / f"download_metadata_iNat_{safe_name}.txt"
+    try:
+        meta_path.write_text("\n".join(lines), encoding="utf-8")
+        logger.info("Metadados gravados: %s", meta_path)
+    except OSError as e:
+        logger.error(
+            "Falha ao gravar metadados em '%s': %s\n  Causa provavel: sem permissao de escrita.\n  Skill anterior: ecological-data-foundation",
+            meta_path, e,
+        )
+        raise
+
+
+# ── Main download logic ────────────────────────────────────────────────────────
+
+def download_species(species_name: str, output_dir: Path,
+                     year_from: int, year_to: int, quality_grade: str) -> None:
+    logger.info("--- Iniciando download iNaturalist: %s ---", species_name)
+    today_str = date.today().strftime("%Y%m%d")
+    safe_name = species_name.replace(" ", "_")
+
+    log_step(1, f"Buscar observacoes iNaturalist para '{species_name}'")
+    observations = fetch_observations(species_name, year_from, year_to, quality_grade)
+    logger.info("Total de observacoes recuperadas: %d", len(observations))
+
+    if not observations:
+        logger.warning("Nenhum registro encontrado para '%s'.", species_name)
+        return
+
+    log_step(2, "Padronizar registros para schema de saida")
+    df = standardise_records(observations, species_name)
+    n_final = len(df)
+    logger.info("Registros com coordenadas validas: %d", n_final)
+
+    if n_final < 30:
+        logger.warning(
+            "Registros insuficientes para SDM confiavel (n = %d). Considere: (1) ampliar periodo, (2) usar quality='any', (3) combinar com GBIF.",
+            n_final,
+        )
+
+    log_step(3, "Gravar CSV de ocorrencias")
+    csv_path = output_dir / f"occurrences_raw_iNat_{safe_name}_{today_str}.csv"
+    try:
+        df.to_csv(csv_path, index=False)
+        logger.info("Gravado: %s (%d registros)", csv_path, n_final)
+    except OSError as e:
+        logger.error(
+            "Falha ao gravar CSV para '%s': %s\n  Causa provavel: sem permissao de escrita em '%s'.\n  Skill anterior: ecological-data-foundation",
+            species_name, e, output_dir,
+        )
+        raise
+
+    log_step(4, "Gravar metadados do download")
+    save_metadata(output_dir, species_name, n_final, year_from, year_to, quality_grade)
+
+
+# ── Entry point ────────────────────────────────────────────────────────────────
+
+def main():
+    logger.info("Script: download_from_inat.py | Skill: %s", SKILL_NAME)
+
+    argv = sys.argv[1:]
+
+    if len(argv) < 2:
+        species_input = "Panthera onca"
+        output_dir    = Path("output/inat")
+        year_from     = 2000
+        year_to       = date.today().year
+        quality_grade = "research"
+        logger.warning("Menos de 2 argumentos fornecidos. Usando valores padrao para teste.")
+    else:
+        species_input = argv[0]
+        output_dir    = Path(argv[1])
+        year_from     = int(argv[2]) if len(argv) >= 3 else 2000
+        year_to       = int(argv[3]) if len(argv) >= 4 else date.today().year
+        quality_grade = argv[4] if len(argv) >= 5 else "research"
+
+    logger.info("Species input  : %s", species_input)
+    logger.info("Output dir     : %s", output_dir)
+    logger.info("Year range     : %d - %d", year_from, year_to)
+    logger.info("Quality grade  : %s", quality_grade)
+
+    log_decision("quality_grade", quality_grade,
+                 "research = comunidade validou ID + geo; recomendado para SDM")
+    log_decision("captive", False,
+                 "excluir organismos em cativeiro/cultivados")
+    log_decision("year_from", year_from,
+                 "filtro temporal; 2000 equilibra dataset e qualidade de GPS")
+
+    output_dir.mkdir(parents=True, exist_ok=True)
+
+    # Build species list
+    log_step(0, "Construir lista de especies")
+    if species_input.endswith(".csv") and Path(species_input).exists():
+        try:
+            df_sp = pd.read_csv(species_input)
+            if "scientificName" not in df_sp.columns:
+                logger.error(
+                    "Coluna 'scientificName' nao encontrada em: %s\n  Causa provavel: CSV mal formatado.\n  Skill anterior: ecological-data-foundation",
+                    species_input,
+                )
+                sys.exit(1)
+            species_list = df_sp["scientificName"].dropna().unique().tolist()
+            logger.info("Modo batch: %d especies carregadas", len(species_list))
+            log_decision("mode", "batch", "CSV valido com coluna scientificName")
+        except Exception as e:
+            logger.error(
+                "Falha ao ler lista de especies '%s': %s\n  Skill anterior: ecological-data-foundation",
+                species_input, e,
+            )
+            sys.exit(1)
+    else:
+        species_list = [species_input.strip()]
+        logger.info("Modo especie unica: %s", species_list[0])
+        log_decision("mode", "single_species", "argumento nao e arquivo CSV")
+
+    for sp in species_list:
+        try:
+            download_species(sp, output_dir, year_from, year_to, quality_grade)
+        except FileNotFoundError as e:
+            logger.error(
+                "Arquivo de entrada nao encontrado ao processar '%s': %s\n  Esperado como saida de: ecological-data-foundation\n  Skill anterior: ecological-data-foundation",
+                sp, e,
+            )
+        except Exception as e:
+            logger.error(
+                "Falha ao baixar '%s' do iNaturalist: %s\n  Causa provavel: problema de rede ou especie nao encontrada.\n  Skill anterior: ecological-data-foundation",
+                sp, e,
+            )
+
+    logger.info("Todos os downloads iNaturalist concluidos. Verifique: %s", output_dir)
+
+
+if __name__ == "__main__":
+    main()

package/skills/ecological-data-foundation/scripts/download_from_iucn.R

@@ -0,0 +1,273 @@
+# ecological-agent-skills / Copyright (C) 2026 Francisco Diego Barros Barata
+# SPDX-License-Identifier: GPL-3.0-or-later
+
+# Usage: Rscript download_from_iucn.R <species_name_or_list_csv> <output_dir> [include_range_maps]
+
+# ── Inline logger ─────────────────────────────────────────────────────────────
+SKILL_NAME <- "ecological-data-foundation"
+.log_ts  <- function() format(Sys.time(), "[%Y-%m-%d %H:%M:%S]")
+log_info <- function(...) message(.log_ts(), " [INFO]  ", sprintf(...))
+log_warn <- function(...) message(.log_ts(), " [WARN]  ", sprintf(...))
+log_error<- function(...) message(.log_ts(), " [ERROR] ", sprintf(...))
+log_step <- function(n, d) log_info("-- STEP %d: %s", n, d)
+log_decision <- function(v, val, why) log_info("DECISION | %s = %s | %s", v, val, why)
+dir.create("logs", recursive=TRUE, showWarnings=FALSE)
+
+#
+# Arguments:
+#   species_name_or_list_csv : Species name (e.g., "Panthera onca") or path to CSV
+#                              with column "scientificName"
+#   output_dir               : Directory to write outputs (created if absent)
+#   include_range_maps       : "TRUE" or "FALSE" — download range map data (default: FALSE)
+#
+# Requires:
+#   IUCN_REDLIST_KEY environment variable — obtain at: https://apiv3.iucnredlist.org/
+#
+# Outputs (per species):
+#   iucn_status_{species}.csv   — Red List category, criteria, population trend, threats
+#   iucn_habitats_{species}.csv — suitable habitats by species
+#   download_metadata_IUCN_{species}.txt — provenance and citation
+# If include_range_maps=TRUE:
+#   range_maps/{species}_range.gpkg — range polygons (if available via API)
+#
+# Standard output schema (iucn_status CSV):
+#   species, decimalLatitude, decimalLongitude, eventDate, countryCode,
+#   basisOfRecord, coordinateUncertaintyInMeters, datasetName, occurrenceID,
+#   source, download_doi
+#   + IUCN-specific: rl_category, rl_criteria, population_trend, assessment_year
+
+suppressPackageStartupMessages(library(rredlist))
+suppressPackageStartupMessages(library(dplyr))
+suppressPackageStartupMessages(library(readr))
+
+# ── 1. Parse arguments ───────────────────────────────────────────────────────
+log_step(1, "Analisar argumentos da linha de comando")
+args <- commandArgs(trailingOnly = TRUE)
+
+if (length(args) < 2) {
+  species_input    <- "Panthera onca"
+  output_dir       <- "output/iucn"
+  include_range_maps <- FALSE
+  log_warn("Menos de 2 argumentos fornecidos. Usando valores padrao para teste.")
+} else {
+  species_input    <- args[1]
+  output_dir       <- args[2]
+  include_range_maps <- ifelse(
+    length(args) >= 3 && toupper(args[3]) == "TRUE", TRUE, FALSE
+  )
+}
+
+log_info("Script: download_from_iucn.R | Skill: %s", SKILL_NAME)
+log_info("Species input      : %s", species_input)
+log_info("Output dir         : %s", output_dir)
+log_info("Include range maps : %s", include_range_maps)
+
+log_decision("api_version", "v3", "IUCN Red List API v3 — requer chave em IUCN_REDLIST_KEY")
+
+# ── 2. Check API key ─────────────────────────────────────────────────────────
+log_step(2, "Verificar chave da API IUCN")
+iucn_key <- Sys.getenv("IUCN_REDLIST_KEY")
+if (is.null(iucn_key) || iucn_key == "") {
+  log_error(
+    "Falha em verificar chave API IUCN: variavel IUCN_REDLIST_KEY nao definida.\nCausa provavel: chave nao configurada no ambiente.\nVerifique: adicione IUCN_REDLIST_KEY ao seu .Renviron via usethis::edit_r_environ()\nSkill anterior: ecological-data-foundation"
+  )
+  stop("IUCN_REDLIST_KEY environment variable not set.")
+}
+log_info("Chave IUCN detectada (primeiros 4 chars): %s...", substr(iucn_key, 1, 4))
+
+# ── 3. Create output directory ───────────────────────────────────────────────
+log_step(3, "Criar diretorio de saida")
+dir.create(output_dir, recursive = TRUE, showWarnings = FALSE)
+
+# ── 4. Build species list ────────────────────────────────────────────────────
+log_step(4, "Construir lista de especies")
+if (grepl("\\.csv$", species_input, ignore.case = TRUE) && file.exists(species_input)) {
+  tryCatch({
+    species_df <- read_csv(species_input, show_col_types = FALSE)
+    if (!"scientificName" %in% names(species_df)) {
+      log_error(
+        "Coluna 'scientificName' nao encontrada em: %s\nCausa provavel: CSV mal formatado.\nSkill anterior: ecological-data-foundation",
+        species_input
+      )
+      stop("Missing column 'scientificName'")
+    }
+    species_list <- unique(trimws(species_df$scientificName))
+    log_info("Modo batch: %d especies carregadas", length(species_list))
+    log_decision("mode", "batch", "CSV valido com coluna scientificName")
+  }, error = function(e) {
+    log_error(
+      "Falha ao ler lista de especies: %s\nSkill anterior: ecological-data-foundation",
+      conditionMessage(e)
+    )
+    stop(e)
+  })
+} else {
+  species_list <- trimws(species_input)
+  log_info("Modo especie unica: %s", species_list)
+  log_decision("mode", "single_species", "argumento nao e arquivo CSV")
+}
+
+# ── 5. Download function ─────────────────────────────────────────────────────
+download_iucn_species <- function(sp_name) {
+  log_info("--- Iniciando download IUCN: %s ---", sp_name)
+  safe_name <- gsub(" ", "_", sp_name)
+
+  # ── Fetch species assessment ───────────────────────────────────────────────
+  assessment <- tryCatch({
+    rredlist::rl_search(sp_name, key = iucn_key)
+  }, error = function(e) {
+    log_error(
+      "Falha em rl_search para '%s': %s\nCausa provavel: chave IUCN invalida ou API indisponivel.\nVerifique: https://apiv3.iucnredlist.org/\nSkill anterior: ecological-data-foundation",
+      sp_name, conditionMessage(e)
+    )
+    stop(e)
+  })
+
+  if (is.null(assessment$result) || length(assessment$result) == 0) {
+    log_warn("Nenhum resultado IUCN para '%s'. Especie pode nao estar avaliada.", sp_name)
+    return(invisible(NULL))
+  }
+
+  res      <- assessment$result[[1]]
+  category <- res$category %||% NA_character_
+  criteria <- res$criteria  %||% NA_character_
+  pop_trend<- res$population_trend %||% NA_character_
+  assess_yr<- res$assessment_year  %||% NA_integer_
+  taxon_id <- res$taxonid %||% NA_integer_
+
+  log_info("Categoria IUCN para '%s': %s (criterios: %s, tendencia: %s, ano: %s)",
+           sp_name, category, criteria, pop_trend, assess_yr)
+
+  if (category %in% c("CR", "EN")) {
+    log_warn("Especie '%s' e %s — dados de distribuicao podem ser restritos por razoes de seguranca.",
+             sp_name, category)
+  }
+
+  # ── Fetch country occurrences ──────────────────────────────────────────────
+  country_occ <- tryCatch({
+    rredlist::rl_occ_country(sp_name, key = iucn_key)
+  }, error = function(e) {
+    log_warn("Falha ao buscar paises de ocorrencia para '%s': %s", sp_name, conditionMessage(e))
+    list(result = NULL)
+  })
+
+  # ── Fetch habitats ─────────────────────────────────────────────────────────
+  habitats <- tryCatch({
+    rredlist::rl_habitats(sp_name, key = iucn_key)
+  }, error = function(e) {
+    log_warn("Falha ao buscar habitats para '%s': %s", sp_name, conditionMessage(e))
+    list(result = NULL)
+  })
+
+  # ── Build standardised occurrence records (one row per country) ────────────
+  if (!is.null(country_occ$result) && length(country_occ$result) > 0) {
+    country_df <- as.data.frame(country_occ$result)
+    std <- data.frame(
+      species                       = sp_name,
+      decimalLatitude               = NA_real_,
+      decimalLongitude              = NA_real_,
+      eventDate                     = NA_character_,
+      countryCode                   = as.character(country_df$code),
+      basisOfRecord                 = "LITERATURE",
+      coordinateUncertaintyInMeters = NA_real_,
+      datasetName                   = "IUCN Red List",
+      occurrenceID                  = paste0("IUCN:", taxon_id, ":", as.character(country_df$code)),
+      source                        = "IUCN",
+      download_doi                  = NA_character_,
+      rl_category                   = category,
+      rl_criteria                   = criteria,
+      population_trend              = pop_trend,
+      assessment_year               = assess_yr,
+      stringsAsFactors              = FALSE
+    )
+  } else {
+    log_warn("Sem dados de ocorrencia por pais para '%s'. Criando registro sumario.", sp_name)
+    std <- data.frame(
+      species                       = sp_name,
+      decimalLatitude               = NA_real_,
+      decimalLongitude              = NA_real_,
+      eventDate                     = NA_character_,
+      countryCode                   = NA_character_,
+      basisOfRecord                 = "LITERATURE",
+      coordinateUncertaintyInMeters = NA_real_,
+      datasetName                   = "IUCN Red List",
+      occurrenceID                  = paste0("IUCN:", taxon_id),
+      source                        = "IUCN",
+      download_doi                  = NA_character_,
+      rl_category                   = category,
+      rl_criteria                   = criteria,
+      population_trend              = pop_trend,
+      assessment_year               = assess_yr,
+      stringsAsFactors              = FALSE
+    )
+  }
+
+  # Save status CSV
+  csv_path <- file.path(output_dir, paste0("iucn_status_", safe_name, ".csv"))
+  tryCatch({
+    write_csv(std, csv_path)
+    log_info("Gravado: %s (%d linhas)", csv_path, nrow(std))
+  }, error = function(e) {
+    log_error(
+      "Falha ao gravar CSV para '%s': %s\nSkill anterior: ecological-data-foundation",
+      sp_name, conditionMessage(e)
+    )
+    stop(e)
+  })
+
+  # Save habitats CSV
+  if (!is.null(habitats$result) && length(habitats$result) > 0) {
+    hab_df <- as.data.frame(habitats$result)
+    hab_df$species <- sp_name
+    hab_path <- file.path(output_dir, paste0("iucn_habitats_", safe_name, ".csv"))
+    tryCatch({
+      write_csv(hab_df, hab_path)
+      log_info("Habitats gravados: %s", hab_path)
+    }, error = function(e) {
+      log_warn("Falha ao gravar habitats para '%s': %s", sp_name, conditionMessage(e))
+    })
+  }
+
+  # Save metadata
+  meta_lines <- c(
+    paste("Species:", sp_name),
+    paste("IUCN Taxon ID:", taxon_id),
+    paste("Source: IUCN Red List (https://www.iucnredlist.org)"),
+    paste("API version: v3 (https://apiv3.iucnredlist.org)"),
+    paste("Red List category:", category),
+    paste("Assessment year:", assess_yr),
+    paste("Population trend:", pop_trend),
+    paste("Download date:", Sys.Date()),
+    paste("Citation: IUCN", format(Sys.Date(), "%Y"), ". The IUCN Red List of Threatened Species. Version",
+          format(Sys.Date(), "%Y-%m"), ". https://www.iucnredlist.org Accessed on", Sys.Date()),
+    paste("License: CC BY 4.0 (https://creativecommons.org/licenses/by/4.0/)")
+  )
+  meta_path <- file.path(output_dir, paste0("download_metadata_IUCN_", safe_name, ".txt"))
+  tryCatch({
+    writeLines(meta_lines, meta_path)
+    log_info("Gravado: %s", meta_path)
+  }, error = function(e) {
+    log_warn("Falha ao gravar metadados para '%s': %s", sp_name, conditionMessage(e))
+  })
+
+  return(invisible(csv_path))
+}
+
+# Null-coalescing operator
+`%||%` <- function(a, b) if (!is.null(a) && !is.na(a) && length(a) > 0) a else b
+
+# ── 6. Run for all species ───────────────────────────────────────────────────
+log_step(5, "Executar download IUCN para todas as especies")
+for (sp in species_list) {
+  tryCatch(
+    download_iucn_species(sp),
+    error = function(e) {
+      log_error(
+        "Falha ao baixar '%s' do IUCN: %s\nCausa provavel: chave invalida, especie nao avaliada ou API indisponivel.\nSkill anterior: ecological-data-foundation",
+        sp, conditionMessage(e)
+      )
+    }
+  )
+}
+
+log_info("Todos os downloads IUCN concluidos. Verifique: %s", output_dir)