-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
84 lines (75 loc) · 3.94 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
shinyUI(
navbarPage(
title="corrplot",
theme=shinytheme("journal"),
windowTitle="make corrplot in R with shiny",
tabPanel(
"corrplot",
sidebarPanel(
fileInput("uploadCorrplotData", h4("Upload input data",
bsButton("bsq0", label="", icon=icon("question"), style="info", size="small")
),multiple = FALSE),
bsPopover("bsq0", "The first row and the first column of the uploaded file must have corresponding row and column names.", trigger = "focus"),
radioButtons("var5",
h4("Is it a correlation matrix?",
bsButton("bsq5", label="", icon=icon("question"), style="info", size="small")),
choices = list("YES" = "T", "NO" = "F"), selected = "T"),
bsPopover("bsq5", "If not, select No.",
trigger = "focus"),
selectInput("var1",
h4("choose a visualization method to display",
bsButton("bsq1", label="", icon=icon("question"), style="info", size="small")),
choices = c("circle",
"square",
"ellipse",
"number",
"shade",
"color",
"pie")),
bsPopover("bsq1", "There are seven visualization methods (parameter method) in the corolot package.",
trigger = "focus"),
selectInput("var2",
h4("choose a Layout to display",
bsButton("bsq2", label="", icon=icon("question"), style="info", size="small")),
choices = c("full",
"upper",
"lower")),
bsPopover("bsq2", "There are three layout types (parameter types): full(default): display the full correlation matrix, upper: display the upper triangle of the correlation matrix, lower: display the lower triangle of the correlation matrix",
trigger = "focus"),
conditionalPanel(condition = "input.var5 == 'T'",
selectInput("var3",
h4("choose a method to reorder",
bsButton("bsq3", label="", icon=icon("question"), style="info", size="small")),
choices = c("original", "AOE", "FPC", "hclust", "alphabet"))
),
bsPopover("bsq3", "There are 5 methods in the corolot (parameter order).",
trigger = "focus"),
conditionalPanel(condition = "input.var5 == 'F'",
selectInput("var6",
h4("choose a method to reorder",
bsButton("bsq33", label="", icon=icon("question"), style="info", size="small")),
choices = c("original", "FPC", "hclust"))
),
bsPopover("bsq33", "There are 3 methods in the corolot (parameter order).",
trigger = "focus"),
selectInput("var4",
h4("choose color",
bsButton("bsq4", label="", icon=icon("question"), style="info", size="small")),
choices = c("Spectral", "RdYlGn", "RdYlBu", "RdGy", "RdBu", "PuOr", "PRGn", "PiYG", "BrBG")),
bsPopover("bsq4", "Choose the color you want.",
trigger = "focus"),
numericInput("num",("addrect"),value = 1,min=1,max=15,step=1),
bsPopover("num", "Only from 1 to 15 can be selected.",
trigger = "focus"),
actionButton("submit1", strong("Go!"))
),
mainPanel(
downloadButton("downloadcorrplot.pdf","Download pdf-file"),
downloadButton("downloadcorrplot.svg","Download svg-file"),
plotOutput("corrplot")
)
),
tabPanel("Help",includeMarkdown("README.md")),
tabPanel("About",includeMarkdown("About.md"))
)
)