#' 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"))
))
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.