Доступ к API Яндекс.Переводчик из R

Старт здесь. Читаем условия доступа, главным образом, ограничения на объем переводимого текста — до 1 000 000 символов в сутки, но не более 10 000 000 символов месяц — и получаем ключ API.

В документации все описано предельно понятно. Вот запрос на перевод, взятый оттуда

POST /api/v1.5/tr.json/translate?lang=en-ru&key=API-KEY HTTP/1.1
Host: translate.yandex.net
Accept: */*
Content-Length: 17
Content-Type: application/x-www-form-urlencoded

text=Hello World!

который я прямолинейно реализовал в R:

library(httr)
library(magrittr)

api_key = 'API_KEY'
endpoint = 'https://translate.yandex.net/api/v1.5/tr.json/'
lang_pair = 'en-ru'

mytext = 'Hello world!'

# Для тех, у кого переводчик блокируется
# Список прокси: https://www.us-proxy.org/
# set_config(use_proxy('XXX.XXX.XXX.XXX', port = YYYY))

rsp = POST(paste0(endpoint,'translate'),
           query = list(lang = lang_pair, key = api_key),
           add_headers(
             'Content-Type' = 'application/x-www-form-urlencoded'
           ),
           body = paste0('text=', mytext)
)

translated = content(rsp, as="text", encoding = "UTF-8") %>% 
             jsonlite::fromJSON() %>% .$text

Читайте также

Комментарии