Example of using 'shinywidgets' package to import data to R Shiny app

file_import_in_shiny.R

library(shiny)
library(shinywidgets) # install by devtools::install_github("keqiang/shinywidgets")

ui <- fluidPage(
  wellPanel(
    dataTableImportWidget("tableImport1"),
    verbatimTextOutput("debug")
  )
)

server <- function(input, output) {
  importedData <- importDataTable("tableImport1")
  
  output$debug <- renderPrint({
    print(importedData())
  })
}

shinyApp(ui = ui, server = server)

file_import_in_shiny_dashboard.R

library(shiny)
library(shinydashboard)
library(shinywidgets) # install by devtools::install_github("keqiang/shinywidgets")

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

server <- function(input, output) {
  
  # the return value is the imported data table as a data frame(tibble)
  importedData <- importDataTable("tableImport1")
  
  output$debug <- renderPrint({
    print(importedData())
  })
}

shinyApp(ui = ui, server = server)