-
Notifications
You must be signed in to change notification settings - Fork 1
/
ui.R
117 lines (98 loc) · 2.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
#
# Free-Clust: Shiny app for clustering data
# Author: Maciej Dobrzynski
#
# This is the UI logic for a Shiny web application.
#
library(shiny)
#library(shinyjs) #http://deanattali.com/shinyjs/
library(shinyBS)
shinyUI(fluidPage(
#useShinyjs(),
# Application title
title = "FreeClust",
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(width = 3,
# Load data
fileInput(
'fileDataLoad',
actionLink("alDataFormat", 'Select file and click Load Data'),
accept = c('text/csv', 'text/comma-separated-values,text/plain')
),
actionButton("butDataLoad", 'Load Data'),
actionButton("butDataGen1", 'Synthetic data'),
bsTooltip("butDataGen1",
"Use classic iris dataset for testing.",
placement = "top",
trigger = "hover"),
br(),
br(),
radioButtons(
"rBflipRowCol",
"Samples in:",
choices = list(
"rows" = "row",
"columns" = "col"
),
selected = "row"
),
bsTooltip("rBflipRowCol",
"Layout of data in the input file.",
placement = "top",
trigger = "hover"),
radioButtons(
'rButDataNA',
'Missing values represented by:',
choices = list(
'empty space' = '',
'dash "-"' = '-',
'NA' = 'NA'
),
selected = ''
),
radioButtons(
'rButDataSep',
'Column values separated by:',
choices = list('comma ,' = ',',
'semicolon ;' = ';'),
selected = ','
),
radioButtons(
'rButDataDec',
'Decimal point:',
choices = list('dot .' = '.',
'comma ,' = ','),
selected = '.'
),
#actionButton("butReset", "Reset file input"),
),
mainPanel(width = 9,
tabsetPanel(
# Show a plot of the distribution
tabPanel(
'Histogram',
dataHistUI('TabDataHist')
),
# Hierarchical clustering (hclust)
tabPanel(
'Hierarchical',
clustHierUI('TabClustHier')
),
# Sparse hierarchical clustering (sparcl)
tabPanel(
'Sparse Hier.',
clustHierSparUI('TabClustHierSpar')
),
# tabPanel(
# 'Bayesian',
# clustBayUI('TabClustBay')
# ),
# cluster validation
tabPanel(
'Validation',
clustValidUI('TabClValid')
)
)
)
)))