-
Notifications
You must be signed in to change notification settings - Fork 0
/
app_statistics.R
42 lines (26 loc) · 1.31 KB
/
app_statistics.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
30
31
32
33
34
35
36
37
38
39
40
41
42
library(purrr)
map(c("shiny", "shinydashboard", "dashboardthemes", "shinydashboardPlus", "shinyWidgets", "mixdist",
"jsonlite", "data.table", "dplyr"),
require, character.only = TRUE)
map(c("header.R", "sidebar.R", "body.R", "rightsidebar.R",
"INFORMATION/utils.R"),
source)
# Define the UI -----------------------------------------------------------
ui <- dashboardPagePlus(header = header, sidebar = sidebar,
body = body, rightsidebar = rightsidebar)
# Define server -----------------------------------------------------------
server <- function(input, output) {
# Create a Dynamic notifications for the header
output$notificationMenu <- renderMenu({
ntfcation <- apply(notifications_list(path = "INFORMATION/notifications.json"), 1,
function(row){
notificationItem(text = row[["TEXT"]],
href = row[["HREF"]],
status = row[["STATUS"]],
icon = icon(name = row[["ICON"]]))
})
dropdownMenu(type = "notifications", .list = ntfcation)
})
}
# Run the application -----------------------------------------------------
shinyApp(ui = ui, server = server)