inst/doc/artoo.R

In artoo: Lossless CDISC-Native Input and Output for Clinical Datasets

## -----------------------------------------------------------------------------
#| include: false
library(artoo)


## -----------------------------------------------------------------------------
adam_spec

p21 <- system.file("extdata", "adam-spec.xlsx", package = "artoo")
identical(spec_standard(read_spec(p21)), spec_standard(adam_spec))


## -----------------------------------------------------------------------------
adsl <- apply_spec(cdisc_adsl, adam_spec, "ADSL")


## -----------------------------------------------------------------------------
nrow(conformance(adsl))


## -----------------------------------------------------------------------------
dm <- apply_spec(cdisc_dm, sdtm_spec, "DM")
nrow(conformance(dm))


## -----------------------------------------------------------------------------
columns(adsl)


## -----------------------------------------------------------------------------
xpt <- tempfile(fileext = ".xpt")
json <- tempfile(fileext = ".json")

adsl |>
  write_xpt(xpt) |>
  write_json(json)


## -----------------------------------------------------------------------------
parquet <- tempfile(fileext = ".parquet")
write_parquet(read_json(json), parquet)


## -----------------------------------------------------------------------------
back <- read_json(json)
get_meta(back)@dataset$records
columns(back)