r - 配管工を介して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)

しかし、出力には 1 つのグラフしか表示されません。