我正在使用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)
但这并没有返回浏览器上的情节。
答案 0 :(得分:4)
因此,如果在最后一行我们只使用print命令: 打印(B + geom_bar())。