Различная производительность pander между.Rmd и.Rnw

Question

У меня возникли проблемы с тем, чтобы pander работал в файле.Rnw так же, как в моем файле.Rmd. В обоих я использую Knitr для плетения PDF. Мой файл.Rmd выглядит так

---
title: "My title"
output: pdf_document
---
```{r}
library(pander)
panderOptions('big.mark', ',')
panderOptions('table.style','rmarkdown')
panderOptions('table.alignment.default','right')
panderOptions('table.alignment.rownames','left')
panderOptions('digits','10')
df <- data.frame('a' = 1:3, 'b' = 4:6, 'c' = 7:9)
pander(df)
```

Фрейм данных выглядит действительно хорошо в выводе, поскольку он преобразует пунктирные линии в сплошные. Однако, когда я пытаюсь сделать что-то подобное в моем файле.Rnw, все печатается так, как будто это предложение, а не таблица.

\documentclass{article}
\begin{document}
<<model_data>>=
library(pander)
panderOptions('big.mark', ',')
panderOptions('table.style','rmarkdown')
panderOptions('table.alignment.default','right')
panderOptions('table.alignment.rownames','left')
panderOptions('digits','10')
df <- data.frame('a' = 1:3, 'b' = 4:6, 'c' = 7:9)
pander(df)
@
\end{document}

Это выглядит ужасно, я могу вместо этого вызвать pandoc.table(df), и тогда он будет напечатан как минимум в табличном формате, но пунктирные линии будут отличаться от тех, которые напечатаны в файле.Rmd. Как заставить его печатать точно так же, как в файле.Rmd, но внутри файла.Rnw?