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

【问题标题】：write within R function a latex chunk using knitR使用 knitR 在 R 函数中写入乳胶块
【发布时间】：2015-12-14 08:52:45
【问题描述】：

我有以下问题；我在 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 块 <<... >>= ... @ 并回到 Latex 写一些句子。

非常感谢

【问题讨论】：

闻起来像XY problem。你想实现什么？
好的我不知道这是否是一个 XY 问题:) 但有可能解决它，那就是使用 child in knitR 但在这里我正在寻找另一种可能更容易解决的解决方案实施。

标签： r knitr r-markdown sweave

【解决方案1】：

我自己找到了答案并在这里给出了答案，虽然我不明白为什么我有时在这里获得了反对票，这真的很令人沮丧！

首先需要 2 个库：

库（编织器）

库（打印机）

您必须使用包含您的功能的子项。假设在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")
.
.
@

【讨论】：