vignettes/files/apis/04-02-contenttype.R

In plumber2: Easy and Powerful Web Servers

#* @serializer application/pdf
#* @get /pdf
function() {
  tmp <- tempfile()
  pdf(tmp)
  plot(1:10, type="b")
  text(4, 8, "PDF from plumber!")
  text(6, 2, paste("The time is", Sys.time()))
  dev.off()

  readBin(tmp, "raw", n=file.info(tmp)$size)
}