examples/minimal/app_no_sidebar.R

library(shiny)
library(semantic.dashboard)

ui <- dashboardPage(
  dashboardHeader(color = "blue"),
  dashboardSidebar(),
  dashboardBody(tabItems(
    tabItem(tabName = "tab1", p("Tab 1")),
    tabItem(tabName = "tab2", p("Tab 2"))))
)

server <- function(input, output) {
}

shinyApp(ui, server)
Appsilon/semantic.dashboard documentation built on April 21, 2024, 2:42 p.m.