Replacing colnames on a pandoc table

Question

Given the following example

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

I would like to substitute   with "Age". However,

colnames(tableWithMargins) <- c("Age", "No", "Yes", "Sum")

Gives an error, because length(colnames(tableWithMargins)) equals 3.

That value seem to be hard coded in the `pander:::pandoc.table.return` function where the formatting happens. Unless I missed something, it doesn't look like it's easy to replace. — MrFlick, May 29 '15 at 21:01

score 1 · Answer 1 · answered May 30 '15 at 02:14

You cannot give a name to that column, although it's indeed an interesting idea. Please feel free to create a ticket on GH. Until then, you can apply the following hack:

> tableWithNoRowNames <- cbind(data.frame(Age = rownames(tableWithMargins), tableWithMargins))
> rownames(tableWithNoRowNames) <- NULL
> emphasize.strong.cols(1)
> pander(tableWithNoRowNames)

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

**Adult** 118   57    175 

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

Replacing colnames on a pandoc table

1 Answers1