-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathglobal_ui.R
89 lines (75 loc) · 3.61 KB
/
global_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
library(markdown)
library(shinythemes)
library(shinyBS)
ADVANCED_OPTIONS_PANEL_1 <- function(options_list){
list(
actionButton('advancedOptionsButton_1', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_1%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_2 <- function(options_list){
list(
actionButton('advancedOptionsButton_2', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_2%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_3 <- function(options_list){
list(
actionButton('advancedOptionsButton_3', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_3%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_4 <- function(options_list){
list(
actionButton('advancedOptionsButton_4', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_4%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_5 <- function(options_list){
list(
actionButton('advancedOptionsButton_5', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_5%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_6 <- function(options_list){
list(
actionButton('advancedOptionsButton_6', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_6%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_7 <- function(options_list){
list(
actionButton('advancedOptionsButton_7', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_7%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_8 <- function(options_list){
list(
actionButton('advancedOptionsButton_8', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_8%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_9 <- function(options_list){
list(
actionButton('advancedOptionsButton_9', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_9%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_10 <- function(options_list){
list(
actionButton('advancedOptionsButton_10', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_10%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL_tc <- function(options_list){
list(
actionButton('advancedOptionsButton_tc', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton_tc%2", wellPanel(options_list))
)
}
ADVANCED_OPTIONS_PANEL <- function(options_list){
list(
actionButton('advancedOptionsButton', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
conditionalPanel(condition = "input.advancedOptionsButton%2", wellPanel(options_list))
)
}