shinyMobile (version 0.1.0)

updateF7Tabs: Update a Framework 7 tabsetPanel

Description

Update f7Tabs.

Usage

updateF7Tabs(session, id, selected = NULL)

Arguments

session

Shiny session object.

id

Id of the f7Tabs to update.

selected

Newly selected tab.

Examples

# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinyMobile)
 shiny::shinyApp(
   ui = f7Page(
     title = "Tab Layout",
     f7TabLayout(
       navbar = f7Navbar(
        title = HTML(paste("Currently selected:", textOutput("selected"))),
        subNavbar = f7SubNavbar(
         f7Flex(
          f7Toggle(inputId = "updateTab", label = "Update Tab", checked = TRUE),
          f7Toggle(inputId = "updateSubTab", label = "Update SubTab", checked = FALSE)
         )
        )
       ),
       f7Tabs(
         id = "tabdemo",
         swipeable = TRUE,
         animated = FALSE,
         f7Tab(
          tabName = "Tab 1",
          f7Tabs(
           id = "subtabdemo",
           animated = TRUE,
           f7Tab(tabName = "SubTab 1", "SubTab 1"),
           f7Tab(tabName = "SubTab 2", "SubTab 2", active = TRUE),
           f7Tab(tabName = "SubTab 3", "SubTab 3")
          )
         ),
         f7Tab(tabName = "Tab 2", "Tab 2"),
         f7Tab(tabName = "Tab 3", "Tab 3")
       )
     )
   ),
   server = function(input, output, session) {
     observeEvent(input$updateTab, {
       selected <- ifelse(input$updateTab, "Tab 1", "Tab 2")
       updateF7Tabs(session, id = "tabdemo", selected = selected)
     })
     observeEvent(input$updateSubTab, {
       selected <- ifelse(input$updateSubTab, "SubTab 1", "SubTab 2")
       updateF7Tabs(session, id = "subtabdemo", selected = selected)
     })
   }
 )
}
# }