CohortSurvival Module Class

CohortSurvival module that shows a that supports results from the CohortSurvival package.

Details

The module consists of the following:

"PlotPlotly"

Interactive Plotly plot, visualizing the data.

"GTTable"

gttable visualizing the tidy data

"InputPanel"

Input panel dealing with user input

"Table"

basic table visualizing the raw data

Super class

DarwinShinyModules::ShinyModule -> CohortSurvival

Active bindings

result

(SummarisedResult) Summarised result object from CohortSurvival

table

(Table) Table module using CohortSurvival::tableSurvival()

tableEvents

(Table) Table module using CohortSurvival::tableSurvivalEvents()

plot

(Plot) Plot module. using CohortSurvival::plotSurvival()

tableAttrition

(Table) Table module using CohortSurvival::tableAttrition()

cdmName

(character) Available CDM names

cohortNames

(character) Available cohort bames

strata

(character) Available strata names

Methods

Public methods

• CohortSurvival$new()

• CohortSurvival$clone()

Inherited methods

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

---

Method new()

Initializer function

Usage

CohortSurvival$new(result, ...)

Arguments

result

(SummarisedResults) Summarised result object from CohortSurvival

...

Additional parameters to set fields from the ShinyModule parent.

Returns

invisible(self)

---

Method clone()

The objects of this class are cloneable with this method.

Usage

CohortSurvival$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

{
# \donttest{
 library(DarwinShinyModules)

 if (
   require(
     "CohortSurvival",
     character.only = TRUE,
     quietly = TRUE,
     warn.conflicts = FALSE
   )
 ) {
    cdm <- CohortSurvival::mockMGUS2cdm()

    result <- CohortSurvival::estimateSingleEventSurvival(
      cdm,
      targetCohortTable = "mgus_diagnosis",
      outcomeCohortTable = "death_cohort",
      strata = list(
        c("age_group"),
        c("sex"),
        c("age_group", "sex")
      )
    )

    survMod <- DarwinShinyModules::CohortSurvival$new(result = result)
    if (interactive()) {
      DarwinShinyModules::preview(survMod)
    }
  }
# }
}
#> Creating a new cdm
#> Uploading table person (1384 rows) - [1/7]
#> Uploading table observation_period (1384 rows) - [2/7]
#> Uploading table visit_occurrence (1 rows) - [3/7]
#> Uploading table death_cohort (963 rows) - [4/7]
#> Uploading table mgus_diagnosis (1384 rows) - [5/7]
#> Uploading table progression (115 rows) - [6/7]
#> Uploading table progression_type (230 rows) - [7/7]
#> - Getting survival for target cohort 'mgus_diagnosis' and outcome cohort
#> 'death_cohort'
#> Getting overall estimates
#> `eventgap`, `outcome_washout`, `censor_on_cohort_exit`, `follow_up_days`, and
#> `minimum_survival_days` casted to character.