This commit is contained in:
20
docs/snippets/r/metadata/page_tracking_basic.md
Normal file
20
docs/snippets/r/metadata/page_tracking_basic.md
Normal file
@@ -0,0 +1,20 @@
|
||||
```r title="R"
|
||||
library(kreuzberg)
|
||||
|
||||
result <- extract_file_sync("document.pdf")
|
||||
|
||||
cat("Total pages:", page_count(result), "\n\n")
|
||||
|
||||
for (i in seq_along(result$pages)) {
|
||||
page <- result$pages[[i]]
|
||||
cat(sprintf("Page %d:\n", i))
|
||||
cat(" Elements:", length(page$elements), "\n")
|
||||
cat(" Text content length:", nchar(page$content), "chars\n")
|
||||
|
||||
if (nchar(page$content) > 0L) {
|
||||
preview <- substr(page$content, 1L, 100L)
|
||||
cat(sprintf(" Preview: %s...\n", preview))
|
||||
}
|
||||
cat("\n")
|
||||
}
|
||||
```
|
||||
Reference in New Issue
Block a user