-
Notifications
You must be signed in to change notification settings - Fork 0
/
header.R
30 lines (19 loc) · 809 Bytes
/
header.R
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
header <- dashboardHeaderPlus(
# Add a title -------------------------------------------------------------
title = span(tagList(icon("building"), "Eduardo Company")),
# Add a Dynamic Notifications ---------------------------------------------
dropdownMenuOutput(outputId = "notificationMenu"),
# Enable the right bar with an icon ---------------------------------------
enable_rightsidebar = TRUE,
rightSidebarIcon = "align-justify",
# add the home menu ------------------------------------------------------
left_menu = tagList(
dropdownBlock(
id = "dropdownplus",
icon = "home",
radioButtons(
inputId = "basemenu",
label = "Menu",
choices = c("Home", "Personal Information", "Additional Information"))
))
)