-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
130 lines (103 loc) · 7.64 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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
# Chull ui
ui <- shinyUI(navbarPage(theme = shinythemes::shinytheme("united"),"multichull",
windowTitle = "multichull",
################ load files ###########
tabPanel("", icon = icon("folder-open-o","fa-2x"),
sidebarLayout(
sidebarPanel(
fileInput(inputId = 'loadfile',label = "Select file:",
multiple = FALSE)
),# end sidebarPanel
mainPanel(
fluidRow(
column(4,
tableOutput('fileviewer')
),# end column
column(8,
tableOutput('ui')
)# end column
) # end fluidRow
)# end main panel
)# end sidebar layout
), # end loaddata panel
############### chull options ##########
tabPanel(title = "", icon = icon("gears","fa-2x"),
fluidPage(
titlePanel("Analysis Options"),
mainPanel(
tabsetPanel(
tabPanel("Chull",
radioButtons("bound", label = h4("What does the fit measure indicate?"),
choices = list("Badness-of-fit" = "lower", "Goodness-of-fit" = "upper"
),selected = "lower"),
numericInput("PercentageFit",
label = h4("Required improvement in fit?"),
value = .01,min=0,max=1,step=.01),
br(),
actionButton('stChull',label = "Start CHull",
icon = icon("flash",lib = "glyphicon"))
), #end tabPanel CHull
tabPanel("MultiChull",
radioButtons("boundM", label = h4("What does the fit measure indicate?"),
choices = list("Badness-of-fit" = "lower", "Goodness-of-fit" = "upper"
),selected = "lower"),
numericInput("PercentageFitM",
label = h4("Required improvement in fit?"),
value = .01,min=0,max=1,step=.01),
br(),
actionButton('stMultiChull',label = "Start MultiCHull",
icon = icon("flash",lib = "glyphicon"))
)# end tabPanel MultiChull
)#end tabset
)# end mainpanel
)# end fluidpage
), #end settings panel
############# results panel #########
tabPanel(title = "", icon = icon("bar-chart-o","fa-2x"),
fluidPage(
titlePanel("Results"),
mainPanel(
tabsetPanel(
tabPanel("Summary",
#verbatimTextOutput("summary"),
verbatimTextOutput("summary")
), #end tabPanel summary
tabPanel("Plotly",
plotly::plotlyOutput("plotly")
)# end tabPanel plotly
)#end tabset
)# end mainpanel
)# end fluidpage
), # end results panel
########### information
tabPanel(title = "", icon = icon("info-sign","fa-2x", "glyphicon"),
navlistPanel("CHull",id='info',br(), well = F,selected = "Details",
tabPanel("Details",
h2("Details page"),
h3('Software details'),
'Software status: this is an alpha version.',
br(),
'Please report bugs and errors to: [email protected] or open an issue on', tags$a(href='https://github.com/jeffreydurieux/multichull_shiny','GitHub', target = '_blank'),
br(),
h3('youtube video tutorials here:')),
tabPanel("References",
h2("References page"),
br(),
h3('CHull papers:'),
br(),
tags$a(href='https://bpspsychub.onlinelibrary.wiley.com/doi/full/10.1348/000711005X64817?casa_token=vzZewzwUsXoAAAAA%3ALsuycpnna2_nuQFtSWHr-En8Pjew6TLEIZRM1Snyckw1nvC4tBNkR1skUJcR6V4n0TtJ0dA7n0XQYQ', 'Ceulemans & Kiers (2006)', target = '_blank'),
br(),
tags$a(href='https://link.springer.com/article/10.3758/s13428-012-0238-5', 'Wilderjans, Ceulemans & Meers (2013)', target = '_blank')
),
tabPanel("Authors",
h2("Authors page"),
br(),
tags$a(href='https://www.universiteitleiden.nl/en/staffmembers/jeffrey-durieux#tab-1', 'Jeffrey Durieux', target = '_blank')),
tabPanel("License",
h3("Software is currently licensed under a:"),
br(),
tags$a(href='https://www.gnu.org/licenses/gpl-3.0.txt', 'GNU GPL version 3', target = '_blank')
)
)#end navlistpanel
)# end tabPanel
))# end shinyUI navbarPage