R Chunk Code bleibt im Beamer Rahmen

Question

Hier ist mein MWE Code.

\documentclass{beamer} 
\begin{document} 

<<setup, include=FALSE>>= 
# smaller font size for chunks 
opts_chunk$set(size = 'footnotesize') 
options(width=60) 
@ 


\begin{frame}[fragile] 
\frametitle{Test1} 

<<boring-random>>= 
y <- c(5, 7, 15, 17, 17, 19) 
Trt <- gl(n = 3, k = 2, length = 3 * 2, labels = paste("Trt", 
1:3, sep = ""), ordered = FALSE) 
Data <- data.frame(Trt, y) 
Fit1 <- aov(formula = y ~ Trt, data = Data, contrasts = list(Trt = "contr.sum")) 
ANOVA1 <- anova(Fit1) 
Coeffs1 <- coefficients(Fit1) 
@ 
\end{frame} 

\end{document} 

ich kämpfen, um den R chunk Code innerhalb des Beamer Rahmen zu halten. Ich frage mich, wie man die R-Chunk-Codes so effizient verwaltet, dass sie innerhalb des Beamer-Frames bleiben. Danke

Answer 1

Der beste Ansatz ist, die tidy Option von tidy=FALSE zu deaktivieren, und manuell Ihre Zeilen zu brechen.

<<boring-random, tidy=FALSE>>= 
y <- c(5, 7, 15, 17, 17, 19) 
Trt <- gl(n = 3, k = 2, length = 3 * 2, labels = paste("Trt", 
    1:3, sep = ""), ordered = FALSE) 
Data <- data.frame(Trt, y) 
Fit1 <- aov(formula = y ~ Trt, data = Data, 
    contrasts = list(Trt = "contr.sum")) 
ANOVA1 <- anova(Fit1) 
Coeffs1 <- coefficients(Fit1) 
@ 

Dies wird immer funktionieren. Der andere Weg ist, width in options() (knitr FAQ 8) kleiner zu setzen, und Sie müssen wahrscheinlich ein paar Mal für einen idealen width versuchen. In deinem Fall ist 60 anscheinend zu groß.