#' @import shiny
app_ui <- function() {
tagList(
golem_add_external_resources(),
shinydashboard::dashboardPage(
shinydashboard::dashboardHeader(title = "lopo3000"),
shinydashboard::dashboardSidebar(
shinydashboard::sidebarMenu(
shinydashboard::menuItem("Home", tabName = "Home", icon = icon("dashboard")),
shinydashboard::menuItem("Overview",tabName = "OVERVIEW", icon = icon("th")),
shinydashboard::menuItem("LOPO", tabName = "LOPO", icon = icon("th")),
shinydashboard::menuItem("Output review", tabName = "output_review", icon = icon("th")),
shinydashboard::menuItem("App state (for debugging)", tabName = "app_state", icon = icon("th"))
)
),
shinydashboard::dashboardBody(
shinydashboard::tabItems(
m_home_ui("home1"),
m_overview_ui("overview1"),
m_lopo_ui("lopo1"),
mod_output_review_ui("review1"),
shinydashboard::tabItem(
tabName = "app_state",
tableOutput("state_table")
)
)
)
) #dashboardPage
) #tagList
}
#' @import shiny
golem_add_external_resources <- function(){
addResourcePath(
'www', system.file('app/www', package = 'lopo3000')
)
tags$head(
golem::activate_js(),
golem::favicon()
# Add here all the external resources
# If you have a custom.css in the inst/app/www
# Or for example, you can add shinyalert::useShinyalert() here
#tags$link(rel="stylesheet", type="text/css", href="www/custom.css")
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.