R/microsoftTranslate.R

In translateR: Bindings for the Google and Microsoft Translation APIs

microsoftTranslate <-
function(x, access.token, source.lang, target.lang){
    params = paste("text=", URLencode(x), "&to=", target.lang, "&from=", source.lang, sep = '')
    translateUrl = paste("http://api.microsofttranslator.com/v2/Http.svc/Translate?", params, sep = '')
    
    return(
        cleanFun(
            GET(translateUrl, add_headers(Authorization = paste('Bearer', access.token)))
            )
        )
}