R/ui_about-tabset.R

In appliedbinf/c19r-app: COVID-19 Event Risk Assessment Planning Tool

#' about_tabset
#'
#' @param ... Capture (and ignore) args
#'
about_tabset <- function(...) {
  tabPanel(
    value = "about",
    "About",
    fluid = TRUE,
    tabsetPanel(
      id = "abouttabs",
      tabPanel(
        value = "Aboutcontent",
        "About",
        fluid = TRUE,
        mainPanel(includeMarkdown(app_sys("About.md")))
      ),
      tabPanel(
        value = "press",
        "Press",
        fluid = TRUE,
        mainPanel(includeMarkdown(app_sys("Press.md")))
      ),
      tabPanel(
        value = "data",
        "Data source",
        fluid = TRUE,
        mainPanel(includeMarkdown(app_sys("Data.md")))
      ),
      tabPanel(
        value = "previous",
        "Previously Released Charts",
        fluid = TRUE,
        mainPanel(
          div(style = "height: 15px;"),
          tags$img(src = "www/twitter_image_031020.jpg"),
          tags$br(),
          div(style = "height: 15px;", hr()),
          tags$img(src = "www/figevent_checker_apr30.png"),
          tags$br(),
          div(style = "height: 15px;", hr()),
          tags$img(src = "www/figevent_checker_georgia_042720.jpg  ")
        )
      )
    )
  )
}