R/dashboard_sidebar.R

In KoderKow/wordle: Worlde Helper

dashboard_sidebar <- function() {
  bs4Dash::dashboardSidebar(
    skin = "light",
    inputId = "sidebarState",
    # collapsed = TRUE,
    # disable = TRUE,
    elevation = 1,
    bs4Dash::sidebarMenu(
      id = "sidebar",
      bs4Dash::menuItem(
        tabName = "tab_1",
        text = paste0("Wordle Helper v", pkgload::pkg_version()),
        icon = icon("file-word")
      ),
      tags$br(),
      tags$a(
        href = "https://github.com/KoderKow/wordle",
        target = "_blank",
        icon("github", "fa-2x")
      )
    )
  )
}