This commit is contained in:
12
docs/snippets/r/ocr/ocr_force_all_pages.md
Normal file
12
docs/snippets/r/ocr/ocr_force_all_pages.md
Normal file
@@ -0,0 +1,12 @@
|
||||
```r title="R"
|
||||
library(kreuzberg)
|
||||
|
||||
config <- list(force_ocr = TRUE)
|
||||
|
||||
json <- extract_file_sync("multipage_document.pdf", "application/pdf", config)
|
||||
result <- jsonlite::fromJSON(json, simplifyVector = FALSE)
|
||||
|
||||
cat(sprintf("Total pages: %d\n", length(result$pages)))
|
||||
cat(sprintf("Content extracted via OCR: %d characters\n", nchar(result$content)))
|
||||
cat(sprintf("Detected language: %s\n", result$detected_language))
|
||||
```
|
||||
Reference in New Issue
Block a user