Shiny Dashboard Collapsible Sidebar

helpers.R

# UI ------------------------------------------------------------

#' import shiny
#' import shinyjs
collapsible_sidebar_ui <- function(width = 230){
  tagList(
    inlineCSS(paste0(".main-header > .navbar {margin-left: ", width, "px !important}")),
    inlineCSS(paste0(".main-header .logo {width: ", width, "px !important}"))
  )
}


# Server --------------------------------------------------------

collapsible_sidebar <- function(id = "sidebar_collapsed") {

  # Custom CSS styles -------------------------------------------------------
  # Sidebar collapsed by default
  addClass(selector = "body", class = "sidebar-collapse")
  # Sidebar shows icons even when collapsed  
  addClass(selector = "body", class = "sidebar-mini")
  
  # JavaScript events -------------------------------------------------------
  # Sidebar expands to default width on mouse hover
  onevent(event = "mouseenter", id = id, expr = removeClass(selector = "body", class = "sidebar-collapse"))
  # Sidebar contracts after mouse hover stops
  onevent(event = "mouseleave", id = id, expr = addClass(selector = "body", class = "sidebar-collapse"))
}

insert_in_server.R

 # Server ------------------------------------------------------------------
server <- function(input, output, session) {
  ...
  # Customisation -----------------------------------------------------------
  collapsible_sidebar(id = "sidebar_collapsed")
  ...
}

insert_in_ui.R

  # Sidebar -----------------------------------------------------------------
  sidebar = dashboardSidebar(
  
    sidebarMenu(
     
      id = "sidebar", 

      # Allowing the shinyjs package to be used
      useShinyjs(),

      # Allowing for collapsible sidebar with fixed width logo
      collapsible_sidebar_ui(width = 230),
      
      # .....