Bei meinen in RMarkdown geschriebenen Presentationen kommt es ab und zu vor, dass die Ausgabe von R zu lange für eine Seite wird.
Eine Ausgabe wie
Mod3 <- lm(tip ~ total_bill + sex + smoker + day + time + size, data = tips)
summary(Mod3)##
## Call:
## lm(formula = tip ~ total_bill + sex + smoker + day + time + size,
## data = tips)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.8475 -0.5729 -0.1026 0.4756 4.1076
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.803817 0.352702 2.279 0.0236 *
## total_bill 0.094487 0.009601 9.841 <2e-16 ***
## sexMale -0.032441 0.141612 -0.229 0.8190
## smokerYes -0.086408 0.146587 -0.589 0.5561
## daySat -0.121458 0.309742 -0.392 0.6953
## daySun -0.025481 0.321298 -0.079 0.9369
## dayThur -0.162259 0.393405 -0.412 0.6804
## timeLunch 0.068129 0.444617 0.153 0.8783
## size 0.175992 0.089528 1.966 0.0505 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.024 on 235 degrees of freedom
## Multiple R-squared: 0.4701, Adjusted R-squared: 0.452
## F-statistic: 26.06 on 8 and 235 DF, p-value: < 2.2e-16kann schon einmal den Beamer-Rahmen sprengen.
Meine Idee war es nun mit etwas LaTeX und der Umleitung der Ausgabe zu tricksen, in dem ich die Ausgabe von R umleite, aufteile und die Ausgabe vonn kntir von Hand mache:
```{r, tidy=TRUE, size='tiny', tidy.opts=list(blank=FALSE, width.cutoff=75), eval=FALSE}
Mod3<-lm(tip~total_bill + sex + smoker + day + time + size, data=tips)
summary(Mod3)
```
```{r, echo= FALSE, tidy=TRUE, size='tiny', tidy.opts=list(blank=FALSE, width.cutoff=55), }
Mod3<-lm(tip~total_bill + sex + smoker + day + time +
size, data=tips)
txt <- capture.output(summary(Mod3))
splitat <- 25
library(stringi)
```
### Left {.twocolumnsbegin}
\scriptsize\ttfamily
\begin{verbatim}
'r paste0(stri_wrap(txt[1:splitat], width=55, normalize=FALSE), collapse="\n## ")`
\end{verbatim}
### Right {.twocolumnsep}
\scriptsize\ttfamily
\begin{verbatim}
'r paste0(stri_wrap(c("",txt[-(1:splitat)]), width=55, normalize=FALSE), collapse="\n## ")`
\end{verbatim}
\normalsize