Skip to content

Commit 36eb512

Browse files
venyaovenyao
committed
update to adapt to updated R packages
1 parent 3824eec commit 36eb512

File tree

2 files changed

+1402
-1401
lines changed

2 files changed

+1402
-1401
lines changed

‎global_ui.R

+89-89
Original file line numberDiff line numberDiff line change
@@ -1,89 +1,89 @@
1-
2-
library(markdown)
3-
# library(shinythemes)
4-
library(shinyBS)
5-
6-
ADVANCED_OPTIONS_PANEL_1 <- function(options_list){
7-
list(
8-
actionButton('advancedOptionsButton_1', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
9-
conditionalPanel(condition = "input.advancedOptionsButton_1%2", wellPanel(options_list))
10-
)
11-
}
12-
13-
ADVANCED_OPTIONS_PANEL_2 <- function(options_list){
14-
list(
15-
actionButton('advancedOptionsButton_2', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
16-
conditionalPanel(condition = "input.advancedOptionsButton_2%2", wellPanel(options_list))
17-
)
18-
}
19-
20-
ADVANCED_OPTIONS_PANEL_3 <- function(options_list){
21-
list(
22-
actionButton('advancedOptionsButton_3', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
23-
conditionalPanel(condition = "input.advancedOptionsButton_3%2", wellPanel(options_list))
24-
)
25-
}
26-
27-
ADVANCED_OPTIONS_PANEL_4 <- function(options_list){
28-
list(
29-
actionButton('advancedOptionsButton_4', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
30-
conditionalPanel(condition = "input.advancedOptionsButton_4%2", wellPanel(options_list))
31-
)
32-
}
33-
34-
ADVANCED_OPTIONS_PANEL_5 <- function(options_list){
35-
list(
36-
actionButton('advancedOptionsButton_5', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
37-
conditionalPanel(condition = "input.advancedOptionsButton_5%2", wellPanel(options_list))
38-
)
39-
}
40-
41-
ADVANCED_OPTIONS_PANEL_6 <- function(options_list){
42-
list(
43-
actionButton('advancedOptionsButton_6', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
44-
conditionalPanel(condition = "input.advancedOptionsButton_6%2", wellPanel(options_list))
45-
)
46-
}
47-
48-
ADVANCED_OPTIONS_PANEL_7 <- function(options_list){
49-
list(
50-
actionButton('advancedOptionsButton_7', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
51-
conditionalPanel(condition = "input.advancedOptionsButton_7%2", wellPanel(options_list))
52-
)
53-
}
54-
55-
ADVANCED_OPTIONS_PANEL_8 <- function(options_list){
56-
list(
57-
actionButton('advancedOptionsButton_8', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
58-
conditionalPanel(condition = "input.advancedOptionsButton_8%2", wellPanel(options_list))
59-
)
60-
}
61-
62-
ADVANCED_OPTIONS_PANEL_9 <- function(options_list){
63-
list(
64-
actionButton('advancedOptionsButton_9', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
65-
conditionalPanel(condition = "input.advancedOptionsButton_9%2", wellPanel(options_list))
66-
)
67-
}
68-
69-
ADVANCED_OPTIONS_PANEL_10 <- function(options_list){
70-
list(
71-
actionButton('advancedOptionsButton_10', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
72-
conditionalPanel(condition = "input.advancedOptionsButton_10%2", wellPanel(options_list))
73-
)
74-
}
75-
76-
ADVANCED_OPTIONS_PANEL_tc <- function(options_list){
77-
list(
78-
actionButton('advancedOptionsButton_tc', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
79-
conditionalPanel(condition = "input.advancedOptionsButton_tc%2", wellPanel(options_list))
80-
)
81-
}
82-
83-
ADVANCED_OPTIONS_PANEL <- function(options_list){
84-
list(
85-
actionButton('advancedOptionsButton', label = "Show advanced options", class = "toggleButton fa fa-angle-down", styleclass = "success"),
86-
conditionalPanel(condition = "input.advancedOptionsButton%2", wellPanel(options_list))
87-
)
88-
}
89-
1+
2+
library(markdown)
3+
# library(shinythemes)
4+
library(shinyBS)
5+
6+
ADVANCED_OPTIONS_PANEL_1 <- function(options_list){
7+
list(
8+
actionButton('advancedOptionsButton_1', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
9+
conditionalPanel(condition = "input.advancedOptionsButton_1%2", wellPanel(options_list))
10+
)
11+
}
12+
13+
ADVANCED_OPTIONS_PANEL_2 <- function(options_list){
14+
list(
15+
actionButton('advancedOptionsButton_2', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
16+
conditionalPanel(condition = "input.advancedOptionsButton_2%2", wellPanel(options_list))
17+
)
18+
}
19+
20+
ADVANCED_OPTIONS_PANEL_3 <- function(options_list){
21+
list(
22+
actionButton('advancedOptionsButton_3', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
23+
conditionalPanel(condition = "input.advancedOptionsButton_3%2", wellPanel(options_list))
24+
)
25+
}
26+
27+
ADVANCED_OPTIONS_PANEL_4 <- function(options_list){
28+
list(
29+
actionButton('advancedOptionsButton_4', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
30+
conditionalPanel(condition = "input.advancedOptionsButton_4%2", wellPanel(options_list))
31+
)
32+
}
33+
34+
ADVANCED_OPTIONS_PANEL_5 <- function(options_list){
35+
list(
36+
actionButton('advancedOptionsButton_5', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
37+
conditionalPanel(condition = "input.advancedOptionsButton_5%2", wellPanel(options_list))
38+
)
39+
}
40+
41+
ADVANCED_OPTIONS_PANEL_6 <- function(options_list){
42+
list(
43+
actionButton('advancedOptionsButton_6', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
44+
conditionalPanel(condition = "input.advancedOptionsButton_6%2", wellPanel(options_list))
45+
)
46+
}
47+
48+
ADVANCED_OPTIONS_PANEL_7 <- function(options_list){
49+
list(
50+
actionButton('advancedOptionsButton_7', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
51+
conditionalPanel(condition = "input.advancedOptionsButton_7%2", wellPanel(options_list))
52+
)
53+
}
54+
55+
ADVANCED_OPTIONS_PANEL_8 <- function(options_list){
56+
list(
57+
actionButton('advancedOptionsButton_8', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
58+
conditionalPanel(condition = "input.advancedOptionsButton_8%2", wellPanel(options_list))
59+
)
60+
}
61+
62+
ADVANCED_OPTIONS_PANEL_9 <- function(options_list){
63+
list(
64+
actionButton('advancedOptionsButton_9', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
65+
conditionalPanel(condition = "input.advancedOptionsButton_9%2", wellPanel(options_list))
66+
)
67+
}
68+
69+
ADVANCED_OPTIONS_PANEL_10 <- function(options_list){
70+
list(
71+
actionButton('advancedOptionsButton_10', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
72+
conditionalPanel(condition = "input.advancedOptionsButton_10%2", wellPanel(options_list))
73+
)
74+
}
75+
76+
ADVANCED_OPTIONS_PANEL_tc <- function(options_list){
77+
list(
78+
actionButton('advancedOptionsButton_tc', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'), class = "toggleButton", styleclass = "success"),
79+
conditionalPanel(condition = "input.advancedOptionsButton_tc%2", wellPanel(options_list))
80+
)
81+
}
82+
83+
ADVANCED_OPTIONS_PANEL <- function(options_list){
84+
list(
85+
actionButton('advancedOptionsButton', label = HTML('Show advanced options<i class="fa-solid fa-angle-down" style = "vertical-align: middle;"></i>'),class = "toggleButton", styleclass = "success"),
86+
conditionalPanel(condition = "input.advancedOptionsButton%2", wellPanel(options_list))
87+
)
88+
}
89+

0 commit comments

Comments
 (0)