CohortAttrition Module Class

CohortAttrition module that displays tables and plots of the summarised_result object created by CohortCharacteristics::summariseCohortAttrition().

Value

self

Super class

DarwinShinyModules::ShinyModule -> CohortAttrition

Active bindings

result

(summarised_result)

cdmNames

(character(n))

cohortNames

(character(n))

Methods

Public methods

• CohortAttrition$new()

• CohortAttrition$clone()

Inherited methods

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

---

Method new()

Initializer method.

Usage

CohortAttrition$new(result, ...)

Arguments

result

(summarised_result) Object created by CohortCharacteristics::summariseLargeScaleCharacteristics().

...

Additional parameters to set fields from the ShinyModule parent.

---

Method clone()

The objects of this class are cloneable with this method.

Usage

CohortAttrition$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

if (interactive()) {
  CDMConnector::requireEunomia()
  con <- DBI::dbConnect(duckdb::duckdb(), CDMConnector::eunomiaDir())
  cdm <- CDMConnector::cdmFromCon(
    con = con,
    cdmSchema = "main",
    writeSchema = "main"
  )

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

  summarisedAttrition <- CohortCharacteristics::summariseCohortAttrition(cdm$my_cohort)

  mod <- Attrition$new(result = summarisedAttrition)
  DarwinShinyModules::preview(mod)
}