bulmaNavbar | R Documentation |
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, ...)
... |
any element. |
container |
If |
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 |
John Coene, jcoenep@gmail.com
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))
})
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.