-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.r
70 lines (62 loc) · 2.31 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
shinyUI(fluidPage(
shinyjs::useShinyjs(),
div(headerPanel("CTD Data Validation"), class = "header"),
fluidRow(
column(6,
fileInput('file1', 'Choose .CNV File of Raw CTD Data',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv',
'.cnv'))
),
column(6,
p(),
actionButton("exportData", "Export Data")
)
),
hr(),
# setting up tabs and their contents, 'Overview' is actually a blank tab
uiOutput('mytabs'),
bsModal(id = "exportWindow", title = "Ready to Save Data File", trigger = "exportData", size = "large",
h1("hello"),
downloadButton("downloadData", "Save Data"),
div(
tabsetPanel(id = "exportTabs",
tabPanel("Binned Values",
DT::dataTableOutput("binnedDataTable")
),
tabPanel("Kept Values",
dataTableOutput("keptDataTable")
),
tabPanel("Discarded Values",
dataTableOutput("excludedDataTable")
)
)
)
),
# ----- Javascripts -----
tags$script(
'$(document).on("keypress",
function (e) {
if(e.which == 0){
e.preventDefault();
}
});
$(document).on("keydown",
function (e) {
if(e.which == 0){
e.preventDefault();
}
Shiny.onInputChange("keyPressed", e.which);
console.log("KeyDown")
});
$(document).on("keyup",
function (e) {
if(e.which == 0){
e.preventDefault();
}
Shiny.onInputChange("keyPressed", null);
console.log("KeyUp")
});'
)
))