Add navbar

Add a responsive horizontal navbar.

bulmaNavbar(
  ...,
  container = TRUE,
  transparent = FALSE,
  color = NULL,
  fix.top = FALSE,
  fix.bottom = FALSE
)

bulmaNavbarStart(...)

bulmaNavbarEnd(...)

bulmaNavbarBrand(...)

bulmaNavbarMenu(...)

bulmaNavbarItem(label, href = NULL)

bulmaNavbarLink(label, href = "")

bulmaNavbarBurger(color = "primary")

bulmaNavbarDropdown(..., label, href = "")

bulmaNav(target, ...)

Arguments

...

any element.

container

If TRUE wraps a bulmaContainer as a children of the section.

transparent

set to have transparent.

color

navbar color.

fix.top, fix.bottom

set one to have navbar fixed at top or bottom of page.

label

item label.

href, target

id of bulmaNav linked, href and target must be identical.

Author

John Coene, jcoenep@gmail.com

Examples

if(interactive()){
library(shiny)
shinyApp(
  ui = bulmaPage(
   bulmaNavbar(
     color = "primary",
     bulmaNavbarBrand(
       bulmaNavbarItem(
         "shinybulma",
         href = "Item 1"
       ),
       bulmaNavbarBurger()
     ),
     bulmaNavbarMenu( # not visible on smaller devices
       bulmaNavbarItem(
         "Item 1"
       ),
       bulmaNavbarItem(
         "Item 2"
       ),
       bulmaNavbarItem(
         "Item 3"
       )
    )
   ),
   bulmaNav(
     "Item 1",
     bulmaContainer(
       bulmaTitle("Item 1"),
       bulmaTabs(
       tabs = c("Tab 1", "Tab 2", "Tab 3"),
       center = TRUE,
         bulmaTab(
           "Tab 1",
           bulmaTitle("Tab 1")
         ),
         bulmaTab(
           "Tab 2",
           bulmaTitle("Tab 2"),
           plotOutput("hist")
         ),
         bulmaTab(
           "Tab 3",
           bulmaTitle("Tab 3")
         )
       )
     )
   ),
   bulmaNav(
     "Item 2",
     bulmaContainer(
       bulmaTitle("Item 2"),
       plotOutput("plot2"),
       bulmaTabs(
       tabs = c("Tab 1", "Tab 2", "Tab 3"),
       center = TRUE,
         bulmaTab(
           "Tab 1",
           bulmaTitle("Tab 1")
         ),
         bulmaTab(
           "Tab 2",
           bulmaTitle("Tab 2"),
           plotOutput("plot")
         ),
         bulmaTab(
           "Tab 3",
           bulmaTitle("Tab 3")
         )
       )
     )
   ),
   bulmaNav(
     "Item 3",
     bulmaContainer(
       bulmaTitle("Item 3")
     )
   )
  ),
  server = function(input, output) {
    output$hist <- renderPlot({
      hist(rnorm(20, 10))
    })
    output$plot <- renderPlot({
      plot(1:20, rnorm(20, 20))
    })
    
    output$plot2 <- renderPlot({
      plot(1:20, rnorm(20, 20))
    })
  }
)
}