inst/mvn-shiny-app/app_ui.R

In MVN: Multivariate Normality Tests

app_ui <- function(request) {
  bslib::page_navbar(
    id = "main_nav",
    title = "MVN Shiny App",
    theme = bslib::bs_theme(
      version = 5,
      bootswatch = "flatly"
    ),
    header = shiny::tags$head(
      shiny::tags$style(
        "
        .selectize-control,
        .dropdown,
        .dropup,
        .dropend,
        .dropstart {
          position: relative;
          z-index: 9998 !important;
          overflow: visible !important;
        }

        .selectize-dropdown,
        .selectize-dropdown-content,
        .dropdown-menu,
        .dropdown-menu.show {
          z-index: 9999 !important;
        }

        .bslib-card,
        .bslib-card > .card,
        .bslib-card .card,
        .bslib-card .card-body,
        .card,
        .card-body,
        .layout-sidebar,
        .layout-sidebar .sidebar,
        .layout-sidebar .main,
        .layout-column-wrap,
        .layout-column-wrap > * {
          overflow: visible !important;
        }
        "
      )
    ),
    bslib::nav_panel("Data & Preprocessing", mod_data_prep_ui("data_prep")),
    bslib::nav_panel("Analysis Settings", mod_analysis_settings_ui("analysis")),
    bslib::nav_panel("Results", mod_results_ui("results")),
    bslib::nav_panel("Report / Download", mod_report_ui("report")),
    bslib::nav_panel("About", mod_about_ui("about"))
  )
}