navbar: Add navbar

In JohnCoene/shinybulma: Bulma for Shiny

Add navbar

Description

Add a responsive horizontal navbar.

Usage

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(s)

John Coene, [e-mail]

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

JohnCoene/shinybulma documentation built on Nov. 16, 2022, 6:42 p.m.