R Summarytools Печать таблиц - PullRequest
0 голосов
/ 16 июня 2020

Я использую пакет summarytools в Rmarkdown и вяжу в HTML. Таблицы выглядят нормально, но всякий раз, когда я печатаю документ HTML, форматирование таблиц (в частности, ctable) отключается. См. Рисунок ниже

enter image description here

Как видите, эти границы есть внутри каждой ячейки. Я считаю, что это связано с RMD, использующим файл по умолчанию bootstrap. css, и после исследования этого файла я обнаружил несколько строк «@media print». Есть ли у кого-нибудь быстрое решение этой проблемы, или мне придется изменить базовый файл bootstrap. css?

Спасибо.

1 Ответ

2 голосов
/ 16 июня 2020

Я считаю, что это связано с RMD, использующим bootstrap. css файл по умолчанию ...

В этом случае вы можете попробовать отменить * 1016 Bootstrap. * with st_css(bootstrap = FALSE).
Кроме того, вы можете найти полезным включить results = "asis" в параметры chunk knitr.
Наконец, ознакомьтесь с «Рекомендациями по использованию summarytools с Rmarkdown» от Domini c и разделом о ctable () . Согласно Domini c «метод рендеринга предпочтителен» с 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')
```
...