Subpopulation Manager TidyModule

Provides module for creating and editing subpopulations.

Format

R6 class

Input

datalist

A list of data sets. Can be tibbles, data frames, etc. Expects them to have a common ID field (default is USUBJID)

options

The options for the module of type reactiveValues with values

subjectDs

If one of the data sets in datalist contains subject level data then provide it here. Default: ADSL

idvar

ID field that is common across all datasets in datalist. Default USUBJID

Output

populations

List of PopulationFilter S3 objects.

See also

Other tidymodules: Filter, SubgroupManager, Subgroup, Subpopulation, TTEMapping, TTE, TableListing, VariableSelection

Super class

tidymodules::TidyModule -> SubpopulationManager

Methods

Public methods

• SubpopulationManager$new()

• SubpopulationManager$ui()

• SubpopulationManager$server()

• SubpopulationManager$clone()

Inherited methods

• tidymodules::TidyModule$addInputPort()

• tidymodules::TidyModule$addOutputPort()

• tidymodules::TidyModule$assignPort()

• tidymodules::TidyModule$callModule()

• tidymodules::TidyModule$countInputPort()

• tidymodules::TidyModule$countOutputPort()

• tidymodules::TidyModule$deepClone()

• tidymodules::TidyModule$definePort()

• tidymodules::TidyModule$doServer()

• tidymodules::TidyModule$execInput()

• tidymodules::TidyModule$execOutput()

• tidymodules::TidyModule$getGlobalSession()

• tidymodules::TidyModule$getInput()

• tidymodules::TidyModule$getInputPort()

• tidymodules::TidyModule$getInputPorts()

• tidymodules::TidyModule$getOutput()

• tidymodules::TidyModule$getOutputPort()

• tidymodules::TidyModule$getOutputPorts()

• tidymodules::TidyModule$getPortDef()

• tidymodules::TidyModule$getPortName()

• tidymodules::TidyModule$getSession()

• tidymodules::TidyModule$getSessionId()

• tidymodules::TidyModule$getShinyInput()

• tidymodules::TidyModule$getShinyOutput()

• tidymodules::TidyModule$getShinySession()

• tidymodules::TidyModule$getStore()

• tidymodules::TidyModule$iport()

• tidymodules::TidyModule$isGlobal()

• tidymodules::TidyModule$isStored()

• tidymodules::TidyModule$ns()

• tidymodules::TidyModule$oport()

• tidymodules::TidyModule$print()

• tidymodules::TidyModule$render()

• tidymodules::TidyModule$reset()

• tidymodules::TidyModule$updateInputPort()

• tidymodules::TidyModule$updateInputPorts()

• tidymodules::TidyModule$updateOutputPort()

• tidymodules::TidyModule$updateOutputPorts()

• tidymodules::TidyModule$use()

---

Method new()

Usage

SubpopulationManager$new(...)

---

Method ui()

Usage

SubpopulationManager$ui()

---

Method server()

Usage

SubpopulationManager$server(
  input,
  output,
  session,
  datalist = NULL,
  options = NULL
)

---

Method clone()

The objects of this class are cloneable with this method.

Usage

SubpopulationManager$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

if (FALSE) {
library(tidymodules)
library(subpat)
library(bs4Dash)

subpopmod <- SubpopulationManager$new(id = "subpopmodule")

ui <- tagList(
  shinyjs::useShinyjs(),
  bs4DashPage(
    sidebar = bs4DashSidebar(disable = TRUE),
    body = bs4DashBody(
      subpopmod$ui()
    )
  )
)

# Define server logic
server <- function(input, output) {
  datalist <- reactive({
    example_datasets
  })

  opts <- reactiveValues(
    subjectDs = "ADSL",
    idvar = "USUBJID"
  )

  subpopmod$callModule()

  observe({
    # Pass the data into the module
    datalist %>1% subpopmod

    # Add the options to the subpopulation manager
    opts %>2% subpopmod
  })
}

# Run the application 
shinyApp(ui = ui, server = server)
}