宽表下的滚动条不适合页面宽度答案

【问题标题】：Scroll bar under a wide table not fitting the page width宽表下的滚动条不适合页面宽度
【发布时间】：2015-07-02 19:50:32
【问题描述】：

我正在使用 knitr 生成动态文档。如果表格太宽而无法适应页面（屏幕）宽度，有没有办法强制它适应页面，同时在表格下方保留滚动条，以便可以从左向右滑动滚动条并阅读表格内容？

这是一个测试代码

---
title: "Untitled"
author: "ath"
date: "07/02/2015"
output: 
html_document:
  css:custom.css
---
```{r set-options}
options(width = 80)
```
```{r test, results='markup'}
df.matrix <- matrix(runif(300, min = 0, max = 300), nrow = 2)
df.matrix <- as.data.frame(df.matrix)
colnames(df.matrix) <- paste("col", as.character(seq(1:150)), sep = "")
library("knitr")
kable(df.matrix, col.names = colnames(df.matrix))
```

选项中的宽度似乎不起作用。

谢谢！

【问题讨论】：

标签： r knitr r-markdown

【解决方案1】：

您可以使用kableExtra 为垂直和水平滚动添加滚动条。

例子：

---
title: "Untitled"
author: "ath"
date: "07/02/2015"
output: html_document
---

```{r set-options}
library("knitr")
library(kableExtra)
library(magrittr)
options(width = 80)
```

```{r test, results='markup'}
df.matrix <- matrix(runif(300, min = 0, max = 300), nrow = 2)
df.matrix <- as.data.frame(df.matrix)
colnames(df.matrix) <- paste("col", as.character(seq(1:150)), sep = "")
```

```{r kable, results = "asis"}
df.matrix %>%
  kable(format = "html", col.names = colnames(df.matrix)) %>%
  kable_styling() %>%
  kableExtra::scroll_box(width = "100%", height = "100px")
```

<br>

```{r}
devtools::session_info()
```

下表的屏幕截图如下。您可以获得示例 .Rmd 文件和生成的 .html 文件 here 的副本。

【讨论】：