闪亮列选择使用data.frame语法

Question

我正在创建一个用户上传文件的Shiny应用。我想创建一个只包含一组特定列d1 <- data1()[,c(5:53)]的新data.frame：

shinyServer(function(input, output) {
           data1 <- reactive({
                    inFile <- input$file1
                              if (is.null(inFile)){return(NULL)}

                    isolate({ 
                    input$Load
                    TempA <- read.table(inFile$datapath, skip=4, sep=",", na.strings=c("NAN", "-6999"))
                    var.names.at <-  read.table(inFile$datapath, skip=1, sep=",", head=T, nrows=1)})

                    names(TempA) <- names(var.names.at)
                    TempA})

          data.temp <- reactive({
          d1 <- data1()[,c(5:53)]})

         output$summary <- renderPrint({ 
                   dataset <- data.temp()
                  summary(dataset)})

})

我收到以下消息：

Error in `[.data.frame`(data1(), , c(5:53)) : undefined columns selected

非常感谢任何指导。