Nothing
app_server <- function(input, output, session) {
callModule(mod_about_server, "about_ui_1")
params <- callModule(mod_parameters_server, "parameters_ui_1")
callModule(mod_parameter_table_server, "parameter_table_ui_1", params)
callModule(mod_schedule_server, "schedule_ui_1", params)
callModule(mod_fish_server, "fish_ui_1", params)
callModule(mod_recruitment_server, "recruitment_ui_1", params)
callModule(mod_yield_server, "yield_ui_1", params)
callModule(mod_biomass_server, "biomass_ui_1", params)
observe({
if (input$navbar == "Report") {
callModule(mod_report_server, "report_ui_1", params)
}
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.