github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Restore bookmarked tabs. Fixes #1282 (#1296)

Browse Source
This commit is contained in:
Winston Chang
2016-08-12 20:53:44 -05:00
committed by Joe Cheng
parent 16f7eb43b0
commit 7bb939ab7f
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/bootstrap.R
View File

@@ -337,6 +337,7 @@ navbarPage <- function(title,
# build the tabset
tabs <- list(...)
selected <- restoreInput(id = id, default = selected)
tabset <- buildTabset(tabs, "nav navbar-nav", NULL, id, selected)
# built the container div dynamically to support optional collapsibility
@@ -633,6 +634,7 @@ tabsetPanel <- function(...,
# build the tabset
tabs <- list(...)
type <- match.arg(type)
selected <- restoreInput(id = id, default = selected)
tabset <- buildTabset(tabs, paste0("nav nav-", type), NULL, id, selected)
# create the content
@@ -697,6 +699,7 @@ navlistPanel <- function(...,
# build the tabset
tabs <- list(...)
selected <- restoreInput(id = id, default = selected)
tabset <- buildTabset(tabs,
"nav nav-pills nav-stacked",
textFilter,