在 R 中的另一个函数中调用该函数作为参数

问题描述

我正在开发一个 API，因为我正在使用 Plumber。我已经用它的每个端点创建了两个函数。 我想在函数 2 OR 继承中使用函数 1 作为参数，例如函数 1 应该是我的父类，函数 2 将是我的子类。

我想重用函数 1 的代码来执行函数 2 的输出。

我不知道该怎么办！

请帮忙

提前致谢

功能 1

library(plumber)
library(gwasrapidd)

#* @get /Query    

simplequery <- function(query=""){

    studies <- get_studies(study_id = query) 

  }

功能 2

#* @get /GetData
    
    Getdata <- function(of=""){
          
          if (of == "Studies"){
            
            study_table <- studies@studies
            
            .....
          }
        }

解决方法

我使用了 with 函数来继承我的函数。

abc <- function{
    with(parent.frame(),{
       function_statement
    })
}

efg<- function{
    d <- abc()
    function_statement
}

它所做的是efg函数调用abc函数