如何在R中的sweave或knitr中使用乳胶功能

Question

我会使用rms :: latex（）函数生成漂亮的表并插入到x.rnw文件中，以便打印出精美的pdf文件。但似乎效果不好。

这是我的节目：

Definition table
<<>>=
def[1,1]
@

Summary of date variables
<<>>=
date
@

输出pdf的快照：

我想要的是：

定义表

BV_ENC_Infant注册

日期变量摘要

均方根::胶乳（日期）

有人有什么建议吗？