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