-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
38 lines (37 loc) · 1.13 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
# ui ----
ui <- fluidPage(
titlePanel("Student Time Analysis"),
sidebarLayout(
sidebarPanel(
selectInput("term_filter",
"Semester Term:",
choices = c("Term 1" = "1", "Term 2" = "2"),
selected = "Term 1"),
selectInput("day_filter",
"Day of Week:",
choices = c(
"All", "Mon", "Tues", "Wed",
"Thurs", "Fri", "Sat", "Sun"
),
selected = "All"),
uiOutput("student_id_ui"),
uiOutput("class_ui"),
uiOutput("major_ui"),
uiOutput("conc_ui"),
uiOutput("dept_ui"),
selectInput("max_gap_filter",
"Max Gap Between Classes (min):",
choices = c(10, 30, 60, 120, 180, 300, 600),
selected = 600),
selectInput("increment_filter",
"Time Increment (min):",
choices = c(10, 20, 30, 60),
selected = 20),
width = 3
),
mainPanel(
plotlyOutput("heatmap_plot", width = "100%", height = "800px"),
width = 9
)
)
)