R Shiny openxlsx：上传的 xlsx 文件 - select a sheet 来自下拉菜单

Question

在我的 Shiny 应用程序中，我可以通过输入 sheet 的名称上传 xlsx 文件和 select sheet：

library(shiny)
library(openxlsx)
runApp(
  list(
    ui = fluidPage(
      titlePanel("openxlsx - choose sheet"),
      sidebarLayout(
        sidebarPanel(
          fileInput('file1', 'Choose xlsx file',
                    accept = c(".xlsx"))),

        mainPanel(tableOutput('contents'),
          textInput("tab1", "Type in sheet name:", "Sheet1")))),
    server = function(input, output,session){
      output$contents <- renderTable({
        inFile <- input$file1
        if(is.null(inFile))
          return(NULL)
        file.rename(inFile$datapath,paste(inFile$datapath, ".xlsx", sep=""))
        read.xlsx(paste(inFile$datapath, ".xlsx", sep=""), sheet=input$tab1)
      })}))

相比 select sheet，我更希望能够使用下拉菜单。我知道我可以使用 openxl 包来获取 sheets 名称，但我不确定如何在 Shiny 中实现它。任何帮助将不胜感激。

Answer 1

在UI中：

uiOutput("dropdownUI")

在服务器中：

Workbook <- eventReactive(input$file1, {
  loadWorkbook(input$file1$datapath)
})

Sheets <- eventReactive(Workbook(), {
  names(Workbook())
})

output$dropdownUI <- renderUI({
  req(Sheets())
  selectInput("sheet", "Choose a sheet", Sheets())
})

Dat <- eventReactive(input$sheet, {
  read.xlsx(Workbook(), sheet = input$sheet)
})

output$contents <- renderTable({
  req(Dat())
  Dat()
})

R Shiny openxlsx：上传的 xlsx 文件 - select a sheet 来自下拉菜单

R Shiny openxlsx: uploaded xlsx file - select a sheet from drop-down menu

r

drop-down-menu

shiny

openxlsx