r - R Summarytools 打印表格

Question

我正在使用 Rmarkdown 中的 summarytools 包并将其编入 HTML。表格看起来不错，但每当我打印 HTML 文档时，表格的格式（尤其是 ctable）都会关闭。见下图

如您所见，每个单元格内都有这些边界。我相信这与使用默认 bootstrap.css 文件的 RMD 有关，并且在探索该文件后，我发现了一些“@media print”行。有没有人可以快速解决这个问题，还是我必须更改底层的 bootstrap.css 文件？

谢谢。

Answer 1

我相信这与使用默认 bootstrap.css 文件的 RMD 有关...

如果是这种情况，您可以尝试取消 Bootstrap 的 CSS 与st_css(bootstrap = FALSE). 此外，您可能会发现包含在 knitr 块选项中
会有所帮助。 最后，查看 Dominic 的“使用 Rmarkdown 使用 summarytools 的建议”和关于ctable()的部分。根据 Dominic 的“首选渲染方法” ： results = "asis"
method = 'render'

---
title: "Title"
author: "Author"
date: "16/06/2020"
output: 
  html_document:
    toc: TRUE
    toc_float: TRUE
---

```{r setup, include = FALSE}
library(knitr)
library(summarytools)
knitr::opts_chunk$set(results = "asis")
```  

```{r summarytools-css, echo = FALSE}
# with summarytools’ CSS we can cancel Bootstrap’s CSS (both are included by default)
# without it odd layout are expected, especially with dfSummary()
st_css(bootstrap = FALSE)
```

```{r summarytools-rmarkdown, echo = FALSE}    
   ctable(tobacco$gender, tobacco$smoker, style = 'rmarkdown')
```  

```{r summarytools-html, echo = FALSE}    
   print(ctable(tobacco$gender, tobacco$smoker), method = 'render')
```