2

如果我有保存的图像文件，我如何通过管道工为它们提供服务？

例如，这可以正常工作

# save this as testPlumb.R

library(magrittr)
library(ggplot2)

#* @get /test1
#* @png
test1 = function(){
    p = data.frame(x=1,y= 1) %>% ggplot(aes(x=x,y=y)) + geom_point()
    print(p)
}

并运行

plum = plumber::plumb('testPlumb.R')
plum$run(port=8000)

如果你去http://localhost:8000/test1，你会看到正在服务的情节。

但我找不到提供图像文件的方法

#* @get /test2
#* @png
test2 = function(){
    p = data.frame(x=1,y= 1) %>% ggplot(aes(x=x,y=y)) + geom_point()
    ggsave('file.png',p)

    # code that modifies that file a little that doesn't matter here

    # code that'll help me serve the file
}

代替code that'll help me serve the file上面，我按照这里include_file的建议进行了尝试，但失败了。

由于这code that modifies that file a little that doesn't matter here部分使用的是魔法包，我也尝试过使用魔法服务对象，print但也没有成功。

例如

#* @get /test3
#* @png
test3 = function(){
    p = data.frame(x=1,y= 1) %>% ggplot(aes(x=x,y=y)) + geom_point()
    ggsave('file.png',p)
    fig = image_read(file)
    fig = image_trim(fig)
    print(fig) # or just fig
}

结果是{"error":["500 - Internal server error"],"message":["Error in file(data$file, \"rb\"): cannot open the connection\n"]}

4

1 回答 1

7

如此处所述，需要绕过默认的 png 序列化程序才能完成这项工作。所以最后替换#* @png并#* @serializer contentType list(type='image/png')读取文件通过readBin解决问题

#* @get /test2
#* @serializer contentType list(type='image/png')
test2 = function(){
    p = data.frame(x=1,y= 1) %>% ggplot(aes(x=x,y=y)) + geom_point()
    file = 'file.png'
    ggsave(file,p)

    readBin(file,'raw',n = file.info(file)$size)
}
于 2018-04-26T03:05:23.730 回答