Добавление значений groupcheckboxinput во фрейм данных в Shiny

Question

Я пытаюсь добавить значения из значения checkboxgroupinput во фрейм данных с именем Surv_Data в Shiny App.

Ниже приведен код для флажков:

      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]
  )
})