在pander上添加分隔总计的行

Question

给出以下示例

library(pander)
table <- Titanic[1, 1, , ]
tableWithMargins <- addmargins(table)
pander(tableWithMargins)

----------------------------
  &nbsp;     No   Yes   Sum 
----------- ---- ----- -----
 **Child**   0     5     5  

 **Adult**  118   57    175 

  **Sum**   118   62    180 
----------------------------

我想添加分隔我的列总计的行，所以pandoc输出将是：

----------------------------
        No   Yes   Sum 
----------- ---- ----- -----
 **Child**   0     5     5  

 **Adult**  118   57    175 
----------------------------
  **Sum**   118   62    180 
----------------------------

我该怎么做？我已阅读?panderOptions和?pandoc.table，但我发现的唯一内容是table.style / style参数，但将其设置为简单，多行，网格或rmarkdown做不同的事情。