在RShiny中上传excel文件

Question

我正在尝试上传excel文件与多张表在R使用闪光库。此外，我必须上传多个excel文件。有谁能告诉我怎么解决这个问题吗？

Answer 1

这是一个简单的实用工具，可以打开Excel工作簿并从下拉列表中加载单个工作表。然后它会显示该表。希望这篇文章能帮你入门。

# Utility to read any Excel workbook and display a worksheet

library("shiny")
library("gdata")
library("tableHTML")

# Define UI for application that draws a histogram
ui <- fluidPage(

  # Application title
  titlePanel("Utility to read and display an Excel spreadsheet"),
  sidebarLayout(

    sidebarPanel (label="Data Source",
                  # Spreadsheet name and sheet name 
                  fileInput("spreadsheetName", "Spreadsheet Name",accept = c(".xlsx")),
                  selectInput(inputId = "worksheet", label="Worksheet Name",choices=''),
                  actionButton(inputId = "getData",label="Get Data")),

    mainPanel (
     tableHTML_output("table1Data")
    )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {
  # Read the data from the spreadsheet
  observe({
    # Get the annual data
    # Check if file is there... if not, exit and wait for it again
    inFile <- input$spreadsheetName
    if (is.null(inFile)) {
      return (NULL)
    }
    else {
      # Set up the selection for the worksheet names within the selected file
      filePath <<- inFile$datapath
      selectionWorksheet <- sort(unique(sheetNames (inFile$datapath)))
      updateSelectInput(session, "worksheet", choices = selectionWorksheet)
    }
  })

  # Get data
  observeEvent(input$getData, {

    # Get the data from the spreadsheet worksheets
    worksheetData <- read.xls (filePath, sheet=input$worksheet, header=TRUE, stringsAsFactors = FALSE)

    # Print the Annual table
    output$table1Data <- renderTable ({
      worksheetData
    # End of main program
    })
  })
}

# Run the application 
shinyApp(ui = ui, server = server)