R 如何扩大文本的输出窗口？

我想打印一个线性混合模型和文本包装输出。 有解决这个问题的办法吗

我尝试了

选项（宽度=1000）

和

tidy=TRUE

，

tidy.opts=list（宽度.cutoff=600）

，但没有成功

编辑： 这是一个最小的可复制示例

---
title: "Untitled"
author: "NickHayden"
date: "5/8/2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(lmerTest)
library(lme4)
library(tidyverse)
```

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r cars}
df <- sample_n(diamonds, size = 100)
df <- df %>% mutate(randoms = rep(c("A","B", "C"), length.out = 100))
mod <- lmer(price ~  factor(color) * factor(clarity) * factor(cut) + (1|randoms), data = df)
print(summary(mod))
```

---
标题：“无标题”
作者：“NickHayden”
日期：“2018年5月8日”
输出：html\u文档
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
图书馆（GG2）
图书馆（lmerTest）
图书馆（lme4）
图书馆（tidyverse）
```
##降价
这是一份R降价文件。Markdown是一种用于编写HTML、PDF和MS Word文档的简单格式语法。有关使用R标记的更多详细信息，请参阅。
当您单击**Knit**按钮时，将生成一个文档，其中包括文档中任何嵌入的R代码块的内容和输出。您可以像这样嵌入R代码块：
```{r cars}
df一个前置操作是将输出导出到文本文件。下面的链接显示了如何实现这一点


例如：

test <- c("asb", "asb", "asb", "abc")
out <- capture.output(summary(test))
cat("My title", out, file="example_output.txt", sep="\n", append=TRUE)

test您能给出一个最小的可重复性示例吗？我来看看是否能生成一个。会有一点。当我尝试你的例子时，我没有看到任何不必要的包装。你能描述一下你认为是什么问题吗？