## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

withr::local_envvar(
  R_USER_CACHE_DIR = tempfile(),
  EUNOMIA_DATA_FOLDER = Sys.getenv("EUNOMIA_DATA_FOLDER", unset = tempfile())
)

## ----minCellCount, eval=FALSE-------------------------------------------------
# results <- export(
#   andromeda = defaultSettings,
#   minCellCount = 5
# )

## ----censorType_cellCount, eval=FALSE-----------------------------------------
# resultsA <- export(
#   andromeda = minEra60,
#   minCellCount = 5,
#   censorType = "minCellCount"
# )

## ----censorType_remove, eval=FALSE--------------------------------------------
# resultsB <- export(
#   andromeda = minEra60,
#   minCellCount = 5,
#   censorType = "remove"
# )

## ----censorType_mean, eval=FALSE----------------------------------------------
# resultsC <- export(
#   andromeda = minEra60,
#   minCellCount = 5,
#   censorType = "mean"
# )

## ----ageWindow3, eval=FALSE---------------------------------------------------
# resultsD <- export(
#   andromeda = splitAcuteTherapy,
#   minCellCount = 5,
#   censorType = "mean",
#   ageWindow = 3
# )

## ----ageWindowMultiple, eval=FALSE--------------------------------------------
# resultsE <- export(
#   andromeda = splitAcuteTherapy,
#   minCellCount = 5,
#   censorType = "mean",
#   ageWindow = c(0, 18, 25, 30, 40, 50, 60, 150)
# )

## ----archiveName, eval=FALSE--------------------------------------------------
# resultsF <- export(
#   andromeda = includeEndDate,
#   minCellCount = 5,
#   censorType = "mean",
#   ageWindow = 3,
#   archiveName = "output.zip"
# )

## ----eval=FALSE---------------------------------------------------------------
# exportPatientLevel(
#   andromeda = outputEnv,
#   outputPath = tempdir()
# )