R/globalvariables.R

In shug0131/cctu: In-House Functions for Report Writing at Cambridge Clinical Trials Unit

utils::globalVariables(c("."))
# may well have to add "cctu_env" to the line above. But I can't get
# devtools::check() to work past installing,
# so impossible to check at the moment.
cctu_env <- new.env(parent = emptyenv())
cctu_env$number <- "0"
cctu_env$sumby_count <- 0
cctu_env$nested_run_batch <- FALSE

# Missing data report
cctu_env$missing_report_data <- setNames(
  data.frame(matrix(ncol = 8, nrow = 0)),
  c(
    "form", "visit_var", "visit_label",
    "visit", "variable", "label", "missing_pct",
    "subject_ID"
  )
)
# Setup DLU file
cctu_env$dlu <- NULL

# .reserved <- character(0)

# This is done to create a binding within the package namespace, so that
# it can be mocked as per
# https://testthat.r-lib.org/reference/local_mocked_bindings.html#base-functions
# in the testing
Sys.time <- NULL