Создайте JSON для отправки запроса API в R

Question

Это могло быть задано и решено раньше, я просто не могу получить прямого ответа.

Я получил следующее:

text <- 'Testing to be translated'

Что я пытаюсь понять JSON, например:

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

Я пробовал использовать to JSON, но не смог получить эту структуру. Кроме того, я сделал несколько быстрых исправлений:

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"}]