descarbonizacion-afolu-mx/setup.R at main · Caro-rawr/descarbonizacion-afolu-mx · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
# SISEPUEDE → Territorio | Instalación de dependencias R
# ══════════════════════════════════════════════════════════
# Ejecutar una sola vez antes del primer análisis:
#   Rscript setup.R
# ══════════════════════════════════════════════════════════

cat("SISEPUEDE → Territorio | Configuración de entorno R\n")
cat(paste(rep("═", 55), collapse = ""), "\n\n")

# ── Paquetes requeridos ───────────────────────────────────
paquetes <- c(
  # Manipulación de datos
  "dplyr", "tidyr", "readr", "readxl", "stringr", "here",

  # Visualización
  "ggplot2", "ggrepel", "patchwork", "scales", "RColorBrewer",

  # Análisis espacial
  "sf", "ggspatial",

  # Análisis multivariado
  "FactoMineR", "factoextra", "cluster",

  # Reportes
  "knitr", "rmarkdown"
)

# ── Instalación automática ────────────────────────────────
cat("Verificando paquetes requeridos...\n")
faltantes <- paquetes[!sapply(paquetes, requireNamespace, quietly = TRUE)]

if (length(faltantes) > 0) {
  cat(sprintf("Instalando %d paquete(s) faltante(s):\n", length(faltantes)))
  cat(paste(" ✗", faltantes, collapse = "\n"), "\n\n")
  install.packages(
    faltantes,
    repos     = "https://cran.rstudio.com/",
    quiet     = TRUE,
    dependencies = TRUE
  )
} else {
  cat("✅ Todos los paquetes ya están instalados\n\n")
}

# ── Verificación final ────────────────────────────────────
cat("Verificación final:\n")
exito <- character(0)
fallo <- character(0)

for (pkg in paquetes) {
  if (requireNamespace(pkg, quietly = TRUE)) {
    v <- packageVersion(pkg)
    exito <- c(exito, sprintf("  ✅ %-20s v%s", pkg, v))
  } else {
    fallo <- c(fallo, sprintf("  ✗  %-20s — ERROR al instalar", pkg))
  }
}

cat(paste(exito, collapse = "\n"), "\n")

if (length(fallo) > 0) {
  cat("\n⚠  Paquetes con problemas:\n")
  cat(paste(fallo, collapse = "\n"), "\n")
  cat("\nIntenta instalarlos manualmente con install.packages()\n")
} else {
  cat("\n✅ Entorno R configurado correctamente\n")
  cat("   Siguiente paso: abrir 02_territorial_analysis.Rmd en RStudio\n")
}

# ── Versión de R ──────────────────────────────────────────
cat(sprintf("\nVersiones del sistema:\n  R: %s\n  Platform: %s\n",
            R.version$version.string,
            R.version$platform))