R/app_ui.R

In kismet303/lopo3000: LoPo 3000 Experimental package using RShiny for interactive LoPo

#' @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")
  )
}