diff --git a/app/view/disease_outbreaks/disease_outbreaks_contributors.R b/app/view/disease_outbreaks/disease_outbreaks_contributors.R new file mode 100644 index 0000000..39c1e4f --- /dev/null +++ b/app/view/disease_outbreaks/disease_outbreaks_contributors.R @@ -0,0 +1,43 @@ +box::use( + shiny[moduleServer, NS, tagList, div, column, tags, fluidRow, icon], +) + +#' @export +disease_outbreaks_contributors_ui <- function(id, i18n) { # nolint + ns <- NS(id) + fluidRow( + class = "align-items-center justify-content-center m-0 p-0", + style = "overflow-x: hidden", + column( + width = 6, + class = "col-sm-12 col-lg-6", + style = "height: 100vh;", + tags$div( + class = "col-sm-10 offset-sm-1 text-center mt-5", + tags$h2(i18n$translate("CONTRIBUTORS"), + style = "greeting display-4 font-weight-bold" + ), + tags$p("TO BE ADDED"), + ) + ), + column( + width = 6, + style = "height: 100vh;", + class = "d-none d-lg-block m-0 p-0", + tags$div( + tags$img( + class = "info-picture", + src = "static/img/Alexis-Lours-Sus-scrofa-Linnaeus.gif", + alt = "Video of wild boar pack", + ) + ) + ) + ) +} + +#' @export +disease_outbreaks_contributors_server <- function(id, r) { # nolint + moduleServer(id, function(input, output, session) { + ns <- session$ns + }) +} \ No newline at end of file diff --git a/app/view/disease_outbreaks/disease_outbreaks_main.R b/app/view/disease_outbreaks/disease_outbreaks_main.R index 5d905e5..c0fc25f 100644 --- a/app/view/disease_outbreaks/disease_outbreaks_main.R +++ b/app/view/disease_outbreaks/disease_outbreaks_main.R @@ -6,6 +6,7 @@ box::use( box::use( app/view/disease_outbreaks/info/disease_info[disease_info_ui, disease_info_server], app/view/disease_outbreaks/disease_app/disease_app[disease_app_ui, disease_app_server], + app/view/disease_outbreaks/disease_outbreaks_contributors[disease_outbreaks_contributors_ui, disease_outbreaks_contributors_server], # nolint ) #' @export @@ -27,6 +28,15 @@ disease_outbreaks_main_ui <- function(id, i18n) { disease_app_ui( ns("disease_app"), i18n ) + ), + nav_panel( + title = i18n$translate("Contributors"), + value = "Contributors", + icon = icon("sitemap"), + disease_outbreaks_contributors_ui( + ns("disease_outbreaks_contributors"), + i18n + ) ) ) }