尝试将Excel CSV文件放入R Shinydashboard

Question

I created the main dashboard already in R using the shinydashboard package. However, my main question is how do I upload an Excel Csv file (which contains all the data) into the dashboard? I have been trying to figure this out and I am having trouble. So far, I have the following script:

install.packages("shinydashboard")
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Analysis Project"),
  dashboardSidebar(
    menuItem("Dashboard", tabName = "dashboard"),
    menuItem("Filter Page"),
    menuItem("Data")
  ),
    dashboardBody(
      tabItems(
       tabItem(tabName = "dashboard")
)
)

) server <- function(input,output) { } shinyApp(ui, server)

Answer 1

How about doing it this way?

library(shiny)
library(readxl)

ui <- fluidPage(
  fileInput('file1', 'Insert File', accept = c(".xlsx")),
  textInput('file1sheet','Name of Sheet (Case-Sensitive)'),
  tableOutput("value")
)

server <- function(input, output) {

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

  output$value <- renderTable({
    if (!is.null(input$file1) && 
        (input$file1sheet %in% sheets_name())) {
      return(read_excel(input$file1$datapath, 
                        sheet = input$file1sheet))
    } else {
      return(NULL)
    }
  })
}

shinyApp(ui, server)

Answer 2

Try to make a code like that !

library(shiny) library(shinydashboard)

header <- dashboardHeader(
title = "Analysis Project"
)

sidebar <- dashboardSidebar(
menuItem(text = "Importing file", tabName = "dashboard",icon = icon("file"),
       menuSubItem(text = "Importing file", tabName = "dataset")
       ),
menuItem("Dashboard", tabName = "dashboard"),
menuItem("Filter Page"),
menuItem("Data")
)


body <- dashboardBody(
 fluidPage(
   tabItems(
     tabItem(tabName = "dataset",
                fluidRow(
                  box(width = 12,
                      fileInput(inputId = "file",
                                label = "Choose a file",
                                accept = c(".xlsx",".csv")
                                ),
                      tableOutput(outputId = "Contents"),
                      verbatimTextOutput(outputId = "Data")
                      )
                  )
              )
          )
     )
 )

ui <- dashboardPage(header = header, 
                sidebar = sidebar, 
                body = body)

server <- function(input, output, session) {
  output$Data <- renderPrint({
    if(is.null(input$file)){
      print("Import Excel data file")
  } else {
      inFile <- input$file
      df <- read_excel(inFile$datapath)
      print(df)
    }
  })
 }
shinyApp(ui = ui, server = server)