14 lines
360 B
Markdown
14 lines
360 B
Markdown
```r
|
|
library(kreuzberg)
|
|
|
|
# Batch extract from multiple files
|
|
files <- c("report.pdf", "slides.pptx", "data.xlsx")
|
|
results <- batch_extract_files_sync(files)
|
|
|
|
for (i in seq_along(results)) {
|
|
cat(sprintf("File: %s\n", files[i]))
|
|
cat(sprintf(" MIME: %s\n", results[[i]]$mime_type))
|
|
cat(sprintf(" Length: %d chars\n\n", nchar(results[[i]]$content)))
|
|
}
|
|
```
|