R/app_ui.r

In Helseatlas/shinymap: R-package to produce shiny maps of Norway

#' Shiny UI
#'
#' @return user interface
#' @export
app_ui <- function() {
  shiny::fluidPage(theme = shinythemes::shinytheme("cerulean"),
                   shinyalert::useShinyalert(),
                   shiny::titlePanel(shiny::tags$head(
                     shiny::tags$link(rel = "icon", type = "image/png", href = "www/hn.png"),
                     shiny::tags$title("Helseatlas"),
                     shiny::tags$link(rel = "stylesheet", type = "text/css", href = "www/custom.css")
                  )),
                  shiny::fluidRow(
                    shiny::column(8,
                                  shiny::uiOutput("title")
                    ),
                    shiny::column(1, offset = 3,
                                  shiny::uiOutput("pick_language")
                    )
                  ),
                  shiny::fluidRow(
                    shiny::column(3,
                                  select_ui("atlas"),
                                  shiny::htmlOutput("desc_text"),
                                  shiny::uiOutput("app_info"),
                                  shiny::uiOutput("git_version")
                    ),
                    shiny::column(9,
                                  shiny::tabsetPanel(
                                    shiny::tabPanel(shiny::icon("globe"),       tab_ui1("plots")),
                                    shiny::tabPanel(shiny::icon("chart-bar"),   tab_ui2("plots")),
                                    shiny::tabPanel(shiny::icon("table"),       tab_ui3("plots"))
                                  ))
                  ))
}