tests/testthat/helper-internals.R

In PatientGenerator: Generator of Synthetic Patient Data for the OMOP Common Data Model

new_cdm <- function() {
  getFromNamespace("cdmConstructor", "PatientGenerator")$new()
}

new_cdm_table <- function(type) {
  getFromNamespace("cdmTable", "PatientGenerator")$new(type = type)
}

cdm_table_server <- getFromNamespace("cdmTableServer", "PatientGenerator")
input_display_label <- getFromNamespace("inputDisplayLabel", "PatientGenerator")
normalize_bar_end_update <- getFromNamespace("normalizeBarEndUpdate", "PatientGenerator")
format_date_columns <- getFromNamespace("formatDateColumns", "PatientGenerator")
update_table_ids_ns <- getFromNamespace("updateTableIdsNs", "PatientGenerator")
hecate_concept_label <- getFromNamespace("hecateConceptLabel", "PatientGenerator")