R/navbar.R

In fdrennan/ndex: What the Package Does (One Line, Title Case)

#' #' ui_navbar
#' #' @export
#' ui_navbar <- function(id = "navbar", navbarId = "navbarNav") {
#'   ns <- NS(id)
#'   id <- ns("navbarNav")
#'   id_hash <- paste0("#", id)
#'   withTags(
#'     nav(
#'       class = "navbar navbar-expand-lg navbar-dark bg-dark py-1",
#'       # a(class = "navbar-brand", href = "/#!/home", i(class = "bi bi-house-door-fill")),
#'       button(
#'         id = ns("collapse"),
#'         class = "navbar-toggler action-button",
#'         type = "button",
#'         `data-bs-toggle` = "collapse",
#'         `data-bs-target` = paste0("#", id),
#'         `aria-controls` = id,
#'         `aria-expanded` = "false",
#'         `aria-label` = "Toggle navigation",
#'         span(class = "navbar-toggler-icon")
#'       ),
#'       div(
#'         class = "collapse navbar-collapse flex-row-reverse",
#'         id = id,
#'         ul(
#'           class = "navbar-nav py-1",
#'           # li(
#'           #   class = "nav-item active m-1",
#'           #   a(class = "nav-link", href = "/#!/shinyace", h4("shinyAce"))
#'           # ),q1
#'           div(
#'             class = "nav-item active",
#'
#'           )
#'         )
#'       )
#'     )
#'   )
#' }

#' #' server_navbar
#' #' @export
#' server_navbar <- function(id = "navbar", navbarId = "navbarNav") {
#'   moduleServer(
#'     id,
#'     function(input, output, session) {
#'       ns <- session$ns
#'       observeEvent(input$collapse, {
#'         print(reactiveValuesToList(input))
#'         id <- paste0("#", ns(navbarId))
#'         toggle(id)
#'       })
#'     }
#'   )
#' }