Single space pander table

Question

How can I make pander print as single space, not double. Curently, if I do:

pander(mtcars[1:5, 1:5])

I get:

--------------------------------------------------------
        &nbsp;           mpg    cyl   disp   hp    drat 
----------------------- ------ ----- ------ ----- ------
     **Mazda RX4**        21     6    160    110   3.9  

   **Mazda RX4 Wag**      21     6    160    110   3.9  

    **Datsun 710**       22.8    4    108    93    3.85 

  **Hornet 4 Drive**     21.4    6    258    110   3.08 

 **Hornet Sportabout**   18.7    8    360    175   3.15 
--------------------------------------------------------

How can I get this instead:

--------------------------------------------------------
        &nbsp;           mpg    cyl   disp   hp    drat 
----------------------- ------ ----- ------ ----- ------
     **Mazda RX4**        21     6    160    110   3.9  
   **Mazda RX4 Wag**      21     6    160    110   3.9  
    **Datsun 710**       22.8    4    108    93    3.85 
  **Hornet 4 Drive**     21.4    6    258    110   3.08 
 **Hornet Sportabout**   18.7    8    360    175   3.15 
--------------------------------------------------------

A (possibly-volatile) convoluted combination of `capture.output` and `grep`? ;-) — r2evans, Oct 23 '18 at 18:40
I thought about that but was hoping I just am missing a parameter from the documentation — Tyler Rinker, Oct 23 '18 at 18:51
I didn't suggest it as a good solution as much as a hack-workaround. I don't know enough about `pander`'s internals to provide anything other than that, sorry. (Ergo my smiley/wink.) — r2evans, Oct 23 '18 at 18:53
Left a comment on the [GH ticket](https://github.com/Rapporter/pander/issues/327) -- I think you are looking for the `simple` table style instead of the default `multiline`. — daroczig, Oct 30 '18 at 09:22

Tyler Rinker · Answer 1 · 2018-10-29T12:13:39.013

Here's a hacky way:

single_print <- function(x, ...){
    out <- capture.output(pander(x, ...))
    cat(out[out != ''], sep = '\n')
}

single_print(mtcars[1:5, 1:5])

## --------------------------------------------------------
##         &nbsp;           mpg    cyl   disp   hp    drat 
## ----------------------- ------ ----- ------ ----- ------
##      **Mazda RX4**        21     6    160    110   3.9  
##    **Mazda RX4 Wag**      21     6    160    110   3.9  
##     **Datsun 710**       22.8    4    108    93    3.85 
##   **Hornet 4 Drive**     21.4    6    258    110   3.08 
##  **Hornet Sportabout**   18.7    8    360    175   3.15 
## --------------------------------------------------------

I have asked this to be a feature here: https://github.com/Rapporter/pander/issues/327

score 0 · Accepted Answer · answered Oct 30 '18 at 15:11

From @daroczig via: https://github.com/Rapporter/pander/issues/327

pander::pander(mtcars[1:5, 1:5], style = 'simple')

## --------------------------------------------------------
##         &nbsp;           mpg    cyl   disp   hp    drat 
## ----------------------- ------ ----- ------ ----- ------
##      **Mazda RX4**        21     6    160    110   3.9  
##    **Mazda RX4 Wag**      21     6    160    110   3.9  
##     **Datsun 710**       22.8    4    108    93    3.85 
##   **Hornet 4 Drive**     21.4    6    258    110   3.08 
##  **Hornet Sportabout**   18.7    8    360    175   3.15 
## --------------------------------------------------------

Single space pander table

2 Answers2