Skip to main content
solución con funcionales
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

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:

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

  3. 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 objetos gg.

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.

No le pude encontrar una solución usando funcionales (map y familia), pero le encontré una que funciona usando un... bucle.

Dos cuestiones importantes.

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

El segundo bloque sería algo así:

```{r results = 'asis'}

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.

Va una solución usando funcionales.

Tres cuestiones importantes por las que no estaba funcionando tu código:

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

  3. 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 objetos gg.

El primer bloque de 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")
  }
agregado al código
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

No le pude encontrar una solución usando funcionales (map y familia), pero le encontré una que funciona usando un... bucle.

Dos cuestiones importantes.

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

El segundo bloque sería algo así:

```{r results = 'asis'}

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 y sinusando 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.

No le pude encontrar una solución usando funcionales (map y familia), pero le encontré una que funciona usando un... bucle.

Dos cuestiones importantes.

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

El segundo bloque sería algo así:

```{r results = 'asis'}

for (i in 1:3) {
  cat(paste("##", test1[[1]][i]),"\n")  
  print(test1[[3]][i])
}
```

Obviamente no está parametrizado, pero se podría parametrizar.

PD: si encuentro una solución que opere directamente sobre la lista y sin 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.

No le pude encontrar una solución usando funcionales (map y familia), pero le encontré una que funciona usando un... bucle.

Dos cuestiones importantes.

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

El segundo bloque sería algo así:

```{r results = 'asis'}

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.

Publicación recuperada por mpaladino
Publicación eliminada por mpaladino
Origen Enlace
mpaladino
  • 6k
  • 9
  • 19

No le pude encontrar una solución usando funcionales (map y familia), pero le encontré una que funciona usando un... bucle.

Dos cuestiones importantes.

  1. En el encabezado del bloque de código (chunk) tienes que indicar que los resultados salen 'asis'. Con esto le indicas al motor de rmarkdown que no debe preformatear la salida y pasarla en crudo a pandoc. De ese modo se interpreta como caracteres, se reconocen los # y se convierten en títulos o subtítulos.

  2. Es necesario agregar saltos de línea \n manualmente al cat. cat es muy elemental y no los agrega por sí mismo. Yo uso paste en lugar de sprintf porque a este último lo entiendo poco. En principio no debería ser un problema, pero quién sabe.

El segundo bloque sería algo así:

```{r results = 'asis'}

for (i in 1:3) {
  cat(paste("##", test1[[1]][i]),"\n")  
  print(test1[[3]][i])
}
```

Obviamente no está parametrizado, pero se podría parametrizar.

PD: si encuentro una solución que opere directamente sobre la lista y sin 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.