GEEModuleLinear: GEEModuleLinear: shiny modulde server for gaussian...
In leevenstar/jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

Shiny modulde server for gaussian generalized estimating equation(GEE) using reactive data.

GEEModuleLinear(
  input,
  output,
  session,
  data,
  data_label,
  data_varStruct = NULL,
  nfactor.limit = 10,
  id.gee
)

`input`	input
`output`	output
`session`	session
`data`	reactive data, ordered by id.
`data_label`	reactive data label
`data_varStruct`	List of variable structure, Default: NULL
`nfactor.limit`	nlevels limit in factor variable, Default: 10
`id.gee`	reactive repeated measure variable

Shiny modulde server for gaussian generalized estimating equation(GEE) using reactive data.

Shiny modulde server for gaussian generalized estimating equation(GEE).

library(shiny);library(DT);library(data.table);library(jstable)
ui <- fluidPage(
   sidebarLayout(
   sidebarPanel(
     GEEModuleUI("linear")
   ),
   mainPanel(
     DTOutput("lineartable")
   )
 )
)

server <- function(input, output, session) {

  data <- reactive(mtcars)
  data.label <- reactive(jstable::mk.lev(mtcars))
  id.gee <- reactive("mpg")

  out_linear <- callModule(GEEModuleLinear, "linear", data = data, data_label = data.label,
                           data_varStruct = NULL, id.gee = id.gee)

  output$lineartable <- renderDT({
    hide = which(colnames(out_linear()$table) == "sig")
    datatable(out_linear()$table, rownames=T, extension= "Buttons", caption = out_linear()$caption,
              options = c(opt.tbreg(out_linear()$caption),
                          list(columnDefs = list(list(visible=FALSE, targets =hide))
                          ),
                          list(scrollX = TRUE)
              )
    ) %>% formatStyle("sig", target = 'row',backgroundColor = styleEqual("**", 'yellow'))
  })
}