将 groupcheckboxinput 值添加到 Shiny 中的数据框

Question

我正在尝试将 checkboxgroupinput 值中的值添加到 Shiny App 中名为 surv_data 的数据框中。

下面是复选框的代码：

      checkboxGroupInput(inputId = "variables", label = "",
                         choices = c(
                           "Covariate 1" = "cov1",
                           "Covariate 2" = "cov2"
                         ),
                         selected = c('cov1', 'cov2'))

这里是我将变量合并到一个数据框中的地方：

  surv_data <- reactive({
    raw_surv <- raw_surv_data()
    data.frame(
      Time = raw_surv[[input$Time]],
      Treatment    = raw_surv[[input$Treatment]],
      endpoint  = raw_surv[[input$Endpoint]]
    )
  })

我需要以某种方式在以下行下方添加值 cov1 和 cov2：

endpoint  = raw_surv[[input$Endpoint]]

我曾尝试添加 variables = raw_surv[[input$variables]]，但遗憾的是这不起作用。任何帮助，将不胜感激。

Answer 1

可能

surv_data <- reactive({
  raw_surv <- raw_surv_data()
  cbind(
    data.frame(
      Time = raw_surv[[input$Time]],
      Treatment = raw_surv[[input$Treatment]],
      endpoint = raw_surv[[input$Endpoint]]
    ),
    raw_surv[input$variables]
  )
})

将 groupcheckboxinput 值添加到 Shiny 中的数据框

Adding groupcheckboxinput values to data frame in Shiny

r

shiny

shiny-reactivity

shinyapps