使用knitR在R函数中写入乳胶块

时间:2015-12-14 08:52:45

标签: r knitr r-markdown sweave

我有以下问题;我在Rstudio中使用knitR来生成pdf。在名为“master.Rnw”的主文件中,我调用了一个名为“trigono.R”的长函数:

<<trigono_R, echo=FALSE, warning=FALSE, cache=FALSE, eval=TRUE>>=

source("./trigono.R")  
@

现在的问题是:是否有可能在这个R函数中调用一个乳胶块。这意味着在以下功能中:

trigono<- function(con = con, run.type = NULL){

normal R commands

open chunk Latex(

end chunk Latex)

normal R commands
}

有一个Latex命令或离开R chunk <<... >>= ... @并返回Latex写一些句子。

非常感谢

1 个答案:

答案 0 :(得分:1)

我自己找到答案并在这里给出,虽然我无法理解为什么我赢得反对票有时候这里真的很令人沮丧!

首先需要2个库:

库(knitr)

库(printr)

你必须使用包含你的功能的孩子。让我们在master.Rnw内呼叫一个名为trigono.Rnw

的孩子
<<childIntroduc, child='trigono.Rnw',results = "asis">>=
@

trigono.Rnw看起来像:

<< myfunctions, echo=FALSE, eval=TRUE>>=
normal R commands

.
.
cat(" \\newline \\emph{The text which appears as a normal text in Latex and Pdf \\color{red} 2.5.6} \\newline")
.
.
@