Стол с одним пространством

Как я могу сделать pander печать одним пробелом, а не двойным. Конечно, если я сделаю:

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

Я получил:

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

Как я могу получить это вместо:

--------------------------------------------------------
                    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 
--------------------------------------------------------
Источник

2 ответа

Решение

От @daroczig через: https://github.com/Rapporter/pander/issues/327

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

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

Я попросил, чтобы это было функцией здесь: https://github.com/Rapporter/pander/issues/327

Источник
Другие вопросы по тегам