jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

Shiny module server for basic/scatter plot.

ggpairsModule(
  input,
  output,
  session,
  data,
  data_label,
  data_varStruct = NULL,
  nfactor.limit = 20
)

`input`	input
`output`	output
`session`	session
`data`	data
`data_label`	data label
`data_varStruct`	List of variable structure, Default: NULL
`nfactor.limit`	nlevels limit for categorical variables, Default: 20

Shiny module server for basic/scatter plot.

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 <- mtcars
  data.label <- jstable::mk.lev(mtcars)

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

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