1

我想与 RestRServe 合作，上传一个 .xlsx 文件进行处理。我已经成功地使用 .csv 尝试了以下操作，但是使用 get_file 对 .xlsx 进行了一些细微的修改并没有取得成果。

ps <- r_bg(function(){

  library(RestRserve)
  library(readr)
  library(xlsx)

  app = Application$new(content_type = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")
  app$add_post(
    path = "/echo",
    FUN = function(request, response) {
      cnt <- request$get_file("xls")
      dt <- xlsx::read.xlsx(cnt, sheetIndex = 1, header = TRUE)
      response$set_body("some function")
    }
  )

  backend = BackendRserve$new()
  backend$start(app, http_port = 65080)
})
4

1 回答 1

3

你试过什么？根据文档 request$get_file()方法返回一个原始向量 - 文件的二进制表示。我不知道允许直接从原始向量读取 xls/xlsx 文件的 R 包/函数（可能存在这样的函数，我只是不知道）。

在这里，您可以将正文写入文件，然后以正常方式读取它：

library(RestRserve)
library(readxl)

app = Application$new()
app$add_post(
  path = "/xls",
  FUN = function(request, response) {
    fl = tempfile(fileext = '.xlsx')
    xls = request$get_file("xls")

    # need to drop attributes as writeBin() 
    # can't write object with attributes
    attributes(xls) = NULL
    writeBin(xls, fl)
    xls = readxl::read_excel(fl, sheet = 1)
    response$set_body("done")
  }
)

backend = BackendRserve$new()
backend$start(app, http_port = 65080)

另请注意，该content_type参数用于响应编码，而不是用于请求解码。

于 2020-04-14T06:42:51.737 回答