如何使用 fileInput 从上传到 Shiny 应用程序的 .xlsx 文件中获取工作表名称列表？

Question

我有一个包含多张工作表的 .xlsx 文件，我正在使用 ID 为“file”的 fileInput 将其上传到我的 Shiny 应用程序。我的目标是使用字符串检测加载工作表，也就是说，如果我有 3 张以随机顺序命名的工作表，名为“apple”、“orange”和“banana”，我想使用字符串匹配加载“apple”工作表工作表列表。到目前为止，当我尝试使用 excel_sheets 使用 readxl 包提取工作表名称时，我一直遇到错误，因此我无法获取工作表列表-

Warning: Error in : `path` does not exist: ‘C:\Users\AppData\Local\Temp\Rtmp6dWPYS/0b16b05aa5a58cc1d1261369/0.xlsx’

相关服务器代码如下-

    sheet_names <- reactive({
        if (!is.null(input$file)) {
            return(excel_sheets(path = input$file))
        } else {
            return(NULL)
        }
    })


apple_data <- reactive({
        req(input$file)
        inFile <- input$file
        if(is.null(inFile))
            return(NULL)
        file.rename(inFile$datapath,
                    paste(inFile$datapath, ".xlsx", sep=""))
        p<-read_excel(paste(inFile$datapath, ".xlsx", sep=""), 
    sheet = sheet_names() [str_detect(sheet_names(), regex("(apple)"))]
        

    })

在调整了各种功能后，我最终找到了一种使用 openxlsx 的方法。在下面分享解决方案-

wb<- reactive({
        req(input$file)
        inFile<- input$file
        wb<-loadWorkbook(paste(inFile$datapath, ".xlsx", sep=""))
    })
    sheetnames <- reactive({
        req(input$file)
        if (is.null(input$file)) 
            return(NULL)
        
        sheet_names<-wb()$sheet_names
        })

apple_data <- reactive({
        req(input$file)
        inFile <- input$file
        if(is.null(inFile))
            return(NULL)
        file.rename(inFile$datapath,
                    paste(inFile$datapath, ".xlsx", sep=""))
        p<-read_excel(paste(inFile$datapath, ".xlsx", sep=""), 
    sheet = sheet_names() [str_detect(sheet_names(), regex("(apple)"))]
  })

Answer 1

OP 代码中的问题是函数sheet_names() 使用逻辑向量str_detect(sheet_names(), regex("(apple)")) 作为输入。相反，它会是

...
sheet = sheet_names()[str_detect(sheet_names(), regex("(apple)"))])
...

Answer 2

你可以试试这个代码 -

library(shiny)
library(readxl)

ui <- fluidPage(
  fileInput('file', 'Input'),
  tableOutput('table')
)

server <- function(input, output) {
  apple_data <- reactive({
    req(input$file)
    inFile <- input$file
    if(is.null(inFile))     return(NULL)
    sheetnames <- excel_sheets(path = inFile$datapath)
    read_excel(inFile$datapath, sheet = grep('apple', sheetnames, value = TRUE))
  })
  output$table <- renderTable(apple_data())

}

shinyApp(ui, server)