继承或从 R 中的另一个函数调用该函数

问题描述

我正在开发一个 API，因为我正在使用 Plumber，如果我已经创建了函数并想将该函数调用到另一个函数中。假设第一个函数可以被第二个函数调用，或者第二个函数可以是第三个函数。

library(plumber)

#* @get /echo
trial_query<- function(msg = "") {
    list(msg = paste0("The message is: '",msg,"'"))
}

#* @get /calling
abc <- function(){
  list(msg = paste0("The message is: '","'"))
}

用户输入存储在 msg 变量中，我想调用 trail_query 函数，并且在 abc 函数中有参数

解决方法

我不确定我是否理解你想要做什么。我建议阅读R scoping。

这里有什么可以启发你的东西，也许？

library(plumber)

states <- new.env()
trial_query<- function(msg = "") {
    states$msg <- msg
    list(msg = paste0("The message is: '",msg,"'"))
}

abc <- function(){
  list(msg = paste0("The message is: '",states$msg,"'"))
}

#* @get /echo
trial_query

#* @get /calling
abc