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.