使用 httr 将 curl 命令转换为 R(特别是 '--data-binary @')

Question

我正在尝试使用必应语音转文本将一些声音文件转录为文本。

以下命令在命令行中工作(在 Windows 10 上使用 git bash)：

curl  -v -X POST "https://speech.platform.bing.com/speech/recognition/interactive/
cognitiveservices/v1?language=<LANG>&format=detailed" -H "Transfer-Encoding: 
chunked" -H "Ocp-Apim-Subscription-Key: <MY KEY>" -H "Content-type: 
audio/wav; codec=audio/pcm; samplerate=16000" --data-binary @<MY .WAV-FILE>

我已经试过了，但它不起作用：

httr::POST(url = myURL,
add_headers("Ocp-Apim-Subscription-Key" = key,
"Content-type" = "audio/wav; codec=audio/pcm; samplerate=16000",
"Transfer-Encoding" = "chunked"),
body = (list("file" = upload_file("PATH_TO_FILE.wav"))),
verbose())

它返回以下输出： 响应

[https://speech.platform.bing.com/speech/recognition/dictation/
cognitiveservices/v1?language=<LANG>&format=detailed]
Date: 2017-11-29 13:29
Status: 200
Content-Type: text/plain
Size: 75 B

我相信该请求与.wav文件的解释有关，我需要以某种方式将"--data-binary"标签添加到 httr 请求中。我可以看到我的"内容类型"是纯文本，尽管我已经指定了。此外：API 文档指定我需要在我的 wav 文件前面加上一个 at-sign。

任何帮助将不胜感激。

干杯。

编辑：链接到API文档 https://learn.microsoft.com/da-dk/azure/cognitive-services/speech/getstarted/getstartedrest?tabs=curl#tabpanel_AFC9x30-dR_curl

Answer 1

我想通了。

关键是在正文中设置正确的MIME类型。不设置此 MIME 类型可能会导致接收端的错误解释，即使我们得到的响应为 200。

body <- list(file = httr::upload_file(
paste0(path, "/", f),
type = "audio/wav; codec=audio/pcm; samplerate=16000"))

其中paste0(path, "/", f)是音频文件的路径。

myURL <- sprintf('https://speech.platform.bing.com/speech/recognition/%s/cognitiveservices/v1?language=%s&format=%s',
"dictation",
"da-DK",
"detailed")
rs <- httr::POST(
url = myURL,
httr::add_headers(.headers = c("Ocp-Apim-Subscription-Key" = key)),
httr::add_headers(.headers = c("Transfer-Encoding" = "chunked")),
body = body)