R/appUI.R

In Rapporteket/muskel: Resultatrapporter for Muskelregisteret

#' Client (ui) for the muskel app
#'
#' @return An shiny app ui object
#' @export

appUi <- function() {

  shiny::addResourcePath('rap', system.file('www', package='rapbase'))
  regTitle = "NORNMD"

  # Define UI for application
  ui <- shiny::navbarPage(
    id = "muskel_app_id",
    title = shiny::div(shiny::a(
      shiny::includeHTML(
        system.file('www/logo.svg', package='rapbase')
      )
    ),
    regTitle),
    windowTitle = regTitle,
    theme = "rap/bootstrap.css",

    shiny::tabPanel(
      "Startside",
      rapbase::navbarWidgetInput("navbar-widget", selectOrganization = TRUE),

      muskel::startside_ui()
    ),

    shiny::tabPanel(
      "Fordelingsfigur",
      muskel::fordelingsfig_ui("fordeling_id")
    ),

    shiny::tabPanel("Fordelinger etter grupperingsvariabler",
             fordeling_grvar_ui(id = "forgrvar")
    ),
    tabPanel("Kumulative andeler",
             muskel::kumulativAndel_ui(id = "kumAnd")
    ),
    tabPanel("Administrative tabeller",
             muskel::admtab_ui("muskeltabell")
    ),
    tabPanel("Datadump",
             muskel::datadump_ui("dataDumpMuskel")
    ),

    shiny::navbarMenu(
      "Verktøy",
      # shiny::tabPanel(
      #   "Utsending",
      #   shiny::sidebarLayout(
      #     shiny::sidebarPanel(
      #       rapbase::autoReportOrgInput("muskelDispatch"),
      #       rapbase::autoReportInput("muskelDispatch")
      #     ),
      #     shiny::mainPanel(
      #       rapbase::autoReportUI("muskelDispatch")
      #     )
      #   )
      # ),

      shiny::tabPanel(
        "Eksport",
        shiny::sidebarLayout(
          shiny::sidebarPanel(
            rapbase::exportUCInput("muskelExport")
          ),
          shiny::mainPanel(
            rapbase::exportGuideUI("muskelExportGuide")
          )
        )
      ),

      shiny::tabPanel(
        "Bruksstatistikk",
        shiny::sidebarLayout(
          shiny::sidebarPanel(rapbase::statsInput("muskelStats")),
          shiny::mainPanel(
            rapbase::statsUI("muskelStats"),
            rapbase::statsGuideUI("muskelStatsGuide")
          )
        )
      )
    )

  )
}