R闪亮在函数中使用多个变量

Question

提前抱歉我的英语，我是法国人。

我目前为R包开发了一个GUI。我的问题是我想让用户选择用于创建模型的变量。 以下是代码的简化版本：

library(shiny)
library(frailtypack)

data("readmission", package = "frailtypack")

ui <- fluidPage(
  selectInput("var", "variable",
              names(readmission), multiple = TRUE),
  selectInput("group", "variable in cluster()",
              names(readmission)),
  verbatimTextOutput("modjoint")
)

server <- function(input, output) {
  output$modjoint <- renderPrint({
    print(
      modSha <-
        frailtyPenal(
          Surv(t.start, t.stop, event) ~ cluster(get(input$group)) + sex + dukes +
            charlson,
          data = readmission,
          n.knots = 6,
          kappa = 5000,
          recurrentAG = TRUE,
          cross.validation = TRUE
        )
    )

  })
}
shinyApp(ui, server)

性，公爵和查尔森是再入院的变量。但我希望用户在重新接纳的所有变量中进行选择。

我怎样才能取代＆＃34;性+公爵+查尔森＆＃34;通过输入＆＃34; var＆＃34;？

非常感谢