我们如何通过水管工返回R中的多个地块？

Question

这是我的代码看起来像

    library(plumber)
    data(mtcars)
    test=mtcars
    #' @get /graph
    #' @png
    makePlot <- function(){
      par(mfrow=c(2,1))
      hist(test$mpg)
      hist(test$wt)
    }

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

但在输出中我只看到一个图表。

Answer 1

这不是问题的解决方案，而是对上面给出的代码的个人测试 我使用以下代码创建了文件myfile.R：

# myfile.R

#* @get /graph
#* @png
makePlot <- function(){
      data(mtcars)
      test=mtcars
      par(mfrow=c(2,1))
      hist(test$mpg)
      hist(test$wt)
}

然后我在R中运行以下命令：

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

这是我从浏览器中获得的：

希望这可以帮到你。