Несколько входов от флажка для регрессии в блестящем

Question

Я хочу выбрать несколько независимых переменных из входных данных флажка и выполнить для них несколько линейных регрессий, но я мог выбрать только входные данные из флажка, и когда я запустил его, я не смог получить выходные данные.

code:

tabItem(tabName = "Recruitment"),
                  tabItem(tabName = "PEP",fluidPage(
                    box(title = "Prediction Employee Performance",width = 
600, status = "primary", solidHeader = TRUE,
                        "The Performance of the employee"),
                    fileInput('datafile1', 'Choose CSV file',
                              accept=c('text/csv', 'text/comma-separated- 
values,text/plain')),
                    box(title = "Choose the variables", status = 
"warning", solidHeader = TRUE,
                        selectInput('x','Dependent Variable',''),
                        checkboxGroupInput("y", label = h5("Independent 
Variables"),c("IDV1" = 1, "IDV2" = 2, "IDV3" = 3)),
                        actionButton("GO", "GO"))),

                    h2("Performance Results"),
                    verbatimTextOutput("ei")),

Server side:
server <- function(input, output, session) {

# performance analysis with multilinear regression
filedata <- reactive({
req(input$datafile1)
infile <- input$datafile1
if (is.null(infile)) {       # User has not uploaded a file yet
  return(NULL)
}
df<-read.csv(infile$datapath)

updateSelectInput(session, inputId = 'x', label = "select dependent 
variable",choices = names(df), selected = names(df))
updateCheckboxGroupInput(session, inputId = 'y',label = "Independent", 
choices = names(df))

return(df)
})
output$ei <- renderPrint({input$GO
x1 <- filedata()[, c(input$x)]
x2 <- filedata()[, c(input$y)]

if (input$GO ==1)
{
  h <- lm(x1~x2 , data=filedata())   
  isolate(summary(h))
}
})