Mã chunk nằm trong khung Beamer

Question

Đây là mã MWE của tôi.

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

Tôi đang đấu tranh để giữ mã R đoạn trong khung Beamer. Tôi tự hỏi cách hiệu quả để quản lý các mã chunk R như vậy mà họ ở bên trong khung Beamer là gì. Cảm ơn

Answer 1

Cách tiếp cận tốt nhất là tắt tùy chọn tidy bằng cách tidy=FALSE và ngắt thủ công các đường của bạn.

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

Điều này sẽ luôn hoạt động. Cách khác là đặt width nhỏ hơn trong options() (knitr FAQ 8) và bạn có thể cần phải thử một vài lần cho một lý tưởng width. Trong trường hợp của bạn, 60 dường như là quá lớn.