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())
})
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.