fil/docs/snippets/r/api/client_extract_single_file.md

library(kreuzberg)
library(httr2)

response <- request("http://localhost:8000/extract") |>
  req_method("POST") |>
  req_multipart_part(
    name = "files",
    path = "document.pdf",
    type = "application/pdf"
  ) |>
  req_perform()

data <- resp_body_json(response)
cat(jsonlite::toJSON(data, auto_unbox = TRUE, pretty = TRUE))