#' AppServer
#'
#' Application server logic
#'
#' @param input Input
#' @param output Output
#' @param session Session
#'
#' @return NULL (invisibly)
#'
#' @export
AppServer <- function(input, output, session)
{
appState <- reactiveValues(
AppManager = AppManager$new(reactive = TRUE)
)
callModule(Welcome, 'welcome', appState, session = session)
callModule(InputDataUpload, 'upload', appState, session = session)
session$onSessionEnded(function() {
shiny::stopApp()
})
output$mode <- renderText({
sprintf('Mode: %s', appState$AppManager$Mode)
})
return(invisible(NULL))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.