R/app_ui.R

In gavandrewj/pdphApp: pdphApp

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # Your application UI logic 
    semantic.dashboard::dashboard_page(suppress_bootstrap = FALSE,
      
      
      title = 'This is my Page title',
                                      
                                      
                                      
      
      
      
      header = semantic.dashboard::dashboardHeader(),
                                      
                                      
                                      
                                      
      
      
      sidebar = semantic.dashboard::dashboardSidebar(
                                                     size = "wide",
                                                     semantic.dashboard::sidebarMenu(
                                                                                     semantic.dashboard::menuItem(text = "Raw Data", tabName = "import", icon = icon("table")),
                                                                                     semantic.dashboard::menuItem(text = 'Study Information',tabName = 'geninfo',icon = icon('table')),
                                                                                     semantic.dashboard::menuItem(text = 'Demographics',tabName = 'demographics',icon = icon('plot')),
                                                                                     
                                                                                     semantic.dashboard::menuItem(text = 'Summary Table',tabName = 'summary',icon = icon('table')),
                                                                                     semantic.dashboard::menuItem(text = 'Q1: Prevalance',tabName = 'q1',icon = icon('table'))
                                                                                     
                                                                                     )
                                                     ),
                                      
                                      
                                      
                                      
      body = semantic.dashboard::dashboardBody(title = "Basic Dashboard",
                                               semantic.dashboard::tab_items(
                                                                             semantic.dashboard::tab_item(tabName = 'import',
                                                                                                        #shiny::fluidRow(
                                                                                                          
                                                                                                          mod_rawtable_ui("rawtable_ui_1")
                                                                                                        #)
                                                                                                          ),
                                                                             
                                                                             semantic.dashboard::tab_item(tabName = 'geninfo',
                                                                                                          semantic.dashboard::box(width = 8,
                                                                                                                                  title = 'Study Description',
                                                                                                                                  ribbon = TRUE,
                                                                                                            div(class="content",
                                                                                                                div(class="header", "Description"),
                                                                                                                div(class="description", "Post dural puncture headache (PDPH), 
                                                                                                                    also known as post lumbar puncture (LP) headache, 
                                                                                                                    is a common complication of diagnostic LP. It can also occur 
                                                                                                                    following spinal anesthesia or, more commonly, inadvertent dural 
                                                                                                                    puncture during attempted epidural catheter placement1.")
                                                                                                            )
                                                                                                          ),
                                                                                                          semantic.dashboard::box(width = 8,
                                                                                                                                  title = 'Study Significance',
                                                                                                                                  ribbon = TRUE,
                                                                                                            div(class="content",
                                                                                                                div(class="header", "Significance"),
                                                                                                                div(class="description", "This study will be the first of its kind at 
                                                                                                                    the Georgetown Public Hospital so it will provide new information
                                                                                                                    about post dural puncture headache and its management among obstetrics 
                                                                                                                    patients at this institution. Also this study will be the foundation for 
                                                                                                                    further studies of this nature.")
                                                                                                            )
                                                                                                          ),
                                                                                                          
                                                                                                          mod_varinfo_ui("varinfo_ui_1")
                                                                             ),
                                                                             semantic.dashboard::tab_item(tabName = 'demographics',
                                                                                                          semantic.dashboard::box(
                                                                                                            title = "Distribution of Age",
                                                                                                            color = "blue",
                                                                                                            ribbon = TRUE,
                                                                                                            collapsible = TRUE,
                                                                                                            width = 8,
                                                                                                          mod_histogram_ui("histogram_ui_age")
                                                                                                                                ),
                                                                                                          semantic.dashboard::box(
                                                                                                            title = "Distribution of Race",
                                                                                                            color = "blue",
                                                                                                            ribbon = TRUE,
                                                                                                            collapsible = TRUE,
                                                                                                            width = 8,
                                                                                                            mod_barchart_ui("barchart_ui_race")
                                                                                                          ),
                                                                                                          semantic.dashboard::box(
                                                                                                            title = "Distribution of Age over Race",
                                                                                                            color = "blue",
                                                                                                            ribbon = TRUE,
                                                                                                            collapsible = TRUE,
                                                                                                            width = 16,
                                                                                                            mod_histogram_ui("histogram_ui_raceage")
                                                                                                          )
                                                                                                          #  semantic.dashboard::valueBox("Males", nrow(dataset), color = "blue", width = 5, size = "tiny")
                                                                             ),
                                                                             
                                                                             
                                                                                 
                                                                             semantic.dashboard::tab_item(tabName = 'pagetwoitems',
                                                                                                          shiny::fluidRow(
                                                                                                                          semantic.dashboard::box(
                                                                                                                                                  title = "Revenue per Account",
                                                                                                                                                  color = "blue",
                                                                                                                                                  ribbon = TRUE,
                                                                                                                                                  collapsible = TRUE,
                                                                                                                                                  width = 8
                                                                                                                                                  ),
                                                                                                                          semantic.dashboard::box(
                                                                                                                                                  title = "Revenue per Product",
                                                                                                                                                  color = "blue",
                                                                                                                                                  ribbon = TRUE,
                                                                                                                                                  collapsible = TRUE,
                                                                                                                                                  width = 8
                                                                                                                                                  )
                                                                                                                           )
                                                                                                          ),
                                                                             semantic.dashboard::tab_item(tabName = 'summary',
                                                                                                          #semantic.dashboard::box(
                                                                                                          #  title = 'Summary Table',
                                                                                                          #  width = 8,
                                                                                                                mod_summarytable_ui("summarytable_ui_1")
                                                                                                        #  )
                                                                             ),
                                                                             
                                                                             semantic.dashboard::tab_item(tabName = 'q1',
                                                                                                          
                                                                                                          mod_mosaic_ui("mosaic_ui_1")
                                                                                                            
                                                                             )
                                                                               )
                                               )
      )
  )
}

#' Add external Resources to the Application
#' 
#' This function is internally used to add external 
#' resources inside the Shiny application. 
#' 
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function(){
  
  add_resource_path(
    'www', app_sys('app/www')
  )
 
  tags$head(
    favicon(),
    bundle_resources(
      path = app_sys('app/www'),
      app_title = 'pdphApp'
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert() 
  )
}