beamer着色框中的allowframebreaks使用knitr消失

Question

我有以下代码

\documentclass{beamer} 
\begin{document}
<<setup, include=FALSE>>=
opts_chunk$set(out.lines = 4)
opts_chunk$set(size = 'footnotesize')
options(width=60)
knit_hooks$set(document = function(x) {
gsub('\\\\(begin|end)\\{kframe\\}', '', x)
})
@

执行此操作后，假设显示在阴影框中的R源代码和输出现在消失。关于如何让阴影框回来的任何想法？