r - 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在分配之前-ing，即它没有生效。尝试

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