我正在使用 ggplot 绘制条形图,并使用 R 中的管道工包将此函数创建为 Web api。
library(plumber)
library(ggplot2)
#' @get /histogram_test
#' @png
histogram_test <- function(){
mtcars=mtcars
b=ggplot(mtcars,aes(mtcars$cyl))
b+geom_bar()
}
然后我运行:
r <- plumb("plum_api.R")
r$run(port=8000)
但这不会返回浏览器上的图。