R用管道工脚本从httr :: get获取请求

Question

我无法使用httr :: get和水管工提出适当的要求

myFile.R

JMSPriority

runMyFile.R

#* @get /getSum
getAddTwo <- function(a, b){
  as.numeric(a) + as.numeric(b)
}

但是来自另一个R实例的请求不起作用：

  r <- plumb("myfile.R")
  r$run(port=8000, host="xx.xx.x.x")  

但是它可以在浏览器中工作并返回值

 httr::GET('http://xx.xx.xx.xx:8000/getSum?a=55&b=55')
 Response [http://xx.xx.xx.xx:8000/getSum?a=55&b=55]
 Error in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L,  : 
  invalid 'trim' argument

应该。更改为localhost并没有帮助。 函数[110] 返回值，但是用棘手的方式解析它：

read.csv()