fil/docs/snippets/r/metadata/language_detection.md

library(kreuzberg)

result <- extract_file_sync("document.pdf")

cat("Language Detection Results:\n\n")

cat("Using direct field access:\n")
cat("Detected Language:", result$detected_language, "\n\n")

cat("Using S3 helper function:\n")
lang <- detected_language(result)
cat("Language (via helper):", lang, "\n\n")

cat("Language Information:\n")
if (lang == "en") {
  cat("This is an English document\n")
} else if (lang == "es") {
  cat("This is a Spanish document\n")
} else {
  cat(sprintf("This is a %s document\n", lang))
}