inst/doserate/ui.R

In crp2a/gammaShiny: 'shiny' Applications for the R Package 'gamma'

#' Dose Rate Shiny App User Interface Object
#'
#' @author N. Frerebeau
#' @keywords internal
#' @noRd
shiny_ui <- function(request) {
  fluidPage(
    navbarPage(
      "Dose Rate",
      module_import_ui("import"),
      module_energy_ui("energy"),
      module_dose_ui("dose"),
      module_settings_ui("settings"),
      module_about_ui("about"),
      footer = tags$footer(
        style = "width: 100%;text-align: center;",
        icon("github"),
        tags$a(href = "https://github.com/crp2a/gammaShiny/issues",
               rel = "external", title = "Issue", target = "_blank",
               "Report a bug or request.")
      )
    )
  )
}