feat: detect language

NAMESPACE

@@ -2,6 +2,7 @@
 
 export("%>%")
 export(google_translate)
+export(language_detect)
 export(mymemory_translate)
 export(translate_file)
 importFrom(magrittr,"%>%")

R/language_detect.R

@@ -0,0 +1,27 @@
+#' 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.")
+  }
+}

vignettes/Movie_Reviews.Rmd

@@ -48,12 +48,12 @@ Now, let's translate the review column to French using the `polyglotr` package:
 ```{r translated}
 # Translate the review column to French
 translated_reviews <- df %>%
-  dplyr::mutate(french_review = purrr::map(review, ~ google_translate(.x, target_language = "fr", source_language = "en")))
+  dplyr::mutate(french_review = purrr::map_chr(review, ~ google_translate(.x, target_language = "fr", source_language = "en")))
 
 ```
 
 
-In the code snippet above, we utilize the `mutate` function from `dplyr` in conjunction with `purrr::map` to apply the google_translate function from the package to each element in the review column. The translated reviews are stored in a new column named "french_review".
+In the code snippet above, we utilize the `mutate` function from `dplyr` in conjunction with `purrr::map_chr` to apply the google_translate function from the package to each element in the review column. The translated reviews are stored in a new column named "french_review".
 
 # Results