inst/examples/01_hello/app.R

shinyApp(
  fluidPage(
    title = "CSV Import Sample App",
    wellPanel(
      ModuleImportUI("ProjectDataFile")
    ),
    h3("Example App Preview"),
    tableOutput("AppOutputTest")
  ),
  function(input,output,session){
    DataFile <- ModuleImportServer("ProjectDataFile", "AsIs", Options = list(UILang = "en"))

    output$AppOutputTest <- renderTable({
      need(DataFile(), "No data available")
      return(DataFile())
    })
  }
)
SigurdJanson/shinyCSVImpoMod documentation built on Jan. 5, 2023, 3:57 a.m.