This commit is contained in:
14
docs/snippets/r/getting-started/extract_file.md
Normal file
14
docs/snippets/r/getting-started/extract_file.md
Normal file
@@ -0,0 +1,14 @@
|
||||
```r title="R"
|
||||
library(kreuzberg)
|
||||
|
||||
# Extract a file and inspect the result
|
||||
result <- extract_file_sync("document.pdf")
|
||||
|
||||
# Print result information
|
||||
cat(sprintf("MIME type: %s\n", mime_type(result)))
|
||||
cat(sprintf("Content length: %d characters\n", nchar(content(result))))
|
||||
cat(sprintf("Page count: %d\n", page_count(result)))
|
||||
|
||||
# View additional metadata
|
||||
cat(sprintf("Detected language: %s\n", detected_language(result)))
|
||||
```
|
||||
Reference in New Issue
Block a user