Description Usage Arguments Value Functions Examples
View source: R/semantic_dashboard.R
Create a page with menu item sidebar and body containing tabs and other additional elements.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23  | dashboard_page(
  header,
  sidebar,
  body,
  title = "",
  suppress_bootstrap = TRUE,
  theme = NULL,
  margin = TRUE,
  class = "",
  sidebar_and_body_container_class = ""
)
dashboardPage(
  header,
  sidebar,
  body,
  title = "",
  suppress_bootstrap = TRUE,
  theme = NULL,
  margin = TRUE,
  class = "",
  sidebar_and_body_container_class = ""
)
 | 
header | 
 Header of a dashboard.  | 
sidebar | 
 Sidebar of a dashboard.  | 
body | 
 Body of a dashboard.  | 
title | 
 Title of a dashboard.  | 
suppress_bootstrap | 
 There are some conflicts in CSS styles between
FomanticUI and Bootstrap. For the time being it's better to suppress Bootstrap.
If   | 
theme | 
 Theme name or path. For possible options see   | 
margin | 
 If   | 
class | 
 CSS class to be applied to the page container (  | 
sidebar_and_body_container_class | 
 CSS class to be applied to the   | 
Dashboard.
dashboardPage: Create a dashboard (alias for dashboard_page for compatibility with shinydashboard)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21  | if(interactive()){
  library(shiny)
  library(semantic.dashboard)
  ui <- dashboardPage(
    dashboardHeader(color = "blue"),
    dashboardSidebar(side = "left", size = "thin", color = "teal",
                     sidebarMenu(
                       menuItem(tabName = "tab1", "Tab 1"),
                       menuItem(tabName = "tab2", "Tab 2"))),
    dashboardBody(tabItems(
      tabItem(tabName = "tab1", p("Tab 1")),
      tabItem(tabName = "tab2", p("Tab 2"))))
  )
  server <- function(input, output) {
  }
  shinyApp(ui, server)
}
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.