r - 在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 
----------------------------

我怎样才能做到这一点？我读过?panderOptionsand ?pandoc.table，但我发现的唯一东西是table.style/style参数，但将其设置为简单、多行、网格或 rmarkdown 会做不同的事情。