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

data

(SummarisedResult) Summarised result object from CohortSurvival

plot

(Plot) Plot module.

tidyTable

(GTTable) GTTable module

table

(Table) Table module

inputPanel

(InputPanel) InputPanel module

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(data, ...)

Arguments

data

(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
   )
 ) {
    library(CDMConnector)
    library(CohortSurvival)

    cdm <- CohortSurvival::mockMGUS2cdm()

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

    cs <- CohortSurvival$new(data = MGUS_death)
    if (interactive()) {
      preview(cs)
    }
  }
# }
}
#> - 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.