disease_info.R - after previous changes

disease_info.R

box::use(shiny[NS, column, tags, fluidRow, icon], )

#' @export
disease_info_ui <- function(id, i18n) {
  ns <- NS(id)
  fluidRow(
    id = ns("welcome"),
    class = "fluid-row",
    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 mb-5",
        tags$h2(
          class = "greeting display-4 font-weight-bold",
          "          i18n$translate("Disease Outbreak pDT")"
        ),
        tags$p(
          class = "pt-3",
          "The BioDT wild boar (Sus scrofa)-African swine fever (ASF) prototype digital twin (pDT)implements a stochastic, spatially- and temporally-explicit, and individually-baselandscape-level mechanistic model as a digital twin aimed at providing informed support for management decisions in response to the spread of African swine fever in European wild boar populations."
        ),
        tags$p(
          "The model incorporates wild boar ecology and ASF epidemiology to simulate infection dynamics in the wild boar population. The first run of a wild boar-ASF model simulation is triggered when habitat structure data are supplied to the model. Each time additional information (wild boar locality data, ASF infection detections) is provided, the model reruns, incorporating the new data and returning an updated, dynamic prediction of African swine fever infection including identification of active and recovered cases as well as incidents of wild boar death due to the virus."
        ),
        tags$p(
          "Read more about the pDT here:",
          tags$a(
            "https://riojournal.com/article/125521/",
            href = "https://riojournal.com/article/125521/",
            target = "_blank"
          ),
          "."
        ),
        tags$p(
          "Read more about the wild boar-ASF simulation model here:",
          tags$a(
            "https://doi.org/10.1007/s00477-016-1358-8",
            href = "https://doi.org/10.1007/s00477-016-1358-8",
            target = "_blank"
          ),
          "."
        ),
        tags$p(
          "Video source: Alexis Lours, Sus scrofa Linnaeus, 1758 observed in France,",
          tags$a(
            "https://www.inaturalist.org/observations/197802817",
            href = "https://www.inaturalist.org/observations/197802817",
            target = "_blank"
          ),
          "."
        ),
        tags$p(
          "Source code and scripts of the pDT can be found at ",
          tags$a(icon("github"), "https://github.com/BioDT", href = "https://github.com/BioDT", target = "_blank"),
          "."
        ),
      ),
    ),
    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",
        ),
      )
    )
  )
}

# disease_info_server <- function(id) {
#   moduleServer(id, function(input, output, session) {

#   })
# }