在 R 中创建 JSON 发送 API 请求

Question

这个问题以前可能有人问过并解决过，我只是无法得到一个直接的答案。

我得到以下信息：

text <- 'Testing to be translated'

我正在尝试进入 JSON 格式，例如：

[{"Text": "Testing to be translated"}]

我试过使用 toJSON 但我无法获得该结构。此外，我做了一些快速修复：

paste0('[{"Text":"', text, '"}]')

哪个会工作得很好；但是，我有一些带有 " 和 ' 字符的字符串，它们会破坏此代码。

任何输入都会有所帮助。更多上下文：我正在使用 GET 请求从 Azure 服务器翻译文本，无法使用 translateR，所以我正在创建自己的函数。

Answer 1

要创建数组，请传递 jsonlite::toJSON 未命名的列表或向量。您还应该设置 auto_unbox=TRUE 以便不将标量视为数组。

text <- 'Testing to be translated'
jsonlite::toJSON(list(list(Text=text)), auto_unbox=TRUE)

# [{"Text":"Testing to be translated"}]

Create JSON to send API request in R