inst/app/ui.R

In avucoh/nPOD: What the Package Does (One Line, Title Case)

ui <- function(request) { shinyUI(
  navbarPage(title = tags$div(img(src = "nPOD_logo.jpeg"), "DataView"), windowTitle = "nPOD DataView", id = "main", selected = "home", collapsible = T,
             theme = shinythemes::shinytheme("paper"),
             tags$head(
               tags$link(rel = "stylesheet", type = "text/css", href = "custom.css"),
               tags$link(rel = "stylesheet", type = "text/css", href = "introjs.min.css"),
               tags$link(href= "https://fonts.googleapis.com/css?family=Raleway|Quicksand|Playfair+Display&display=swap", rel="stylesheet"),
               includeScript("www/intro.min.js")
             ),

             #-- MENU PG 1 (HOME) ---------------------------------------------------------------------------------#
             tabPanel("Home", value = "home",
                      source("ui_home.R")$value # avoid returning TRUE being displayed
             ),

             #-- MENU PG 2-5 --------------------------------------------------------------------------------------#
             navbarMenu("Modules",
                        tabPanel("Matrix (low-throughput data only)", value = "matrix",
                                 span(actionButton("demoMatrix", "Guide", icon = icon("play")), title = "Start an interactive guide for this module!"),
                                 bookmarkButton(id = "bookmark2"),
                                 matrixMixUI("nPOD-matrix", CSS = NULL),
                                 includeScript("www/demo/demoMatrix.js")),
                        tabPanel("MultiVUI (all data)", value = "data-exploration-2",
                                 # span(actionButton("demoHD", "Guide", icon = icon("play")), title = "Start an interactive guide for this module!"),
                                 # bookmarkButton(),
                                 multiVUI("nPOD-hd")),
                        tabPanel("CohortXchange", value = "cohort-exchange",
                                 span(actionButton("demoCohortExchange", "Guide", icon = icon("play")), title = "Start an interactive guide for this module!"),
                                 matchAppUI("nPOD-match", CSS = NULL),
                                 includeScript("www/demo/demoCohort.js")),
                        tabPanel("Browser (metadata)", value = "source-data",
                                 # span(actionButton("demoBrowse", "Guide", icon = icon("play")), title = "Start an interactive guide for this module!"),
                                 div(style = "margin-bottom: 50px;", bookmarkButton(id = "bookmark3")),
                                 browseUI("nPOD-browse"))
             ),

             #-- MENU PG 6 ----------------------------------------------------------------------------------------#
             tabPanel("More", value = "more",
                      fluidPage(
                        fluidRow(h3("Training & Documentation"),
                                 helpText("The materials below document the development of the app
                                          and aim to help users better understand some of the more abstruse technologies involved.")),
                        fluidRow(h3("Future Development"),
                                 helpText("The application and database are dynamic and can evolve to become an even more useful resource.
                                          Outlined below are planned integrations of potential interest to researchers (feel free to send us some input)."))
                      )
             )
      )
  )
}