.Rmd和.Rnw之间的不同迎合性能

Question

我在.Rnw文件中以与在.Rmd文件中相同的方式使用pander工作时遇到了一些麻烦。在这两者中，我使用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文件中？