使用 Hmisc LaTeX 函数编织时，LaTeX 表格的标题不出现

我正在尝试使用 table 和 Hmisc 包创建 LaTeX 表，但是，我在显示标题时遇到问题。

这是一个可重现的示例：

    ```{r, results = "asis"}

# data:
dow <- sample(1:7, 100, replace=TRUE)
purp <- sample(1:4, 100, replace=TRUE)
dow <- factor(dow, 1:7, c("Mon", "Tues", "Wed", "Thurs", "Fri", "Sat", "Sun"))
purp <- factor(purp, 1:4, c("Business", "Commute", "Vacation", "Other"))

dataframe <-  data.frame( dow, purp)

# The packages
library(tables)
library(Hmisc)

# The table
#tabular(  (Weekday=dow) ~  (Purpose=purp)*(Percent("row")+ 1)    ,data=dataframe        )

# The latex table
tab <- latex(  tabular(  (Weekday=dow) ~  (Purpose=purp)*(Percent("col")+ 1)    ,data=dataframe        ), caption = "This is a Caption")
print(tab)
```

针织表不包含标题。我是 LaTeX 的新手，我对 LaTeX 的唯一体验是通过R和R工作室。任何建议将不胜感激。

当你跑步时

tab <- latex(tabular(  (Weekday=dow) ~  (Purpose=purp)*(Percent("col")+ 1), data=dataframe), caption = "This is a Caption")

您正在使用默认的 S3 方法，在本例中为 Latex.tabular

## S3 method for class 'tabular'
latex(object, file = "", options = NULL, append = FALSE, ...)

Latex.tabular 不接受标题参数