r-XLSX数据上传与RestRserve

Question

我想与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)
})

Answer 1

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

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

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参数用于响应编码，而不是请求解码。