Question

我正在尝试将Cox模型的结果添加到R Shiny应用程序中。不幸的是，结果没有用下面的代码行打印出来：

 def standardize_pattern(self):
    pattern = self.pattern
    if len(self.pattern) > 0:
        if not self.pattern[0] == '^':
            pattern = '^' + pattern
        if not self.pattern[-1] == '$':
            pattern = pattern + '$'
    else:
        pattern = '^$'
    self.pattern = pattern

此外，我想通过复选框添加可选的协变量。例如，我有兴趣在最后一个“ selectInput”下方添加如下内容：

 textOutput('modelSummary')

，然后将所选变量添加到Cox模型。

完整的闪亮应用程序如下：

  checkboxGroupInput("variable", "Covariates:",
                     c("Covariate 1" = "cov1",
                       "Covariate 2" = "cov2",
                       "Covariate 3" = "cov3"))

Answer 1

要从复选框添加协变量，您可以执行以下操作：

cox_fit <- reactive({
  model <- as.formula(paste0("Surv(Time, Endpoint) ~", 
                             paste0(input$variable, collapse = "+")))
  coxph(model, data = surv_data())
})

在Shiny App中打印Cox模型的结果

1 个答案: