-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
81 lines (57 loc) · 2.58 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
##Copy 12/21/2016 2:07 PM
# This script is for direction # This is updated on 08/13/2016
#You need to load the shiny library to run the app
library(shiny)
library(leaflet)
# this is for converting data frame into data table, idk but it works
require(data.table)
transferData <- read.csv("testData.csv")
#here you write your User Interface for your app. Note that some of the fields are decided by uioutput
ui <- fluidPage(
# Setup the page title
pageWithSidebar(
#Name of the header panel
headerPanel('Public Transit Transfer Reliability Analysis Tool', windowTitle = "Transfer Reliability"),
# These options (dropdown menus) will come in the sidebar.
sidebarPanel(
selectInput('date', 'Available dates', choices= c("2017-02-06")),
radioButtons('ptime','Select time', c('All day', 'AM peak', 'AM non-peak', 'PM peak', 'PM non-peak')),
radioButtons('method','Select analysis method', c('System-level', 'Route-level')),
conditionalPanel(
condition = "input.method == 'System-level'",
radioButtons('routes','Select type', c('All routes', 'Two routes only')),
conditionalPanel(
condition = "input.routes == 'Two routes only'",
selectInput('routeFrom', 'Select route from', choices= unique(transferData$routeFrom), selected = 19),
uiOutput("fromDir"),
selectInput('routeTo', 'Select route to', choices= unique(transferData$route_short_id), selected = 5),
uiOutput("toDir"),
uiOutput("hmap")
)
),
conditionalPanel(
condition = "input.method == 'Route-level'",
selectInput('route', 'Select route #', choices= unique(transferData$route_short_id)),
uiOutput("dir"),
uiOutput("heats")
)
#selectInput('stopFrom', 'Select the Transfer Stop From', choices= unique(transferData$stopFromName)),
#selectInput('route', 'Select the Transfer Stop To', choices= unique(transferData$stop_name)),
# This function is reactive based on selection of database or route choice by the user.
),
mainPanel(
splitLayout(
#This is important for plotting frame
plotOutput('piePlot'),
plotOutput('distPlot1'),
plotOutput('distPlot2')
),
splitLayout(
#This is important for plotting frame
plotOutput('MAP1'),
plotOutput('MAP2')
),
tableOutput("table")
)
)
)