From Hola to Hello with Polyglotr

# Core Functions

# Skip English
if (detected_lang == "en") {
  return(tibble(
    original_text = input_text,
    english_text = input_text,
    was_translated = FALSE,
    detected_language = detected_lang
  ))
}

# Translate non-English (with error handling)
translated_text <- tryCatch(
  google_translate(input_text, "auto", target_language),
  error = function(e) "[TRANSLATION FAILED]"
)

# Input
id user_feedback                                                           
  <int> <chr>                                                                            
1 Great product, very satisfied!                                
2 Excelente producto, muy satisfecho!                     
3 Produit fantastique, je le recommande!              
4 This service exceeded my expectations.               
5 Der Service war wirklich hervorragend.                 

# Output
 <chr>                                  <lgl>          <chr>            
1 Great product, very satisfied!         FALSE          en               
2 Excellent product, very satisfied!     TRUE           es               
3 Fantastic product, I recommend it!     TRUE           fr               
4 This service exceeded my expectations. FALSE          en               
5 The service was really excellent.      TRUE           de               

# Input 
mixed_data <- tibble(
  id = 1:8,
  user_feedback = c(
    "In my opinion, one of the best bands in the world.",
    "Siempre me encanta..así yo no entienda nada.hasta me hace llorar!",
    "La France t’AIME.",
    "Einfach episch.")
)
# Output 
1 In my opinion, one of the best bands in the world.                                                  FALSE  
2 I always love it... even if I don't understand anything. It even makes me cry!                      TRUE
3 France LOVES you.                                                                                   TRUE  
4 Simply epic.                                                                                        TRUE