水管工 - 安装的路由器

Question

我想从多个R脚本中使用Plumber创建API。我在管道工here中找到了有关已安装路由器的文档。我的主要脚本如下所示：

library(plumber)

root <- plumber$new()

calculations <- plumber$new("C:/temp/R-scripts/Calculations.R")
root$mount("/calculations", calculations)

statistics <- plumber$new("C:/temp/R-scripts/Statistics.R")
root$mount("/statistics", statistics)

root$run()

如果我尝试通过此url从第一个文件调用Sum函数：http://127.0.0.1:5787/calculations/sum?a=2&b=3我收到内部服务器错误，在RStudio中我可以看到此消息：

＆＃34; simpleError in（function（a，b）{as.numeric（a）+ as.numeric（b）}）（a =＆＃34; 2＆＃34;，b =＆＃34; 3＆＃34;，a =＆＃34; 2＆＃34;，b =＆＃34; 3＆＃34;）：正式论证＆＃34; a＆＃34;由多个实际参数匹配＆＃34;

第一个文件如下所示：

#* @serializer unboxedJSON
#* @get /sum
addTwo <- function(a, b){
  as.numeric(a) + as.numeric(b)
}

知道我做错了吗？

由于

P.S。我忘了提到如果我将主脚本更改为：

library(plumber)
r <- plumb("C:/temp/R-scripts/Calculations.R")
r$run()

一切都按预期工作