Как мы можем вернуть несколько участков в 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)

Вот что я получил из браузера:

Надеюсь, это поможет вам.