inst/examples/file_import/table_import_dashboard_shiny.R

In keqiang/shinywidgets: This package provides customized Shiny UI widgets for tidy data import/export from/to files

library(shiny)
library(shinydashboard)
library(shinyfio)

ui <- dashboardPage(
  dashboardHeader(title = "Table Importing Example"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(
        title = "Data Import",
        status = "primary",
        solidHeader = TRUE,
        width = 12,
        dataTableImportWidget("tableImport1"),
        tags$hr(),
        verbatimTextOutput("debug")
      )
    )
  )
)

server <- function(input, output) {
  importedData <- importDataTable("tableImport1", serverRootDirectories = c("wd" = ".."))

  output$debug <- renderPrint({
    importedData()
  })
}

shinyApp(ui = ui, server = server)