如何将平纸印刷成单个空格而不是两个空格。如果我愿意,可以紧急地>
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
--------------------------------------------------------
答案 0 :(得分:0)
这是一种骇人听闻的方式:
single_print <- function(x, ...){
out <- capture.output(pander(x, ...))
cat(out[out != ''], sep = '\n')
}
single_print(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
## --------------------------------------------------------
我已要求这是此处的功能:https://github.com/Rapporter/pander/issues/327
答案 1 :(得分:0)
从@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
## --------------------------------------------------------