R/pathwayapp_ui.R

In qPRAentry: Quantitative Pest Risk Assessment at the Entry Step

#' The pathway application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#'
#' @noRd
pathwayapp_ui <- function(request){
  tags$div(class="container",
           navbarPage(
             HTML('<strong style="color:#1E68BA;">Pathway model app</strong>'), 
             windowTitle = "Pathway model app",
             header = tags$div(
               includeCSS(system.file("www/style.css", package = "qPRAentry")),
               bsplus::use_bs_popover(),
               shinyjs::useShinyjs(),
               withMathJax(),
               tags$div(HTML("<script type='text/x-mathjax-config' >
                  MathJax.Hub.Config({
                    tex2jax: {
                      inlineMath: [['$','$'], ['\\\\(','\\\\)']],
                      processEscapes: true
                    },
                    TeX: {
                      extensions: ['tex2jax.js', 'AMSmath.js', 'AMSsymbols.js']
                    }
                  });
                 </script >")
               )
             ),
             tabPanel("Info ",
                      class="intro",
                      icon = icon("book-open", "fa-pull-right"),
                      includeMarkdown(system.file("ShinyFiles/Info_pathway.md", 
                                                  package = "qPRAentry"))
             ),
             tabPanel("Pathway model",
                      icon = icon("chart-line", "fa-pull-right"),
                      tabsetPanel(id = "pathway_tabs",
                                  type = "pills",
                                  tabPanel("Model", value = "tab1",
                                           mod_pathway_model_ui("pathway_model")),
                                  tabPanel("$N_{trade}$ data", value = "tab2",
                                           mod_pathway_ntrade_ui("pathway_ntrade")),
                                  tabPanel("Parameters", value="tab3",
                                           mod_pathway_parameters_ui("pathway_parameters")),
                                  tabPanel("Results", value="tab4",
                                           mod_pathway_results_ui("pathway_results"))
                      )
             )
           )
  )
}