R: google translate API (packages 'translate' & '' translateR ')

Question

Я пытаюсь использовать пакеты и translateR с R-Studio.

Я создал и API-интерфейс «сервер» и «браузер». Браузер API отлично работает при запуске примера:

https://www.googleapis.com/language/translate/v2?key=YOUR_API_KEY&q=hello%20world&source=en&target=de

Однако при использовании либо ключа API и либо пакета с R-Studio (translate/translateR), я получаю сообщение об ошибке. С translate

> library(translate) 
> set.key("mykey") 
> translate('Hello, world!', 'en', 'de') 
Error in function (type, msg, asError = TRUE) : 
    SSL certificate problem: unable to get local issuer certificate 

В чем может быть проблема? Спасибо за помощь!

Answer 1

Кажется, проблема была связана с системой. Он работает после того, как я изменил прокси-сервер https.

Answer 2

Я также имел некоторые проблемы с этим и написал небольшую функцию для извлечения данных из API:

#' Translate with R 
#' 
#' Translate Keywords or/and text with the Google Translate API 
#' The Functions allows to translate keywords or sentences using the Google Translate API. 
#' To use this function you need to get a API-Key for the Google Translate API <https://cloud.google.com/translate/docs/?hl=en>. 
#' @param text The keyword/sentence/text you want to translate 
#' @param API_Key Your API Key. You get the API Key here: <https://cloud.google.com/translate/docs/?hl=en> 
#' @param target The Language target your text translated to. For German 'de'. 
#' @param source The Language your given text/keyword is. For example 'en' - english 
#' translate() 
#' @examples 
#' \dontrun{ 
#' translate(text = "R is cool", API_Key = "XXXXXXXXXXX", target = "de", source = "en") 
#' } 


translate <- function(text, 
         API_Key, 
         target = "de", 
         source = "en") { 
    b <- paste0(
    '{ 
    "q": [ 
    "', 
    text, 
    '" 
    ], 
    "target": "', 
    target, 
    '", 
    "source": "', 
    source, 
    '", 
    "format": "text" 
}' 
) 
    url <- 
    paste0("https://translation.googleapis.com/language/translate/v2?key=", 
      API_Key) 
    x <- httr::POST(url, body = b) 
    x <- jsonlite::fromJSON(rawToChar(x$content)) 
    x <- x$data$translations 
    return(x$translatedText[1]) 
    } 

Обновлено Gist здесь: https://gist.github.com/dschmeh/8414b63c3ab816c44995cd6872165f0e