Write an archive to a directory
Examples
log <- tempfile(fileext = ".jsonl")
writeLines(paste0('{"ts":"2026-06-01T10:00:01+0000","schema_version":"1.0",',
'"kind":"call","provider":"groq","model":"openai/gpt-oss-20b",',
'"usage":{"sent":5,"rec":2},"response_id":"r-1","text":"reply"}'), log)
a <- archive_seal(archive_build(log, name = "demo"))
dir <- file.path(tempdir(), "demo-archive")
archive_write(a, dir)
b <- archive_read(dir)
archive_check(b) # reading and verifying are separate acts
identical(b$seal$root, a$seal$root)