ui <- page(
title = "Combo Dashboard",
layout = "combo",
navbar = list(
top = topbar(title = "My App"),
side = sidebar_menu(
menu_item("Dogs", icon = "dog"),
menu_item("Cats", icon = "cat")
)
),
body = body("Welcome to Tabler!")
)
server <- function(input, output, session) {}
# shinyApp(ui, server)
Run the code above in your browser using DataLab