if (FALSE) {
# Translate a single text
translate2("I like to translate texts.", target_lang = "DE", auth_key = "x")
# Translate multiple texts into one target language
texts <- c("I like to translate texts.", "Ich übersetze gerne Texte.")
translate2(texts, target_lang = "FR", auth_key = "x")
# Translate a single text into multiple target languages
translate2("I like to translate texts.", target_lang = c("FR", "DE", "IT"), auth_key = "x")
# Translate multiple texts into different languages
texts <- c("I like to translate texts.", "Ich übersetze gerne Texte.")
translate2(texts, target_lang = c("FR", "IT"), auth_key = "x")
}
Run the code above in your browser using DataLab