tests/testthat/helper-data.R

In RESIDE: Rapid Easy Synthesis to Inform Data Extraction

binary_df <- read.csv(
  testthat::test_path("testdata", "binary_variables.csv")
)

categorical_df <- read.csv(
  testthat::test_path("testdata", "categorical_variables.csv")
)

continuous_df <- read.csv(
  testthat::test_path("testdata", "continuous_variables.csv")
)

summary_df <- read.csv(
  testthat::test_path("testdata", "summary.csv")
)

empty_df <- data.frame()

ist_id <- IST
ist_id$id <- 1:nrow(IST)
ist_1 <- ist_id[,c(
  "id",
  "SEX",
  "AGE",
  "ID14",
  "RSBP",
  "RATRIAL",
  "SET14D")]
ist_2 <- ist_id[,c(
  "id",
  "HOSPNUM",
  "RDELAY",
  "RCONSC",
  "DSIDEX"
)]

marginal_distributions <- get_marginal_distributions(
  IST,
  variables = c(
    "SEX",
    "AGE",
    "ID14",
    "RSBP",
    "RATRIAL",
    "SET14D"
  )
)

# pharmaversesdtm is only suggested, tests using the multiple table
# data should call skip_if_not_installed("pharmaversesdtm")
if (requireNamespace("pharmaversesdtm", quietly = TRUE)) {
  dfs <- list(
    dm = pharmaversesdtm::dm,
    cm = pharmaversesdtm::cm,
    ae = pharmaversesdtm::ae
  )

  multitable_marginals <- suppressWarnings(
    get_marginal_distributions(
      dfs,
      subject_identifier = "USUBJID"
    )
  )
}

# Quick and dirty random string function
random_string <- function() {
  return(
    runif(1, 1000000000000, 9999999999999) %>% round %>% as.character
  )
}

# Function to return a new directory in the temporary directory
new_temp_dir <- function() {
  .temp_dir <- file.path(
    tempdir(),
    random_string()
  )
  dir.create(.temp_dir)
  return(
    .temp_dir
  )
}