在 Rmarkdon 的单独代码块中拆分函数

问题描述

在我的脚本中，我调用了一个很长的函数。我想在函数中包含与 Markdown 混合的部分代码。我不知道如何将函数拆分为单独的代码块和 Markdown。

在下面的示例中，我有一个函数 getres()。我想在“我想要的”标题下方显示此功能。有办法吗？

    ---
    title: "Example"
    output: html_document
    ---
    ## What I have Now:
    
    ```{r desiref}
    getRes <- function(){
      # Here I'm calculating 1+1:
      res<- 1+1
      # Here I'm multiplying the resuls by two:
      res<- res*2
      return(res)
    }
    res<-getRes()
    ```
    
    The results is: `r res`
    
    ## What I want:
    
    Here I'm calculating 1+1:
    
    ```{r ex1}
    res <- 1+1
    ```
    
    Here I'm multiplying the resuls by two:
    
    ```{r ex2}
    res<- res*2
    ```
    
    The results is: `r res`

哪个给出了降价：

我现在拥有的：

    getRes <- function(){
      # Here I'm calculating 1+1:
      res<- 1+1
      # Here I'm multiplying the resuls by two:
      res<- res*2
      return(res)
    }
    res<-getRes()

结果是：r res

我想要的：

这里我计算的是 1+1：

    res <- 1+1

这里我将结果乘以 2：

    res<- res*2

结果是：r res

解决方法

这个问题实际上可能已经解决了： How do I explain a complicated function in Rmarkdown?

答案是（我添加了一个额外的参数来检查函数是否正常工作）：

    ---
    title: "Example"
    output: html_document
    ---
    ## Old function:
    
    ```{r desiref,echo=FALSE}
    getRes <- function(){
      # Here I'm calculating 1+1:
      res<- 1+1
      # Here I'm multiplying the resuls by two:
      res<- res*2
      return(res)
    }
    res<-getRes()
    ```
    ## Answer :

    Here I'm calculating 1+1:
    ```{r Xsquare1,eval=F}
    res<- 1+x
    ```
    
    Here I'm multiplying the resuls by two:
    ```{r Xsquare2,eval=F}
    res<- res*2
    ```
    
    
    ```{r complicated,eval=T,echo=FALSE}
    complicated = function(x) {
       <<Xsquare1>>
       <<Xsquare2>>
    }
    res=complicated(5)
    ```
    The results is: `r res`
    
    ## Old requirement:
    
    Here I'm calculating 1+1:
    
    ```{r ex1}
    res <- 1+1
    ```
    
    
    Here I'm multiplying the resuls by two:
    
    ```{r ex2}
    res<- res*2
    ```
    
    The results is: `r res`