CohortTiming Module Class

CohortTiming module that shows cohort timing results (table and plot) from the CohortCharacteristics package.

Super class

ShinyModule -> CohortTiming

Active bindings

result

(summarised_result) Result of CohortCharacteristics::summariseCohortTiming().

Methods

Public methods

• CohortTiming$new()

• CohortTiming$clone()

Inherited methods

• ShinyModule$UI()
• ShinyModule$getReactiveValues()
• ShinyModule$server()
• ShinyModule$validate()

---

CohortTiming$new()

Initializer method

Usage

CohortTiming$new(result, ...)

Arguments

result

(summarised_result) Result of CohortCharacteristics::summariseCohortTiming().

...

Additional parameters to set fields from the ShinyModule parent.

Returns

self

---

CohortTiming$clone()

The objects of this class are cloneable with this method.

Usage

CohortTiming$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

{
if (interactive()) {
  library(CohortCharacteristics)
  library(omock)
  library(DrugUtilisation)

  cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")

  cdm <- generateIngredientCohortSet(
    cdm = cdm,
    name = "my_cohort",
    ingredient = c("acetaminophen", "morphine", "warfarin")
  )

  result <- summariseCohortTiming(cdm$my_cohort)

  mod <- CohortTiming$new(result)

  preview(mod)
}
}