ggpairsModuleUI2: ggpairsModuleUI2: Option & download module UI for ggpairs

In jsmodule: 'RStudio' Addins and 'Shiny' Modules for Medical Research

ggpairsModuleUI2: Option & download module UI for ggpairs

Description

Option & download module UI for ggpairs

Usage

ggpairsModuleUI2(id)

Arguments

id

id

Details

Option & download module UI for ggpairs

Value

Option & download module UI for ggpairs

Examples

library(shiny)
library(DT)
library(data.table)
library(jstable)
library(ggplot2)
library(GGally)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      ggpairsModuleUI1("ggpairs")
    ),
    mainPanel(
      plotOutput("ggpairs_plot"),
      ggpairsModuleUI2("ggpairs")
    )
  )
)

server <- function(input, output, session) {
  data <- reactive(mtcars)
  data.label <- reactive(jstable::mk.lev(mtcars))

  out_ggpairs <- callModule(ggpairsModule2, "ggpairs",
    data = data, data_label = data.label,
    data_varStruct = NULL
  )

  output$kaplan_plot <- renderPlot({
    print(out_ggpairs())
  })
}

jsmodule documentation built on Oct. 18, 2023, 9:08 a.m.