forked from miningchi/Redlight
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
85 lines (66 loc) · 3.65 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
suppressMessages(library(shiny))
suppressMessages(library(rCharts))
suppressMessages(library(doSNOW))
suppressMessages(library(foreach))
load(file = "./data/redlight2.rda")
googleAnalytics <- function(account="UA-53239073-2"){
HTML(paste("<script type=\"text/javascript\">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', '",account,"']);
_gaq.push(['_setDomainName', 'miningchi2.shinyapps.io']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
</script>", sep=""))
}
shinyUI(pageWithSidebar(
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Application title
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
headerPanel("Accident Analysis for Chicago"),
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Sidebar Panel
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sidebarPanel(
wellPanel(
helpText(HTML("<b>READY?</b>")),
HTML("Click this to refresh with new data."),
submitButton("Update Graphs and Tables")
),
wellPanel(
helpText(HTML("<b>Enter an Address or Select a Red Light Camera Intersection</b>")),
textInput('Address', "Examples: Halsted-119, Chicago, IL or 679 N. Michigan, Chicago, IL", value = NULL),
numericInput('Buffer',"Width of Buffer in Feet", value = 100, min=1, max=300),
selectInput('Intersection', 'Red Light Camera', df1$INTERSECTION, selected = "Halsted-119th",selectize=TRUE),
dateInput("startdate", "Start Date:", value = "2009-01-01", format = "mm-dd-yyyy",
min = "2009-01-01", max = "2012-12-30"),
dateInput("enddate", "End Date:", value = "2012-12-31", format = "mm-dd-yyyy",
min = "2009-01-02", max = "2012-12-31"),
##Need some validation that enddate is after start date
helpText("MM-DD-YEAR as date format"),
helpText("Ensure your period to analyze is less than the data range. For periods shorter than 24 months, choose a monthly, weekly, or daily count.")
)
),
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## Main Panel
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#just need to find the right HTML formatting
mainPanel(
tabsetPanel(
tabPanel("Analysis", div(class="span4",uiOutput("accperiod")), showOutput("accidents","highcharts"),uiOutput("space"),
showOutput("ticketchart","highcharts"),uiOutput("heading"),
textOutput("totaltickets"),textOutput("totalaccidents"), textOutput("totalkilled"), textOutput("totalinjured"),
uiOutput("heading1"), dataTableOutput("totalcolltype"),uiOutput("heading2"), dataTableOutput("totalcolltype2") ),
tabPanel("Map", showOutput("map","leaflet"), textOutput("mapinfo"),textOutput("totaltickets2"), textOutput("totalaccidents2")),
tabPanel("FAQ", includeMarkdown("docs/introduction.md")),
tabPanel("Accident Data", dataTableOutput("datatable")),
tabPanel("Ticket Data", dataTableOutput("datatickettable")),
tabPanel("RLC Data", dataTableOutput("dataRLC"))
),
googleAnalytics()
)
)
)