toGerman2 {deeplr}

Translate texts into German using DeepL API Free

Description

toGerman2 translates a text from an available language into German using DeepL API Free. Use available_languages2 to list all supported languages. An authentication key is required to use this service. With the DeepL API Free package, developers can translate up to 500,000 characters per month for free.

Usage

toGerman2(
  text,
  source_lang = NULL,
  split_sentences = TRUE,
  preserve_formatting = FALSE,
  get_detect = FALSE,
  auth_key = "your_key"
)

Arguments

text

character vector to be translated. Only UTF8-encoded plain text is supported. An element can contain several sentences, but should not exceed 30kbytes.

source_lang

language of the text to be translated. If parameter is.null, the API guesses the language of the source. If input is of length 1, the same source language is applied to all elements.

split_sentences

if TRUE, the translation engine splits the input into sentences. If only one sentence is translated, it is recommended to set to FALSE to prevent the engine from unintentionally splitting the sentence.

preserve_formatting

if TRUE, the translation engine tries to preserve some aspects (e.g. punctuation at the beginning and end of the sentence, upper/lower case at the beginning of the sentence) of the formatting.

get_detect

if TRUE, the language detected for the source text is included in the response.

auth_key

Authentication key.

Details

To get an authentication key, you need to register for a DeepL API Free account (https://www.deepl.com/pro#developer).

Value

If get_detect is set to FALSE a character vector containing the translation is returned. Otherwise, a (tibble) is returned with the following columns:

• translation the translated text.

• source_lang detected or specified language of the input text.

References

DeepL API documentations

Examples

## Not run: 
# Translate a single text
toGerman2("Hello world!", auth_key = "my_key")

# Translate multiple texts and return the detected language
texts <- c("Me llamo Fred.", "Je suis médecin.", "I'm from Brisbane.")
toGerman2(texts, get_detect = T, auth_key = "x")


## End(Not run)