Nomad changes

e2e/r/tests/setup-fixtures.R

@@ -0,0 +1,37 @@
+# This file is auto-generated by alef — DO NOT EDIT.
+# alef:hash:4e15143f4af1ae8bafbdb1506ef057da924484c66a19483966333558ad437e75
+# To regenerate: alef generate
+# To verify freshness: alef verify --exit-code
+# Issues & docs: https://github.com/kreuzberg-dev/alef
+
+# Resolve fixture paths against the repo's `test_documents/` directory.
+# testthat sources setup-*.R with the working directory at tests/,
+# so test_documents lives three directories up: tests/ -> e2e/r/ -> e2e/ -> repo root.
+# Each `test_that()` block has its working directory reset back to tests/, so
+# fixture lookups must be performed via this helper rather than relying on `setwd`.
+.alef_test_documents <- normalizePath("../../../test_documents", mustWork = FALSE)
+.resolve_fixture <- function(path) {
+  if (dir.exists(.alef_test_documents)) {
+    file.path(.alef_test_documents, path)
+  } else {
+    path
+  }
+}
+
+.alef_format_value <- function(x) {
+  if (is.list(x)) {
+    for (variant in names(x)) {
+      v <- x[[variant]]
+      if (is.list(v) && !is.null(v[["format"]]) && is.character(v[["format"]])) {
+        return(v[["format"]])
+      }
+    }
+    if (!is.null(x[["format"]]) && is.character(x[["format"]])) {
+      return(x[["format"]])
+    }
+    if (!is.null(x[["format_type"]])) {
+      return(x[["format_type"]])
+    }
+  }
+  x
+}