shinyMobile (version 0.7.0)

f7RemoveTab: Remove a f7Tab in a f7Tabs

Description

Remove a f7Tab in a f7Tabs

Usage

f7RemoveTab(inputId, target, session = shiny::getDefaultReactiveDomain())

Arguments

inputId

f7Tabs id.

target

f7Tab to remove.

session

Shiny session object.

Examples

# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinyMobile)

 ui <- f7Page(
  title = "Remove a tab",
  f7TabLayout(
   panels = tagList(
     f7Panel(title = "Left Panel", side = "left", theme = "light", "Blabla", effect = "cover"),
     f7Panel(title = "Right Panel", side = "right", theme = "dark", "Blabla", effect = "cover")
   ),
   navbar = f7Navbar(
     title = "Tabs",
     hairline = FALSE,
     shadow = TRUE,
     left_panel = TRUE,
     right_panel = TRUE
   ),
   f7Tabs(
     id = "tabset1",
     f7Tab(
       tabName = "Tab 1",
       active = TRUE,
       p("Text 1"),
       f7Button("remove1","Remove tab 1")
     ),
     f7Tab(
       tabName = "Tab 2",
       active = FALSE,
       p("Text 2")
     ),
     f7Tab(
       tabName = "Tab 3",
       active = FALSE,
       p("Text 3")
     )
   )
  )
 )

 server <- function(input, output, session) {
   observe(print(input$tabset1))
   observeEvent(input$remove1, {
     f7RemoveTab(
       inputId = "tabset1",
       target = "Tab 1"
     )
   })
 }
 shinyApp(ui, server)
}
# }