inst/examples/file_import/file_import.R

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

library(shiny)
library(shinyfio)

ui <- fluidPage(
  wellPanel(
    fileImportWidget("fileImport"),
    tags$hr(),
    verbatimTextOutput("debug")
  )
)

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

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

shinyApp(ui = ui, server = server)