handle NULL value for dataExpanded state of sidebarMenu

bborgesr · bborgesr · commit 5505a99f5e12 · 2017-03-06T19:09:29.000Z
diff --git a/R/dashboardSidebar.R b/R/dashboardSidebar.R
@@ -402,7 +402,7 @@ menuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeColor = "gr
     )
   }
 
-  dataExpanded <- restoreInput(id = "itemExpanded", default = "")
+  dataExpanded <- restoreInput(id = "itemExpanded", default = "") %OR% "" # prevent this from being NULL
   cls <- if (dataExpanded == paste0("shiny-tab-", tabName)) " menu-open" else ""
   display <- if (cls != "") "block" else "none"
 

Original file line number	Diff line number	Diff line change
`@@ -402,7 +402,7 @@ menuItem <- function(text, ..., icon = NULL, badgeLabel = NULL, badgeColor = "gr`
`402`	`402`	`)`
`403`	`403`	`}`
`404`	`404`
`405`		`- dataExpanded <- restoreInput(id = "itemExpanded", default = "")`
	`405`	`+ dataExpanded <- restoreInput(id = "itemExpanded", default = "") %OR% "" # prevent this from being NULL`
`406`	`406`	`cls <- if (dataExpanded == paste0("shiny-tab-", tabName)) " menu-open" else ""`
`407`	`407`	`display <- if (cls != "") "block" else "none"`
`408`	`408`