如何从导入的数据中动态下拉闪亮的文件？

Question

在R闪亮中，我使用下面的代码导入.xlsx文件，我必须选择下拉列表的标题属性，并想使用它来做条形图？我是R新手，任何人都可以帮助我吗？

library(shiny)
library(readxl)

runApp(
  list(
    ui = fluidPage(
      titlePanel("File Upload"),
      sidebarLayout(
        sidebarPanel(
          fileInput('file1', 'Choose xlsx file',
                    accept = c(".xlsx")
          )
        ),
        mainPanel(
          tableOutput('contents'))
      )
    ),
    server = function(input, output){
      output$contents <- renderTable({
        inFile <- input$file1

        if(is.null(inFile))
          return(NULL)
        file.rename(inFile$datapath,
                    paste(inFile$datapath, ".xlsx", sep=""))
        read_excel(paste(inFile$datapath, ".xlsx", sep=""), 1)
      })
    }
  )
)