Nomad changes

docs/snippets/r/utils/keyword_extraction_example.md

@@ -0,0 +1,21 @@
+```r title="R"
+library(kreuzberg)
+
+config <- list(
+  keywords = list(
+    algorithm = "yake",
+    max_keywords = 10L,
+    min_score = 0.3
+  )
+)
+
+json <- extract_file_sync("research_paper.pdf", "application/pdf", config)
+result <- jsonlite::fromJSON(json, simplifyVector = FALSE)
+
+cat(sprintf("Content length: %d characters\n", nchar(result$content)))
+if (!is.null(result$metadata$keywords)) {
+  for (kw in result$metadata$keywords) {
+    cat(sprintf("  - %s\n", kw))
+  }
+}
+```