在Plumber上运行R脚本时出现"Node Stack Overflow“错误

Question

我尝试在R.first中使用plumber包创建一个REST web API，它运行得很好，但是当我们第二次运行相同的代码时，它显示了"node stack overflow“错误。我只是尝试从我的函数中打印相同的消息。代码将在下一节中给出。

我也尝试过在VMWare linux (Ubuntu)上运行它，给它分配了额外的内存(最初是8192kb，然后是7969177 kb )。然而，结果始终是相同的错误

    # plumber.R
    #' Echo the parameter that was sent in
    #' @param msg The message to echo back.
    #' @get /echo
       function(msg="")
        {
          list(msg = paste0 ("The message is: '", msg, "'"))
        }
       library('plumber')
      plumber::plumb("plumber.R")$run

Answer 1

在R中创建一个文件并将其命名为myfile.R在文件夹中创建另一个文件名为plumb.R这两个文件应位于相同的文件夹或工作目录中

对于myfile.R，编写以下代码

# myfile.R
#' @get /mean
#' 
normalMean <- function(samples=10){
  data <- rnorm(samples)
  mean(data)
}

在plumb.R中写入

library(plumber)

r <- plumb("myfile.R")
r$run(port=8000)

然后打开你的谷歌浏览器，输入下面的http://localhost:8000/mean

很简单，它会给你输出

Answer 2

去掉第一行"# plumber“，所有的东西都会完美地工作。