adsl <- data.frame(
SUBL = as.character(123, 456, 789),
DIFF = c("a", "b", "c"),
VAL = c("1", "2", "3"),
PARAM = c("param1", "param2", "param3")
)
var_spec <- data.frame(
dataset = "adsl",
label = "Subject-Level Analysis Dataset",
data_label = "ADSL"
)
xportr_write(adsl,
path = paste0(tempdir(), "/adsl.xpt"),
domain = "adsl",
metadata = var_spec,
strict_checks = FALSE
)
Run the code above in your browser using DataLab