# NOT RUN {
### Navbar with tabs
div(
navbar(
brand = "Navbar",
navInput(
id = "tabs",
choices = c("Home", "About", "Our process")
) %>%
margin(right = "auto"),
formInput(
inline = TRUE,
id = "navForm",
textInput(
type = "search",
id = "site_search",
placeholder = "Search"
) %>%
margin(right = c(sm = 2)),
formSubmit(
label = "Search",
value = "search"
) %>%
background("amber")
)
) %>%
background("teal"),
container(
navContent(
navPane(
h3("Home")
),
navPane(
h3("About")
),
navPane(
h3("The process")
)
)
)
)
# }
Run the code above in your browser using DataLab