全R的结果与Rmarkdown/tufte_handout

Question

我正在写一些课程材料使用Rmarkdown和tufte包。但是，我希望在文档中的一些R输出的宽度大于讲义的宽度（请参阅下面示例中的lm模型的摘要）。我无法设法使这些R输出占据页面的整个宽度（我想有一些类似于图的fig.fullwidth块参数）。

我知道有一个fullwidth环境，但具有这样的环境内A R大块它防止pandoc构建PDF由于R中输出（通过指定该块参数comment=NA卸下这些散列的前前导散列产生一个pdf但R输出的格式会丢失）。

有没有办法让R输出的全宽？

感谢您的帮助。

下面是一个小例子，

--- 
title: "My minimal example" 
link-citations: yes 
output: 
    tufte::tufte_handout: 
    latex_engine: xelatex 
--- 

```{r setup, include=FALSE} 
library(tufte) 
# invalidate cache when the tufte version changes 
knitr::opts_chunk$set(tidy = FALSE, cache.extra = 
packageVersion('tufte')) 
options(htmltools.dir.version = FALSE) 
``` 

This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. This is a paragraph. 

```{r lm} 
model = lm(dist~speed,data=cars) 
summary(model) 
``` 

\begin{fullwidth} 
This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. This is a fullwidth. paragraph. 
\end{fullwidth} 

Answer 1

这是我在这里的第一答案和多输出真正fullwidth解决一个特设的解决方案。

我也遇到了这个问题，并最终通过连接输出与cat()来解决它。然后我试图通过使用capture.output()来使它更通用，但不幸的是我没有得到那个工作。

这完全忽视了主宽度，但不幸的是它不是一个最佳的解决方案，因为它也不会尊重完整的页面宽度，需要你复制粘贴输出：

--- 
title: "My minimal example" 
output: tufte::tufte_handout 
--- 

# Not fullwidth: 
```{r, echo = FALSE} 
model <- lm(dist ~ speed, data = cars) 
summary(model) 
``` 

# Not fullwidth: 
```{r, echo = FALSE} 
out <- capture.output(summary(model)) 
cat(out, sep = "\n") 
``` 

# Fullwidth: 
```{r, echo = FALSE} 
cat("Call: 
lm(formula = dist ~ speed, data = cars) 

Residuals: 
    Min  1Q Median  3Q  Max 
-29.069 -9.525 -2.272 9.215 43.201 

Coefficients: 
      Estimate Std. Error t value Pr(>|t|)  
(Intercept) -17.5791  6.7584 -2.601 0.* 
speed   3.9324  0.4155 9.464 1.49e-12 *** 
--- 
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 15.38 on 48 degrees of freedom 
Multiple R-squared: 0.6511, Adjusted R-squared: 0.6438 
F-statistic: 89.57 on 1 and 48 DF, p-value: 1.49e-12") 
``` 

如果任何人有一个建议，使capture.output()版本的工作，请让我知道。