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