R/app_ui.R

In nf-osi/kairos: kairos: NF Analysis Explorer

#' @import shiny
#' @import shinydashboard

app_ui <- function() {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    navbarPage(    
      title = strong("kairos"), selected = "Home",	
      tabPanel("Home",
               mod_home_page_ui("home_page_ui_1"),
               icon = icon("home")),
      navbarMenu("Explore", icon = icon("chart-area"),
      tabPanel("Genomics",
               mod_genomics_page_ui("genomics_page_ui_1"),
               icon = icon("dna")),	
      tabPanel("Drug Screening",
               mod_drug_screening_page_ui("drug_screening_page_ui_1"),
               icon = icon("pills"))
      ),
      # tabPanel("Documentation",
      #          mod_docs_page_ui("docs_page_ui_1"),
      #          icon = icon("book-reader")),	
      # tabPanel("About",
      #          mod_about_page_ui("about_page_ui_1"),
      #          icon = icon("info-circle")),	
      # tabPanel("Resources",
      #          mod_resources_page_ui("resources_page_ui_1"),
      #          icon = icon("external-link")),
      collapsible = TRUE,	inverse = TRUE,
      windowTitle = "kairos")
  )
}

#' @import shiny
golem_add_external_resources <- function(){
  
  addResourcePath(
    'www', system.file('app/www', package = 'kairos')
  )
 
  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")
  )
}