如何将R输出应用为LaTex部分？

Question

假设我在x.rnw文件中有一个R块，比如

<<section1, echo=F>>=
> x <- "A_B_C"
> result <- paste0("\\section {",gsub("_","\\\\_",x),"}")
> cat(result)
\section {A\_B\_C}
@

如何在 Sweave 或 knitr 期间让输出\section {A\_B\_C}作为\section执行？