R/app_ui.R

In jaybee84/projectLive: projectLive : Live View of NF projects on Synapse

app_ui <- function(req) {
  projectlive.modules::oauth_ui(req, ui_function, OAUTH_LIST)
}

ui_function <- function(){
  shiny::tagList(
    golem_add_external_resources(),
    waiter::use_waiter(),
    waiter::waiter_show_on_load(html = span(
      style="color:white;",
      waiter::spin_pulsar(),
      shiny::h3("logging in...")
    )),
    shiny::navbarPage(   
      title = shiny::strong("projectLive"), selected = "About",	
      shiny::tabPanel(
        "About",
        projectlive.modules::synapse_module_ui2("synapse_module"),
        icon = shiny::icon("info-circle")
      ),
      shiny::tabPanel(
        "Snapshot",
        projectlive.modules::summary_snapshot_module_ui("summary_snapshot_ui_1"),
        icon = shiny::icon("chart-area")
      ),
      shiny::tabPanel(
        "Publications",
        projectlive.modules::publication_status_module_ui("file_status_ui_1"),
        icon = shiny::icon("book-reader")
      ),
      shiny::tabPanel(
        "Participating Studies",
        projectlive.modules::study_summary_module_ui("study_summary_ui_1"),
        icon = shiny::icon("bar-chart-o")
      ),
      shiny::tabPanel(
        "New Submissions",
        projectlive.modules::new_submissions_module_ui("new_submissions_module"),
        icon = shiny::icon("bar-chart-o")
      ),
      collapsible = TRUE,	inverse = TRUE,
      windowTitle = "projectLive"
    )
  )
}

#' @import shiny
golem_add_external_resources <- function(){
  
  addResourcePath(
    'www', system.file('app/www', package = 'projectLive')
  )
  
  tags$head(
    golem::activate_js(),
    golem::favicon(),
    # add the next line to enable collection of synapse session token from browser cookie
    shiny::includeScript(system.file("inst/app/www/readCookie.js", package = "projectLive")), 
    # 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"),
    tags$script(htmlwidgets::JS("setTimeout(function(){history.pushState({}, 'ProjectLive NF', window.location.pathname);},2000);"))
  )
}