尝试将Excel CSV文件放入R shinydashboard

install.packages("shiny")

library(shiny)
shinyApp(ui = fluidPage(), server = function(input, output) {})

fileInput("file", "选择Excel CSV文件")

data <- reactive({
  req(input$file)
  read.csv(input$file$datapath)
})

output$table <- renderTable({
  data()
})

shinyApp(ui = fluidPage(
  fileInput("file", "选择Excel CSV文件"),
  tableOutput("table")
), server = function(input, output) {
  data <- reactive({
    req(input$file)
    read.csv(input$file$datapath)
  })
  
  output$table <- renderTable({
    data()
  })
})