# NOT RUN {
### Styling a navbar
div(
navbar(brand = "Navbar") %>%
background("cyan") %>%
shadow("small") %>%
margin(bottom = 3),
p(
"Cras mattis consectetur purus sit amet fermentum. Donec sed ",
"odio dui. Lorem ipsum dolor sit amet, consectetur adipiscing ",
"elit. Aenean eu leo quam. Pellentesque ornare sem lacinia quam ",
"venenatis vestibulum."
)
)
### Different shadows
div(
lapply(
c("small", "regular", "large"),
shadow,
tag = div() %>%
padding(5) %>%
margin(2)
)
) %>%
display("flex")
# }
Run the code above in your browser using DataLab