Option & download module UI for ggpairs

ggpairsModuleUI2(id)

Arguments

id

id

Value

Option & download module UI for ggpairs

Details

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()) }) }