R/googleTranslate.R

Defines functions googleTranslate

googleTranslate <-
function(x, api.key, source.lang, target.lang){
    base <- 'https://www.googleapis.com/language/translate/v2?'
    key.str <- paste('key=', api.key, sep = '')
    query <- paste('&q=', curlEscape(x), sep = '')
    source.str <- paste('&source=', source.lang, sep = '')
    target.str <- paste('&target=', target.lang, sep = '')
    
    api.url <- paste(base, key.str, query, source.str, target.str, sep = '')
 
    translated <- fromJSON(getURL(api.url, .opts = list(ssl.verifypeer = FALSE)))$data$translations[[1]]
    return(translated)
}
ChristopherLucas/translateR documentation built on March 3, 2021, 2:50 a.m.