R/page_methodology.R

In djpr-data/djprlabourdash: DJSIR Jobs Dashboard

page_methodologyUI <- function(...) {
  fluidRow(
    # title = "Notes",
    # value = "tab-notes",
    djpr_h2_box("Notes"),
    br(),
    shiny::includeMarkdown(system.file("methodology.md", package = "djprlabourdash")),
    br(),
    shiny::includeMarkdown(system.file("glossary.md", package = "djprlabourdash")),
    shiny::br(),
    shiny::includeMarkdown(system.file("note.md", package = "djprlabourdash")),
    shiny::br(),
    # centred_row(htmlOutput("methodology_footnote")),
    br()
  )
}