如何使用 httr POST multipart/related 内容（for Google Drive API）

Question

我使用 httr 将简单的文件上传到 Google 驱动器。问题是每个文档都以 "untitled" 的形式上传，我必须修补元数据才能设置标题。 PATCH请求偶尔会失败。

根据 API，我应该能够进行分段上传，允许我将标题指定为上传文件的同一 POST 请求的一部分。

res<-POST(
  "https://www.googleapis.com/upload/drive/v2/files?convert=true",
  config(token=google_token),
  body=list(y=upload_file(file))
)
id<-fromJSON(rawToChar(res$content))$id
if(is.null(id)) stop("Upload failed")
url<-paste(
  "https://www.googleapis.com/drive/v2/files/",
  id,
  sep=""
)
title<-strsplit(basename(file), "\.")[[1]][1]
Sys.sleep(2)
res<-PATCH(url,
  config(token=google_token),
  body=paste('{"title": "',title,'"}', sep = ""),
  add_headers("Content-Type" = "application/json; charset=UTF-8")
)
stopifnot(res$status_code==200)
cat(id)

我想做的是这样的：

res<-POST(
  "https://www.googleapis.com/upload/drive/v2/files?uploadType=multipart&convert=true",
  config(token=google_token),
  body=list(y=upload_file(file),
            #add_headers("Content-Disposition" = "text/json"),
            json=toJSON(data.frame(title))
  ),
  encode="multipart",
  add_headers("Content-Type" = "multipart/related"),
  verbose()
)

我得到的输出显示各个部分的内容编码错误，导致 400 错误：

-> POST /upload/drive/v2/files?uploadType=multipart&convert=true HTTP/1.1
-> User-Agent: curl/7.19.7 Rcurl/1.96.0 httr/0.6.1
-> Host: www.googleapis.com
-> Accept-Encoding: gzip
-> Accept: application/json, text/xml, application/xml, */*
-> Authorization: Bearer ya29.ngGLGA9iiOrEFt0ycMkPw7CZq23e6Dgx3Syjt3SXwJaQuH4B6dkDdFXyIC6roij2se7Fs-Ue_A9lfw
-> Content-Length: 371
-> Expect: 100-continue
-> Content-Type: multipart/related; boundary=----------------------------938934c053c6
-> 
<- HTTP/1.1 100 Continue
>> ------------------------------938934c053c6
>> Content-Disposition: form-data; name="y"; filename="db_biggest_tables.csv"
>> Content-Type: application/octet-stream
>> 

>> table    rows    DATA    idx total_size  idxfrac

>> 
>> ------------------------------938934c053c6
>> Content-Disposition: form-data; name="json"
>> 
>> {"title":"db_biggest_tables"}
>> ------------------------------938934c053c6--

<- HTTP/1.1 400 Bad Request
<- Vary: Origin
<- Vary: X-Origin
<- Content-Type: application/json; charset=UTF-8
<- Content-Length: 259
<- Date: Fri, 26 Jun 2015 18:50:38 GMT
<- Server: UploadServer
<- Alternate-Protocol: 443:quic,p=1
<-

有没有办法为各个部分正确设置内容编码？第二部分应该是"text/json"，例如

我浏览了 R 文档、Hadley 在 Github 的 httr 项目页面、这个站点和一些常规的谷歌搜索。我找不到任何有关如何进行分段上传和设置 content-encoding.

的示例

Answer 1

您应该可以使用 curl::form_file 或其别名 httr::upload_file 来完成此操作。另见卷曲 vignette。按照 Google API 文档中的示例：

library(httr)

media <- tempfile()
png(media, with = 800, height = 600)
plot(cars)
dev.off()

metadata <- tempfile()
writeLines(jsonlite::toJSON(list(title = unbox("My file"))), metadata)

#post
req <- POST("https://httpbin.org/post",
  body = list(
    metadata = upload_file(metadata, type = "application/json; charset=UTF-8"),
    media = upload_file(media, type = "image/png")
  ),
  add_headers("Content-Type" = "multipart/related"),
  verbose()
)

unlink(media)
unlink(metadata)

这里唯一的区别是curl会自动为每个文件添加一个Content-Disposition header，multipart/form-data需要，multipart/related不需要。在这种情况下，服务器可能会忽略这个多余的 header。

目前，如果不将内容写入文件，则无法完成此操作。也许我们可以在 httr/curl 的未来版本中添加类似的东西，尽管以前没有出现过。

如何使用 httr POST multipart/related 内容（for Google Drive API）

How to POST multipart/related content with httr (for Google Drive API)

file-upload

r

multipart

google-drive-api

httr