R/app_ui.R

In Rosalien/datasetArchiveApp: Shiny app to extract dataset from SNO-Tourbières with Zenodo or Theia/Ozcar format

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @importFrom shiny titlePanel fluidPage navbarPage fluidRow div img
#' @importFrom shinythemes shinytheme
#' @importFrom shinycssloaders withSpinner
#' @importFrom shinyjs useShinyjs inlineCSS hidden
#' @importFrom shiny.i18n Translator
#' @importFrom waiter use_waitress use_waiter 
#' @noRd
#' 
app_ui <- function(request) {
  
  language <- get_golem_options("language")
  translator <- shiny.i18n::Translator$new(translation_csvs_path = "inst/app/www/translation")
  translator$set_translation_language(language)

    # List the first level UI elements here 
    fluidPage(theme =shinytheme("flatly"),
      useShinyjs(),
      # Loading message
      use_waitress(color="#0e73b3"),
      use_waiter(),
      hidden(
      div(
        id = "app-content",
        fluidPage(          
             titlePanel(
                    title="", windowTitle=translator$t("Visualisation & Extraction des donnée du SNO-T")
             )
          ),
        navbarPage(
          fluidRow(       
              div(img(src="https://raw.githubusercontent.com/Rosalien/doc_snot/master/Figures/logo_Tourbieres.jpg",height = "60px",style = "position: relative; top: -20px;left:0px;"), "")
          ),
        mod_extractiondatasetUI("mod_extractiondatasetUI_1")
        )
        )
      )
    )
}

#' Add external Resources to the Application
#' 
#' This function is internally used to add external 
#' resources inside the Shiny application. 
#' 
#' @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 = 'datasetArchiveApp'
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert() 
  )
}