RPlumber API - 将数据作为 CSV 而不是 JSON 返回 - 在 mac 上本地工作，但在 ubuntu-16.04 上不工作

Question

我们使用 RPlumber 来托管 API，我们的开发人员要求 API 端点以 CSV 格式而不是 JSON 格式提供数据。为了处理这个问题，我们有以下内容:

r_endpoints.R

#* @get /test-endpoint-1
testEndpoint <- function(res) {
  mydata <- data.frame(a = c(1,2,3), b = c(3,4,5))
  print('mydata')
  print(mydata)
  con <- textConnection("val","w")
  print(paste0('con: ', con))
  write.csv(x = mydata, con, row.names = FALSE)
  close(con)

  print('res and res.body')
  print(res);  
  res$body <- paste(val, collapse="\n")
  print(res$body)
  return(res)
}

#* @get /test-endpoint-2
testEndpoint2 <- function() {
  mydata <- data.frame(a = c(1,2,3), b = c(3,4,5))
  return(mydata)
}

run_api.r

library(plumber)
pr <- plumber::plumb("r_endpoints.R")
pr$run(host = "0.0.0.0", port = 8004)

test-endpoint-2 返回 JSON 格式的数据，而 test-endpoint-1 返回 CSV 格式的数据。当这些端点在我的 mac 上本地运行时，并且当我点击端点时，我收到以下正确输出:

为了托管 API，我们在 Linode Ubuntu 16.04 服务器上安装了 R + 库 + pm2，并安装了所有(我认为是所有)依赖项。当我们尝试访问服务器上托管的端点时，我们收到:

以下是我添加到 test-endpoint-1 以帮助调试的打印语句:

[1] "mydata"
  a b
1 1 3
2 2 4
3 3 5
[1] "con: 3"
[1] "res and res.body"
<PlumberResponse>
  Public:
    body: NULL
    clone: function (deep = FALSE) 
    headers: list
    initialize: function (serializer = serializer_json()) 
    removeCookie: function (name, path, http = FALSE, secure = FALSE, same_site = FALSE, 
    serializer: function (val, req, res, errorHandler) 
    setCookie: function (name, value, path, expiration = FALSE, http = FALSE, 
    setHeader: function (name, value) 
    status: 200
    toResponse: function () 
[1] "\"a\",\"b\"\n1,3\n2,4\n3,5"

这些是正确的打印语句 - 与我们在本地获得的相同。出于某种原因，服务器不允许我们以本地计算机允许的方式返回 CSV 格式，我不知道为什么会这样，也不知道如何解决。

编辑

在本地机器上更新 plumber 库后，我现在在本地机器上也收到错误 An exception occurred.。看来，在较新版本的管道工中，我用来将 API 端点输出转换为 CSV 文件的代码片段:

  ...
  con <- textConnection("val","w")
  write.csv(x = mydata, con, row.names = FALSE)
  close(con)

  res$body <- paste(val, collapse="\n")
  return(res)

不再有效。

编辑2

这是我自己的stackoverflow post从将近 3 年前开始，关于如何将数据作为 CSV 返回...似乎不再有效。

编辑3

使用@serialize csv 确实“有效”，但是当我到达端点时，数据以 CSV 格式下载到我的本地机器上，而数据最好以 CSV 格式简单地从 API 返回, 但不会自动下载到 CSV 文件中...

Answer 1

也许可以从中寻找灵感，在这里我将响应内容类型 header 修改为文本/纯文本。我相信 text/plain 应该显示在浏览器中。

#* @get /json
#* @serializer unboxedJSON
function() {
  dostuff()
}

#* @get /csv
#* @serializer csv list(type="text/plain; charset=UTF-8")
function() {
  dostuff()
}


dostuff <- function() {
  mtcars
}