我正在尝试在Rshiny中重新排列y数据框的列。但是，没有一个有效

Question

我有一个名为status的输入变量，这应该是我数据框的第一列。我已经尝试了下面给出的所有选项，但总是出现闪亮错误

library(shiny)
ui<-fluidPage(
  titlePanel("My Hello World Shiny Example!"),
  sidebarLayout(
  sidebarPanel(
    fileInput(inputId="data",label="Choose CSV file",multiple=FALSE,accept=c("text/csv","text/comma-seperated-values,text/plain",".csv"),width=NULL,buttonLabel="Browse",placeholder="No file selected"),
checkboxInput(inputId="header",label="Header",value=FALSE),
                                                   radioButtons(inputId = 'sep', label = 'Separator', 
                                                                choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected = ','),
uiOutput("status1")
    ),
  mainPanel(
    uiOutput("dataframe")
  )
  )
)
server<-function(input,output){
  file<-reactive({
    x<-input$data
    if(is.null(x)){return()}
    read.table(file=x$datapath,sep=input$sep,header=input$header)
  })
  output$status1<-renderUI({
    selectInput("status","Select Dependent variable",choices=names(file()),multiple=FALSE)
  })
  y1<-reactive({

  #data.frame(cbind(file()[,input$status],file()[,-paste0(input$status)]))

错误消息是一元运算符的无效参数

#data.frame(cbind(file()[,input$status],subset(file(),select= -file()[,input$status])))

错误消息是一元运算符的无效参数

      # vari<-setdiff(names(file()),input$status)
      # data.frame(cbind(file()[,c(input$status,vari)]))

错误消息是x应该大于二维

      #y<-file()
      # var<-setdiff(names(y),input$status)
      # data.frame(cbind(y[c(input$status,var)]))

错误消息是x应该大于二维

#data.frame(cbind(y[,c(input$status,c(setdiff(names(y),input$status)))]))

错误消息是x应该大于二维

})
  output$x1<-renderTable({
    if(is.null(file())){return()}
    file()
  })
  output$dataframe<-renderUI({
    tableOutput("x1")
  })
}
shinyApp(ui=ui,server=server)