Write a harbour_dtable back to a .dtable file

Produces a ZIP archive SeaTable can import. Round-tripping is lossless: reading a file and writing it back yields a content.json that parses to an identical structure, verified against a real 750 KB export.

Usage

hb_write_dtable(x, path, ..., assets = TRUE, overwrite = TRUE)

Arguments

x

A harbour_dtable.

path

Destination path.

...

These dots are for future extensions and must be empty.

assets

Whether to repack the extracted asset tree, if there is one. Default TRUE.

overwrite

Refuse to clobber an existing file unless TRUE.

Value

x, invisibly.

See also

hb_read_dtable()

Other dtable: as_tibble.harbour_dtable(), hb_asset_path(), hb_dtable(), hb_read_csv(), hb_read_dtable(), hb_read_xlsx(), hb_validate_dtable(), hb_write_csv(), hb_write_xlsx(), is_harbour_dtable(), length.harbour_dtable(), names.harbour_dtable(), print.harbour_dtable(), summary.harbour_dtable()

Examples

path <- system.file("extdata", "example.dtable", package = "harbouR")
base <- hb_read_dtable(path)

out <- tempfile(fileext = ".dtable")
hb_write_dtable(base, out)
#> Warning: This base references 7 bundled assets that will not be written.
#> ✖ The attachment cells will point at files the archive does not contain.
#> ℹ Re-read it with `hb_read_dtable(path, assets = "extract")`.

# the round trip preserves the base exactly
identical(hb_read_dtable(out)$content, base$content)
#> [1] TRUE