我们如何通过plumber返回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)

这是我从浏览器中得到的信息：

​

​

希望这能对你有所帮助。