R-水管工，如何将价值传递给全球环境？

Question

有人可以告诉我是否有一种方法可以使用管道工API将值（例如会话pid）传递给全局环境？

我已经尝试过<<-运算符，但是没有用。

这是一个非常简单的示例：

（my_file.R）

#* @param x My argument
#* @get /lag_lead 
function(x){
 return(x*2)
 api_pid <<- Sys.getpid()
}

和运行api的脚本：

library(plumber)
mon_api <- plumb('my_file.R')
mon_api$run(port = 8000)

Answer 1

您正在return-分配前，即未生效。试试

#* @param x My argument
#* @get /lag_lead 
function(x){
  api_pid <<- Sys.getpid()
  return(x*2)
}