TableListing: Table Listing Module

In Novartis/subpat: Subpopulation and subgroups shiny modules

Description

Shiny TidyModule create ad-hoc (non-validated) PDF table listings by data set and by subject.

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)

populations

A list of PopulationFilter

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

No output is returned for this module.

Super class

tidymodules::TidyModule -> TableListing

Methods

Public methods

• TableListing$new()

• TableListing$ui()

• TableListing$server()

• TableListing$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

TableListing$new(...)

---

Method ui()

Usage

TableListing$ui()

---

Method server()

Usage

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

---

Method clone()

The objects of this class are cloneable with this method.

Usage

TableListing$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

See Also

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

Examples

## Not run: 
library(bs4Dash)
library(subpat)
library(tidymodules)

tableListMod <- TableListing$new()

example_datasets <- list(
  "ADSL" = data.frame(
    a = c("x", "z", "y", "x", "z", "x", "x", "y", "x", "y"),
    b = c(29L, 4L, 15L, 28L, 41L, 25L, 41L, 15L, 6L, 17L),
    USUBJID = as.character(seq_len(10)),
    stringsAsFactors = FALSE
  ),
  "ADAE" = data.frame(
    a = c("x", "z", "y", "x", "z", "x", "x", "y", "x", "y"),
    c = c(1, NA, NA, 1, 2, NA, NA, 4, 3, 1),
    dates = seq(as.Date("2019-07-10"), as.Date("2019-08-12"), length.out = 10),
    USUBJID = as.character(seq_len(10)),
    stringsAsFactors = FALSE
  )
)

# This is the output from dput on a PopulationFilter
# Use the Subpopulation to create them in a shiny application
example_populations <- list(
  # Population 1
  structure(list(dataset_names = c("ADSL", "ADAE"), filters = structure(list(
    filter_1 = structure(
      list(
        dataset_name = "ADAE", variable = "c", 
        filterType = "numeric", includeMissing = FALSE, onlyMissing = FALSE, 
        createDate = "Fri Jul 26 18:44:11 2019", minVal = 1L, maxVal = 4L
      ), 
      .Names = c("dataset_name", "variable", 
                 "filterType", "includeMissing", "onlyMissing", "createDate", 
                 "minVal", "maxVal"),
      class = "DatasetFilter")
      ),
      .Names = "filter_1"
    ), 
    name = "New population: 1", createDate = "Fri Jul 26 18:44:05 2019", 
    editDate = "Fri Jul 26 18:44:13 2019"),
    .Names = c("dataset_names", "filters", "name", "createDate", "editDate"),
    class = "PopulationFilter")
)

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

# Define server logic
server <- function(input, output) {
  opts <- reactiveValues(
    idvar = "USUBJID"
  )
  
  tableListMod$callModule()
  
  observe({
    reactive(example_datasets) %>1% tableListMod
    reactive(example_populations) %>2% tableListMod
    opts %>3% tableListMod
  })
}

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


## End(Not run)

Novartis/subpat documentation built on April 11, 2020, 3:11 p.m.