loadfile: Load Data in Shiny. Server function
In Davide-bll/Shinymod: Help building Shiny modules

Choose between .txt, .csv, .FEATHER format.

1	loadfile(input, output, session)

A reactive Dataframe.

require(shiny)
if (interactive()) {
ui <- 
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        loadfileUI(id = "read")
    ), 
      mainPanel(tableOutput("tbl"))
  )
)


server <- function(input, output, session) {
  
  data <- callModule(loadfile, "read")
  
  output$tbl <- renderTable({
    validate(need(data(), message = FALSE))
    
    head(data()())
  })
}

shinyApp(ui, server)
}