-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
62 lines (52 loc) · 1.67 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
library(shiny)
library(plyr)
pageWithoutSidebar <- function(headerPanel,mainPanel) {
bootstrapPage(div(class="container-fluid",
div(class="row-fluid",headerPanel),
div(class="row-fluid",mainPanel)))
}
shinyUI(pageWithoutSidebar(
headerPanel("Minireader Data Explorer"),
mainPanel(
tabsetPanel(
# ============== Load Data tab ==================
tabPanel("Load Data",
uiOutput("load.data.file.selector"),
verbatimTextOutput("load.data.summary")
),
# ============== Plate View tab ==================
tabPanel("Plate View",
div(class="container-fluid",
div(class="row-fluid",
div(class="span6",
uiOutput("plate.view.plate.selector")
),
div(class="span6",
radioButtons("plate.view.plot.type","Plot type:",
c("Growth Rates" = "rates",
"Growth Curves" = "curves"))
)
),
div(class="row-fluid",
plotOutput("plate.view.plot")
)
)
),
# ============== Well View tab ==================
tabPanel("Well View",
pageWithSidebar(
headerPanel(""),
div(class="span6",
uiOutput("well.view.plate.selector"),
uiOutput("well.view.well.grids")
),
div(class="span6",
plotOutput("well.view.plot")
)
)
),
# ============== Export Data tab ==================
tabPanel("Export Data")
)
)
))