coxModule: coxModule: shiny modulde server for Cox's model.
In leevenstar/jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

Shiny modulde server for Cox's model.

coxModule(
  input,
  output,
  session,
  data,
  data_label,
  data_varStruct = NULL,
  nfactor.limit = 10,
  design.survey = NULL,
  default.unires = T,
  limit.unires = 20,
  id.cluster = NULL,
  ties.coxph = "efron"
)

`input`	input
`output`	output
`session`	session
`data`	reactive data
`data_label`	reactuve data label
`data_varStruct`	reactive list of variable structure, Default: NULL
`nfactor.limit`	nlevels limit in factor variable, Default: 10
`design.survey`	reactive survey data. default: NULL
`default.unires`	Set default independent variables using univariate analysis.
`limit.unires`	Change to default.unires = F if number of independent variables > limit.unires, Default: 20
`id.cluster`	reactive cluster variable if marginal cox model, Default: NULL
`ties.coxph`	'coxph' ties option, one of 'efron', 'breslow', 'exact', default: 'erfon'

Shiny modulde server for Cox's model.

library(shiny);library(DT);library(data.table);library(jstable)
ui <- fluidPage(
   sidebarLayout(
   sidebarPanel(
     coxUI("cox")
   ),
   mainPanel(
     DTOutput("coxtable")
   )
 )
)

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

  data <- reactive(mtcars)
  data.label <- reactive(jstable::mk.lev(mtcars))

  out_cox <- callModule(coxModule, "cox", data = data, data_label = data.label,
                           data_varStruct = NULL)

  output$coxtable <- renderDT({
    datatable(out_cox()$table, rownames=T, caption = out_cox()$caption)
  })
}