r - ビーマーシェーディングボックスの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ソースコードと出力が消えます。影付きのボックスを元に戻す方法について何か考えはありますか?