Question

我想将一些代码从RCurl移植到curl包，看看是否有一些效率提升。

相当于：

library(RCurl)
resp = postForm("https://httpbin.org/post", "fileData" = fileUpload(filename = "app.exe", contentType = "application/octet-stream"),
         .opts = list(httpheader = c(Authorization = "token 123", `Content-Type` = "application/octet-stream")))

或

curl -H "Authorization: token 123" -H "Content-Type: application/octet-stream" --data-binary @app.exe "https://httpbin.org/post"

使用curl套餐？

顺便说一下，这就是我的尝试：

library(curl)
h=new_handle()
handle_setform(h,
  c(Authorization = "token 123", `Content-Type` = "application/octet-stream"),
  fileData = form_file("app.exe", type="application/octet-stream")
)
req=curl_fetch_memory("http://httpbin.org/post", handle = h)

Answer 1

我需要进一步测试，但这似乎是一个通用的上传解决方案：

library(curl)
h=new_handle()
handle_setheaders(h,
        Authorization = "token 123",
        "Content-Type" = "application/x-dosexec"
        )

handle_setform(h,
               app = form_file("app.exe", type="application/x-dosexec"))
req=curl_fetch_memory("http://httpbin.org/post", handle = h)

R：使用curl包上传二进制文件

1 个答案: