R/app_ui.R

In SKDE-Analyse/dynamiskTabellverk: Dynamisk tabellverk for Helse Nord RHF

#' Shiny UI
#'
#' @return user interface
#' @export
app_ui <- function() {
  config <- get_config()
  shiny::fluidPage(
    theme = shinythemes::shinytheme("cerulean"),
    shiny::titlePanel(
      shiny::tags$head(
        # Make it fully scale inside iframe
        shiny::tags$script(src = "www/iframeResizer.contentWindow.min.js"),
        shiny::tags$link(
          rel = "icon",
          type = "image/png",
          href = "www/hn.png"
        ),
        shiny::tags$title(config$title),
        # Color on links as well as inactive tabs
        shiny::tags$style(type = "text/css", "a{color: #808080;}"),
        # Color title
        shiny::tags$style(type = "text/css", "h1{color: #003A8C;}"),
        # max page width
        shiny::tags$style(
          type = "text/css",
          ".container-fluid {  max-width: 1200px;}"
        )
      )
    ),
    shiny::tags$div(
      style = "position: absolute; top: -100px;",
      shiny::textOutput("clock")
    ),
    shiny::uiOutput("figurtekst"),
    shiny::uiOutput("lastned"),
    shiny::br(),
    shiny::sidebarPanel(
      common_ui("just_overf"),
      shiny::uiOutput("valg"),
      common_ui("rad1"),
      common_ui("rad2"),
      shiny::uiOutput("hdg"),
      common_ui("kolonner"),
      common_ui("verdi"),
      shiny::br(),
      shiny::uiOutput("filter"),
      common_ui("bo"),
      common_ui("beh"),
      shiny::uiOutput("fag"),
      common_ui("aar"),
      common_ui("behandlingsniva"),
      common_ui("hastegrad1"),
      common_ui("hastegrad2"),
      common_ui("alder"),
      common_ui("kjonn"),
      shiny::br(),
      shiny::uiOutput("instilling"),
      common_ui("prosent"),
      common_ui("keep_names"),
      common_ui("snitt"),
      width = 3
    ),
    shiny::mainPanel(
      shiny::tabsetPanel(
        type = "tabs", id = "tab",
        shiny::tabPanel(config$tabs$alle,
          shiny::tableOutput("alle"),
          value = "alle"
        ),
        shiny::tabPanel(config$tabs$dogn,
          shiny::tableOutput("dogn"),
          value = "dogn"
        ),
        shiny::tabPanel(config$tabs$dag,
          shiny::tableOutput("dag"),
          value = "dag"
        ),
        shiny::tabPanel(config$tabs$poli,
          shiny::tableOutput("poli"),
          value = "poli"
        ),
        shiny::tabPanel(
          config$tabs$info,
          shiny::fluidPage(
            shiny::uiOutput("markdown")
          )
        )
      ),
      width = 9
    )
  )
}