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))
    })
  }
)
}