R/translate_to_morse.R

In polyglotr: Translate Text

#' Translate Text to Morse Code using the FunTranslations API
#'
#' This function takes a string of text as input and translates it to Morse code using the FunTranslations API.
#'
#' @param text A character string containing the text to be translated to Morse code.
#' @param api_key (optional) Your FunTranslations API key, if you have a paid subscription.
#' @return A list containing the translated Morse code text and other metadata.
#' @export
translate_to_morse <- function(text, api_key = NULL) {
  url <- "https://api.funtranslations.com/translate/morse.json"
  payload <- list(text = text)

  # Add API key if provided
  if (!is.null(api_key)) {
    headers <- c("X-FunTranslations-Api-Secret" = api_key)
  } else {
    headers <- NULL
  }

  # Make the API request
  response <- httr::POST(url, body = payload, httr::add_headers(headers))

  # Check the response status
  if (httr::status_code(response) == 200) {
    # Parse the JSON response
    result <- jsonlite::fromJSON(httr::content(response, "text"))

    # Extract the relevant information
    morse_code <- result$contents$translated
    text_translated <- result$contents$text
    translation_type <- result$contents$translation

    # Return the results as a list
    return(list(
      morse_code = morse_code,
      text_translated = text_translated,
      translation_type = translation_type
    ))
  } else {
    # Handle error cases
    stop(paste("Error:", httr::status_code(response), httr::content(response, "text")))
  }
}