add collapsible sidebar which is capable of showing only icons

Addresses: rstudio#74

R/dashboardHeader.R

@@ -158,8 +158,8 @@ dashboardHeader <- function(..., title = NULL, titleWidth = NULL, disable = FALS
 #' @export
 dropdownMenu <- function(...,
   type = c("messages", "notifications", "tasks"),
-  badgeStatus = "primary", icon = NULL, .list = NULL)
-{
+  badgeStatus = "primary", icon = NULL, .list = NULL) {
+
   type <- match.arg(type)
   if (!is.null(badgeStatus)) validateStatus(badgeStatus)
   items <- c(list(...), .list)
@@ -220,8 +220,8 @@ dropdownMenu <- function(...,
 #' @seealso \code{\link{dashboardHeader}} for example usage.
 #' @export
 messageItem <- function(from, message, icon = shiny::icon("user"), time = NULL,
-  href = NULL)
-{
+  href = NULL) {
+
   tagAssert(icon, type = "i")
   if (is.null(href)) href <- "#"
 
@@ -250,8 +250,8 @@ messageItem <- function(from, message, icon = shiny::icon("user"), time = NULL,
 #' @seealso \code{\link{dashboardHeader}} for example usage.
 #' @export
 notificationItem <- function(text, icon = shiny::icon("warning"),
-  status = "success", href = NULL)
-{
+  status = "success", href = NULL) {
+
   tagAssert(icon, type = "i")
   validateStatus(status)
   if (is.null(href)) href <- "#"

R/dashboardPage.R

@@ -9,6 +9,9 @@
 #'   provided, it will try to extract the title from the \code{dashboardHeader}.
 #' @param skin A color theme. One of \code{"blue"}, \code{"black"},
 #'   \code{"purple"}, \code{"green"}, \code{"red"}, or \code{"yellow"}.
+#' @param sideBarMini TRUE or FALSE (default). False collapses sidebar completly
+#'  while TRUE will show collapsed sidebar with icon(s). Title will, however,
+#'  not become responsive.
 #'
 #' @seealso \code{\link{dashboardHeader}}, \code{\link{dashboardSidebar}},
 #'   \code{\link{dashboardBody}}.
@@ -29,7 +32,7 @@
 #' }
 #' @export
 dashboardPage <- function(header, sidebar, body, title = NULL,
-  skin = c("blue", "black", "purple", "green", "red", "yellow")) {
+  skin = c("blue", "black", "purple", "green", "red", "yellow"), sideBarMini = FALSE) {
 
   tagAssert(header, type = "header", class = "main-header")
   tagAssert(sidebar, type = "aside", class = "main-sidebar")
@@ -41,8 +44,8 @@ dashboardPage <- function(header, sidebar, body, title = NULL,
     if (x$name == "span" &&
         !is.null(x$attribs$class) &&
         x$attribs$class == "logo" &&
-        length(x$children) != 0)
-    {
+        length(x$children) != 0) {
+
       x$children[[1]]
     } else {
       ""
@@ -57,8 +60,13 @@ dashboardPage <- function(header, sidebar, body, title = NULL,
     body
   )
 
+  sideBar <- NULL
+  if (sideBarMini == TRUE) {
+    sideBar <- " sidebar-mini"
+  }
+
   addDeps(
-    tags$body(class = paste0("skin-", skin), style = "min-height: 611px;",
+    tags$body(class = paste0("skin-", skin, sideBar), style = "min-height: 611px;",
       shiny::bootstrapPage(content, title = title)
     )
   )

R/dashboardSidebar.R

@@ -117,7 +117,7 @@ dashboardSidebar <- function(..., disable = FALSE, width = NULL) {
     custom_css,
     tags$section(
       class = "sidebar",
-      `data-disable` = if(disable) 1 else NULL,
+      `data-disable` = if(disable) TRUE else NULL,
       list(...)
     )
   )
@@ -320,8 +320,7 @@ menuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeColor = "gr
 #' @rdname sidebarMenu
 #' @export
 menuSubItem <- function(text, tabName = NULL, href = NULL, newtab = TRUE,
-  icon = shiny::icon("angle-double-right"), selected = NULL)
-{
+  icon = shiny::icon("angle-double-right"), selected = NULL) {
 
   if (!is.null(href) && !is.null(tabName)) {
     stop("Can't specify both href and tabName")

inst/shinydashboard.css

@@ -58,7 +58,7 @@ a > .info-box {
   color: #333;
 }
 
-/* Disable bouncy transition for sidebar toggle. */
+/* Disable bouncy transition for sidebar toggle.
 .content-wrapper,
 .right-side,
 .main-footer {
@@ -74,7 +74,7 @@ a > .info-box {
   -o-transition: all 0 none;
   transition: none;
 }
-
+*/
 
 /*  Shiny Server Pro logout panel needs to be raised above menu bar */
 .shiny-server-account {