R/language_detect.R

In polyglotr: Translate Text

#' Detect Language using Google Translate API
#'
#' This function detects the language of a given text using the Google Translate API.
#'
#' @param text The text for which the language needs to be detected.
#' @return A character string representing the detected language.
#' @export
language_detect <- function(text) {
  url <- "https://translate.googleapis.com/translate_a/single"
  params <- list(
    client = "gtx",
    sl = "auto",
    tl = "en",
    dt = "t",
    q = text
  )

  response <- httr::GET(url, query = params)

  if (httr::status_code(response) == 200) {
    result <- httr::content(response, "parsed")
    language <- purrr::keep(result, is.character) %>% as.character()
    return(language)
  } else {
    stop("Language detection failed. Please check your connection and try again.")
  }
}