```{r incluir_figuras, results='asis', echo=FALSE} library(knitr) library(glue)

Lista de archivos PNG en salidas/figuras

imgs <- list.files("salidas/figuras", pattern = "\\.png$", full.names = TRUE)

Inserta cada imagen con un título automático

for (f in imgs) { cat(glue("### {basename(f)}\n\n")) cat(knitr::include_graphics(f)) cat("\n\n") }