R Summarytools Печать таблиц

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

введите здесь описание изображения

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

Спасибо.


r r-markdown summarytools
person Jasppo    schedule 16.06.2020    source источник
comment
Если вы не найдете способ замаскировать эти надоедливые границы с помощью CSS, лучшей альтернативой будет придерживаться простого текстового вывода. В какой-то момент в будущем пакет может предлагать альтернативное отображение, где частоты и пропорции находятся в одной ячейке, но это будет означать менее точное выравнивание контента.   -  person Dominic Comtois    schedule 11.12.2020
comment
Стоит попробовать еще кое-что: конвертируйте html-файл в pdf с помощью wkhtmltopdf и вместо этого распечатайте pdf. Бесплатный инструмент wkhtmltopdf действительно помогает в подобных случаях (при преобразовании html в pdf с помощью pandoc эти границы отображаются, а при использовании wkhtmltopdf этого не происходит).   -  person Dominic Comtois    schedule 31.12.2020

Ответы (1)


arrow_upward
2
arrow_downward

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

Если это так, вы можете попробовать отменить CSS Bootstrap с помощью st_css(bootstrap = FALSE).
Кроме того, вам может оказаться полезным включить results = "asis" в параметры блока Knitr.
Наконец, ознакомьтесь с «Рекомендациями по использованию summarytools с Rmarkdown» Доминика и разделом о ctable(). По словам Доминика, «метод рендеринга предпочтительнее» с 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')
```
person Radovan Miletić    schedule 16.06.2020