Gerando tabelas de desvio em um loop no RMarkdown no Rstudio
Eu tenho um conjunto de tabelas que estou gerando com o uso do código semelhante ao snippet abaixo:
```{r tables, echo=TRUE, eval=TRUE}
require(reshape2); require(pander)
data("mtcars")
data("AirPassengers")
dta_lst <- list(mtcars, AirPassengers)
for (i in 1:length(dta_lst)) {
pander(melt(head(dta_lst[[i]], n = 2), varnames = c("Something"),
value.name = "Something else"),
caption = paste("Some table for: ", class(dta_lst[[i]])))
}
```
Quando executo o código, ele produz a saída desejada (naturalmente, o exemplo fornecido faz pouco sentido, em meus dados apropriados eu os derreto de maneira sensata):
---------------------------
variable Something else
---------- ----------------
mpg 21
mpg 21
cyl 6
cyl 6
disp 160
disp 160
hp 110
hp 110
drat 3.9
drat 3.9
wt 2.62
wt 2.875
qsec 16.46
qsec 17.02
vs 0
vs 0
am 1
am 1
gear 4
gear 4
carb 4
carb , 4
---------------------------
Table: Some table for: data.frame
----------------
Something else
----------------
112
118
----------------
Table: Some table for: ts
Quando tento tricotar o código no Rstudio, as tabelas pander não aparecem:
Naturalmente, sem o loop, opander
O comando funciona bem e gera as tabelas perfeitamente organizadas em um documento HTML.