-
Notifications
You must be signed in to change notification settings - Fork 26
/
ui.r
61 lines (48 loc) · 1.79 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
library(shinyGridster)
source('dashwidgets.r', local=TRUE)
shinyUI(bootstrapPage(
tags$head(
tags$link(rel = 'stylesheet', type = 'text/css', href = 'styles.css'),
# For JustGage, http://justgage.com/
tags$script(src = 'js/raphael.2.1.0.min.js'),
tags$script(src = 'js/justgage.1.0.1.min.js'),
# For Highcharts, http://www.highcharts.com/
tags$script(src = 'js/highcharts.js'),
# For the Shiny output binding for status text and JustGage
tags$script(src = 'shiny_status_binding.js'),
tags$script(src = 'justgage_binding.js')
),
h1("Shiny + Gridster + JustGage + Highcharts"),
gridster(width = 250, height = 250,
gridsterItem(col = 1, row = 1, sizex = 1, sizey = 1,
sliderInput("rate", "Rate of growth:",
min = -0.25, max = .25, value = .02, step = .01),
sliderInput("volatility", "Volatility:",
min = 0, max = .5, value = .25, step = .01),
sliderInput("delay", "Delay (ms):",
min = 250, max = 5000, value = 3000, step = 250),
tags$p(
tags$br(),
tags$a(href = "https://github.com/wch/shiny-jsdemo", "Source code")
)
),
gridsterItem(col = 2, row = 1, sizex = 2, sizey = 1,
tags$div(id = "live_highchart",
style="min-width: 200px; height: 230px; margin: 0 auto"
)
),
gridsterItem(col = 1, row = 2, sizex = 1, sizey = 1,
justgageOutput("live_gauge", width=250, height=200)
),
gridsterItem(col = 2, row = 2, sizex = 1, sizey = 1,
tags$div(class = 'grid_title', 'Status'),
statusOutput('status')
),
gridsterItem(col = 3, row = 2, sizex = 1, sizey = 1,
plotOutput("plotout", height = 250)
)
),
# Can read Javascript code from a separate file
# This code initializes the dynamic chart
tags$script(src = "initchart.js")
))