r-带有RestRserve的多部分/表单数据

Question

我想公开一个接受多部分/表单数据、解析多部分内容并返回csv文件的端点。(多部分输入包含csv数据集和处理指令(

我已经用这里建议的Rook::Multipart$parse()和管道工做了这个。因为水管工不支持并行请求，我想用RestRserve重新实现这一点。以下内容不起作用——管道工的输入属于environment类(Rook::Multipart$parse()假设(，而RestRserve的输入属于Request R6类。

application = Application$new(content_type = "text/plain")
application$add_post("/echo", function(req, res) {
multipart <- Rook::Multipart$parse(req$body)
dta <- read_csv(multipart$dta$tempfile, trim_ws=FALSE)
res$set_body(dta)
})

关于如何使用RestRserve来获得多部分/表单数据输入，有什么想法吗？

Answer 1

RestRserve在处理传入请求时解析多部分主体。因此，您在request$files中有一个原始request$body和元数据。Request对象还提供了一种get_file方法来提取正文内容。让我展示应用程序和请求的示例：

# load packages
library(readr)
library(callr)
library(httr)
# run RestRserve in the background
ps <- r_bg(function() {
library(RestRserve)
library(readr)
app = Application$new(content_type = "text/plain")
app$add_post(
path = "/echo",
FUN = function(request, response) {
# for debug
str(request$body)
str(request$files)
# extract multipart body field
cnt <- request$get_file("csv") # 'csv' from the upload form field
# parse CSV
dt <- read_csv(cnt)
# for debug
str(dt)
# do something with dt
identity(dt)
# write result to temp file
tmp <- tempfile()
write_csv(dt, tmp)
# set output body
response$set_body(c(tmpfile = tmp))
# or simply response$set_body(format_csv(dt))
}
)
backend = BackendRserve$new()
backend$start(app, http_port = 65080)
})
# wait for up
Sys.sleep(2L)
# check is alive
ps$is_alive()
# prepare CSV to upload
tmp <- tempfile()
write_csv(head(iris, 5), tmp)
# POST request with file
rs <- POST(
url = "http:/127.0.0.1:65080/echo",
body = list(csv = upload_file(tmp)),
encode = "multipart"
)
# get response content
cat(content(rs))
# read log from the RestRserve
cat(ps$read_output())
# kill background prcoess
ps$kill()

有关此类中字段和方法的更多详细信息，请参见?Request。