No le pude encontrarVa una solución usando funcionales (map
y familia), pero le encontré una que funciona usando un... bucle.
DosTres cuestiones importantes. por las que no estaba funcionando tu código:
En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen
'asis'
. Con esto le indicas al motor dermarkdown
que no debe preformatear la salida y pasarla en crudo apandoc
. De ese modo se interpreta como caracteres, se reconocen los#
y se convierten en títulos o subtítulos.Es necesario agregar saltos de línea
\n
manualmente alcat
.cat
es muy elemental y no los agrega por sí mismo. Yo usopaste
en lugar desprintf
porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.Al armar la lista con
list()
y teniendo ya una lista creas un nivel más de anidado y creo que es por eso que los gráficos se imprimían dos veces. Simplifiqué la manera en que se crea la lista de modo que sea una lista nombrada de objetosgg
.
El segundoprimer bloque sería algode código queda igual. El segundo quedaría así:
```{r results = 'asis'}
test1$plots %>% #Toma la lista de gráficos "suelta" y no le creo una lista contenedora
setNames(test1$Species) %>% #Una lista nombrada es más simple que dos listas
iwalk(function(.x, .y) { #Itero sobre lista y nombres
cat(paste("\n#", .y,"\n")) #Los \n manuales
print(.x) #De acá sale el gráfico
cat("\n") #Este no sé exactamente por qué hace falta, pero hace falta
})
```
Una solución alternativa usando bucles, para quién prefiere mantener los índices a mano:
for (i in 1:3) {
cat(paste("#", test1[[1]][i]),"\n")
print(test1[[3]][i])
cat("\n")
}
```
Obviamente no está parametrizado y pero se podría parametrizar.
PD: si encuentro una solución que opere directamente sobre la lista usando funcionales actualizo la respuesta. Si encuentras una solución por favor publícala, es un problema que se me presentó varias veces y nunca encontré una solución elegante. Mientras tanto esta funciona.