24 lines
549 B
Markdown
24 lines
549 B
Markdown
```r title="R"
|
|
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))
|
|
}
|
|
```
|