-
Notifications
You must be signed in to change notification settings - Fork 1
/
ui.R
100 lines (99 loc) · 4.46 KB
/
ui.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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
library(tidyverse)
library(plotly)
library(highcharter)
library(lubridate)
library(xts)
library(DT)
library(anomalize)
library(tibbletime)
library(shiny)
library(bs4Dash)
library(shinycssloaders)
library(waiter)
dashboardPage(
preloader = list(html = tagList(spin_1(), "Loading ..."), color = "#18191A"),
fullscreen = TRUE,
dashboardHeader(title = dashboardBrand(
title = "Bid Procurement",
color = "danger",
image = "logo.jpg"
),
titleWidth = 500), # end of header
dashboardSidebar(
skin = "light",
status = "danger",
sidebarUserPanel(
name = "Analysis",
image = "data_analysis.jpeg"
),
sidebarMenu(
menuItem("Data Analysis", tabName = "da", icon = icon("chart-line"))),
sidebarUserPanel(
name = "Modelling",
image = "anomaly_detection.png"
),
sidebarMenu(id = "sidebar",
menuItem("Anomaly Detection", tabName = "ad", icon = icon("database")))
), # end of Sidebar
dashboardBody(
tabItems(
tabItem("da",
fluidPage(
fluidRow(
valueBoxOutput('min_bp', width = 4),
valueBoxOutput("max_bp", width = 4),
valueBoxOutput("mean_bp", width = 4)
),
fluidRow(
column(5,
box(title = "Distribution of Bid Price",
solidHeader = TRUE, width = 12,status = "gray-dark",
maximizable = TRUE, withSpinner(plotlyOutput("fig1", height = 300)))),
column(7,
box(title = "Most Frequent Bids", solidHeader = TRUE, width = 12,status = "gray-dark",
collapsed = FALSE,
maximizable = TRUE, withSpinner(DTOutput("table1"))))),
fluidRow(
box(title = "Average Bid Price Overtime", width = 12, status = "gray-dark",
solidHeader = TRUE, maximizable = TRUE,
highchartOutput("fig2"))),
fluidRow(
tabBox(width = 12, solidHeader = TRUE, maximizable = TRUE,
status = "white",
tabPanel("Top and Bottom Bid Price For Bid Indicators",
uiOutput("bid_indicator_select"),
fluidRow(column(6,
box(highchartOutput("fig_top5_bp"), title = "Top 5",
collapsible = TRUE, status = "gray-dark",
collapsed = TRUE, solidHeader = TRUE, width = 12)),
column(6,
box(highchartOutput("fig_bottom5_bp"), title = "Bottom 5" ,
collapsible = TRUE, status = "gray-dark",
collapsed = TRUE, solidHeader = TRUE, width = 12)))),
tabPanel("Bid Data Table", icon = icon("table"),
br(),
withSpinner(DTOutput("table2"))))
),
fluidRow(
box(title = "Contact Name Average Bid Price Overtime", width = 12, status = "gray-dark",
solidHeader = TRUE, maximizable = TRUE,
uiOutput("cn_select"),
highchartOutput("fig3")))
) # end of fluid page
), # end of data analysis tab
tabItem("ad",
fluidPage(
fluidRow(box(title = "Anomalies in Bids",
solidHeader = TRUE, width = 12,status = "gray-dark",
maximizable = TRUE, withSpinner(plotlyOutput("fig4")))),
fluidRow(box(title = "Breakdown of Anomalies in Bids",
solidHeader = TRUE, width = 12,status = "gray-dark",
maximizable = TRUE, withSpinner(plotlyOutput("fig5")))),
fluidRow(box(title = "Bid Procurements with Anomalies",
solidHeader = TRUE, width = 12,status = "gray-dark",
maximizable = TRUE, withSpinner(DTOutput("table3"))))
) # end of fluid page
) # end of anomaly detection tab
) # end of tab items
) # end of body
) # end of page