R/nhs_navlistPanel.R

In nhsbsa-data-analytics/nhs-low-income-scheme-scrollytell: NHS Low Income Scheme Scrollytell

#' navlistPanel Function
#'
#' @noRd
#'
#' @importFrom shiny tagList
nhs_navlistPanel <- function(...,
                             id = NULL,
                             selected = NULL,
                             header = NULL,
                             footer = NULL,
                             fluid = TRUE,
                             widths = c(4, 8)) {
  # Create navlist panel
  nhs_navlistPanel <- shiny::navlistPanel(
    ...,
    id = id,
    selected = selected,
    header = header,
    footer = footer,
    fluid = fluid,
    widths = widths
  )

  # Hack the CSS to look like an NHS list
  nhs_navlistPanel$children[[1]]$children[[1]]$attribs$class <-
    "nhsuk-list app-side-nav__list"

  tagList(
    nhs_navlistPanel
  )
}