R parça kodu Beamer çerçevesinin içinde kalıyor

Question

İşte MWE kodum.

\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} 

Ben Beamer çerçevesinde Ar öbek kodunu tutmak için mücadele ediyorum. Roket kodlarını Beamer çerçevesinin içinde kalmaları için yönetmenin etkili yolu nedir? Teşekkürler

Answer 1

En iyi yaklaşım, tidy seçeneğini tidy=FALSE ile kapatmak ve satırları el ile kesmektir.

<<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) 
@ 

Bu her zaman çalışır. Diğer yol ise, (knitr FAQ 8) 'da daha küçük width ayarını yapmaktır ve muhtemelen ideal bir width için birkaç kez denemeniz gerekir. Senin durumunda, 60 görünüşe göre çok büyük.