R - 水管工，如何将一个值传递给全局环境？

Question

任何人都可以告诉我是否有办法通过管道工将值（例如会话 pid）传递到全局环境 API？

我试过 <<- 运算符，但不起作用。

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

(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)
}

R - plumber, how to pass a value to the global environment?