Description Usage Arguments Examples
Create the header of the dashboard
1 2 |
... |
Elements to in the dashboard header. |
title |
The title to display in the header bar. |
miniTitle |
The title to display in the header bar when the sidebar is collapsed. |
titleWidth |
The width of the title in pixels. |
.list |
An optional list containing elements to put in the header. These
are the identical to the |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | library(htmltools)
myMenu <- fdDropdownMenu(type = "messages",
fdMessage(
from = "Sales Dept",
message = "Sales are steady this month."
),
fdMessage(
from = "New User",
message = "How do I register?",
icon = fdIcon("question"),
time = "13:45"
),
fdMessage(
from = "Support",
message = "The new server is ready.",
icon = fdIcon("life-ring"),
time = "2014-12-01"
)
)
myNotifications <- fdDropdownMenu(type = "notifications",
fdNotification(
text = "5 new users today",
icon = fdIcon("users")
),
fdNotification(
text = "12 items delivered",
icon = fdIcon("truck"),
status = "success"
),
fdNotification(
text = "Server load at 86%",
icon = fdIcon("exclamation-triangle"),
status = "warning"
)
)
myHeader <- tagList(myMenu, myNotifications)
if (interactive()){
fdBoard(
fdHeader(title = 'Header Menu', myHeader),
fdSidebar(),
fdBody()
)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.