Add two aliases of updateTabsetPanel(): updateNavbarPage() and updateNavlistPanel()

https://groups.google.com/d/msg/shiny-discuss/8VctqPqeurw/uAQIBvA1CpAJ

NAMESPACE

@@ -180,6 +180,8 @@ export(updateCheckboxGroupInput)
 export(updateCheckboxInput)
 export(updateDateInput)
 export(updateDateRangeInput)
+export(updateNavbarPage)
+export(updateNavlistPanel)
 export(updateNumericInput)
 export(updateRadioButtons)
 export(updateSelectInput)

NEWS

@@ -16,6 +16,9 @@ shiny 0.12.1.9xxx
 
 * Added `width` option to Shiny's input functions. (#589, #834)
 
+* Added two alias functions of `updateTabsetPanel()` to update the selected tab:
+  `updateNavbarPage()` and `updateNavlistPanel()`. (#881)
+
 shiny 0.12.1
 --------------------------------------------------------------------------------
 

R/bootstrap.R

@@ -174,7 +174,8 @@ pageWithSidebar <- function(headerPanel,
 #'   menu within the navbar that in turns includes additional tabPanels (see
 #'   example below).
 #'
-#' @seealso \code{\link{tabPanel}}, \code{\link{tabsetPanel}}
+#' @seealso \code{\link{tabPanel}}, \code{\link{tabsetPanel}},
+#'   \code{\link{updateNavbarPage}}
 #'
 #' @examples
 #' shinyUI(navbarPage("App Title",
@@ -560,6 +561,7 @@ tabsetPanel <- function(...,
 #'   supported. This is because version 0.11 switched to Bootstrap 3, which
 #'   doesn't support separators.
 #'
+#' @seealso \code{\link{tabPanel}}, \code{\link{updateNavlistPanel}}
 #' @examples
 #' shinyUI(fluidPage(
 #'

R/update-input.R

@@ -185,6 +185,13 @@ updateTabsetPanel <- function(session, inputId, selected = NULL) {
   session$sendInputMessage(inputId, message)
 }
 
+#' @rdname updateTabsetPanel
+#' @export
+updateNavbarPage <- updateTabsetPanel
+
+#' @rdname updateTabsetPanel
+#' @export
+updateNavlistPanel <- updateTabsetPanel
 
 #' Change the value of a number input on the client
 #'

man/navbarPage.Rd

@@ -88,6 +88,7 @@ shinyUI(navbarPage("App Title",
 ))
 }
 \seealso{
-\code{\link{tabPanel}}, \code{\link{tabsetPanel}}
+\code{\link{tabPanel}}, \code{\link{tabsetPanel}},
+  \code{\link{updateNavbarPage}}
 }
 

man/navlistPanel.Rd

@@ -52,4 +52,7 @@ shinyUI(fluidPage(
   )
 ))
 }
+\seealso{
+\code{\link{tabPanel}}, \code{\link{updateNavlistPanel}}
+}
 

man/updateTabsetPanel.Rd

@@ -1,10 +1,16 @@
 % Generated by roxygen2 (4.1.1): do not edit by hand
 % Please edit documentation in R/update-input.R
 \name{updateTabsetPanel}
+\alias{updateNavbarPage}
+\alias{updateNavlistPanel}
 \alias{updateTabsetPanel}
 \title{Change the selected tab on the client}
 \usage{
 updateTabsetPanel(session, inputId, selected = NULL)
+
+updateNavbarPage(session, inputId, selected = NULL)
+
+updateNavlistPanel(session, inputId, selected = NULL)
 }
 \arguments{
 \item{session}{The \code{session} object passed to function given to