Learn R Programming

shinyMobile (version 0.7.0)

f7SubNavbar: Create a Framework7 sub navbar

Description

Create a Framework7 sub navbar

Usage

f7SubNavbar(...)

Arguments

...

Any elements.

Examples

Run this code
# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinyMobile)

 shiny::shinyApp(
  ui = f7Page(
     title = "Sub Navbar",
     f7TabLayout(
        panels = tagList(
         f7Panel(title = "Left Panel", side = "left", theme = "light", "Blabla", style = "cover"),
         f7Panel(title = "Right Panel", side = "right", theme = "dark", "Blabla", style = "cover")
        ),
        navbar = f7Navbar(
           title = "SubNavbar",
           hairline = FALSE,
           shadow = TRUE,
           left_panel = TRUE,
           right_panel = TRUE,
           subNavbar = f7SubNavbar(
              f7Button(label = "My button", outline = TRUE),
              f7Button(label = "My button", outline = TRUE),
              f7Button(label = "My button", outline = TRUE)
           )
        ),
        f7Tabs(
           animated = TRUE,
           #swipeable = TRUE,
           f7Tab(
              tabName = "Tab 1",
              icon = f7Icon("email"),
              active = TRUE,
              "Tab 1"
           ),
           f7Tab(
              tabName = "Tab 2",
              icon = f7Icon("today"),
              active = FALSE,
              "Tab 2"
           ),
           f7Tab(
              tabName = "Tab 3",
              icon = f7Icon("cloud_upload"),
              active = FALSE,
              "Tab 3"
           )
        )
     )
  ),
  server = function(input, output) {}
 )
}
# }

Run the code above in your browser using DataLab