Markdown：添加水平滚动条以避免截断输出

Question

我正在尝试在 Rmarkdown 中打印一个大表，但由于某种原因，输出被拆分，难以阅读。

我想添加一个水平滚动条，这样它就不会分裂。我设法为垂直轴做到了，但没有为水平轴做到这一点。

这是一个代码示例：

---
title: "Test"
output: html_document
---

```{css, echo=FALSE}
.main-container {
    max-width: 800px !important;
}

pre {
  max-height: 800px !important;
  overflow-y: auto !important;
  overflow-x: scroll !important;
}
```

```{r}
mdl <- lm(data = iris, Petal.Width ~ Sepal.Length*Sepal.Width*Petal.Length*Species)
summary(mdl)
```

这是输出的样子：

如您所见，水平滚动条出现了，但输出仍然是分开的。我尝试了overflow-x: scroll !important; 和max-width: 500px !important; 都没有成功。

即使我将.main-container CSS 设置为max-width: 1200px !important;，问题仍然存在，因此原则上应该有足够的空间供模型打印而不会拆分。

这就是我要找的：

---

更新
正如@Rorschach 所建议的，我已将options(width = 160) 添加到脚本中。这样就解决了第二种情况的问题，即当.main-container CSS max-width 足够大（例如800px）时：

但是，如果最大宽度不够大（例如 600px），打印仍然是一团糟：

---
title: "Test"
output: html_document
---

```{css, echo=FALSE}
.main-container {
    max-width: 600px !important;
}

pre {
  max-height: 800px !important;
  overflow-y: auto !important;
  overflow-x: scroll !important;
}
```

```{r setup}
options(width = 160)
```

```{r}
mdl <- lm(data = iris, Petal.Width ~ Sepal.Length*Sepal.Width*Petal.Length*Species)
summary(mdl)
```

Answer 1

不是css 专家，但以下似乎可以解决问题：

---
title: "Test"
output: html_document
---

```{css, echo=FALSE}
.main-container {
    max-width: 600px !important;
}

pre {
  max-height: 800px !important;
  overflow-y: auto !important;
  overflow-x: scroll !important;
}
pre code {
  white-space: pre
}
```

```{r}
options(width=160)
mdl <- lm(data = iris, Petal.Width ~ Sepal.Length*Sepal.Width*Petal.Length*Species)
summary(mdl)
```