#' @import shiny
app_server <- function(input, output,session) {
session$onSessionEnded(stopApp)
# Init var
savevar <- reactiveValues()
# Dev
observeEvent(input$dev, {
browser()
})
# Modules ----
callModule(server_import,"import_mod", savevar)
callModule(infer, "infer_mod", savevar)
callModule(semantics, "semantics_mod", savevar)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.