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

时间:2019-06-03 18:43:45

标签: r shiny shiny-reactivity shinyapps

我正在尝试将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]],但不幸的是,这不起作用。任何帮助,将不胜感激。

1 个答案:

答案 0 :(得分:2)

也许

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