-
Notifications
You must be signed in to change notification settings - Fork 11
/
htmlbuttons.R
121 lines (91 loc) · 3.41 KB
/
htmlbuttons.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
suppressPackageStartupMessages({
library(stringr)
library(dplyr)
})
# html buttons ------------------------------------------------------------
group <- c(rep("create", 6), rep("manipulate", 8), rep("analyse", 4), rep("visualize", 8), rep("predict", 3))
page <- c("create_logs",
"adjust_logs",
"public_logs",
"xes_files",
"inspect_logs",
"data_quality",
"wrangling",
"case_filters",
"event_filters",
"generic_filtering",
"augment",
"mutate",
"collapse",
"unite",
"control_flow_analysis",
"performance_analysis",
"organisational_analysis",
"multi_dimensional_analysis",
"frequency_maps",
"performance_maps",
"advanced_maps",
"animate_maps",
"process_matrix",
"dotted_chart",
"trace_explorer",
"performance_spectrum",
"predict_workflow",
"predict_adapt",
"predict_keras")
page_html <- purrr::map_chr(page, paste0, ".html")
group_page <- data.frame(group, page_html, page) %>%
mutate(page = str_to_title(str_replace_all(page, "_", " ")))
colors <- data.frame(group = c("install", "create", "manipulate", "analyse", "visualize", "predict"),
class = c("primary", "secondary", "info", "danger", "success", "warning"))
# data
df <- dplyr::left_join(group_page, colors, by = "group")
# functies
find_page_index <- function(df, input_page_html) {
which(input_page_html == df$page_html)
}
find_not_disabled <- function(df, input_page_html) {
i <- find_page_index(df, input_page_html)
groupname <- df$group[i]
all_grouppages <- df %>% filter(groupname == df$group)
not_disabled <- all_grouppages %>% filter(input_page_html != page_html)
list(all_grouppages=all_grouppages, not_disabled=not_disabled)
}
is_disabled <- function(not_disabled, current_page) {
if(!(current_page %in% not_disabled$page_html)) paste0(" disabled")
}
create_buttons <- function(df, input_page_html = "create_logs.html") {
disabled <- find_page_index(df, input_page_html)
not_disabled <- find_not_disabled(df, input_page_html)
groups <- not_disabled$all_grouppages
not_disabled <- not_disabled$not_disabled
cat(
cat(
paste0("<div class=\"btn-toolbar\" role=\"group\">", "\n")),
for (i in 1:nrow(groups)) {
cat(
paste0("<a style = 'margin: 5px' href = \"", groups$page_html[i], "\" class=\"btn btn-", unique(groups$class), is_disabled(not_disabled, groups$page_html[i]), "\" type=\"button\">", groups$page[[i]], "</a>", "\n")
)
},
cat("</div>")
)
# cat(
# cat(
# paste0("<div class=\"btn-toolbar\" role=\"group\">", "\n",
# "<a href = \"", input_page_html, "\" class=\"btn btn-", df$class[[disabled]], " disabled\" type=\"button\">", df$page[[disabled]], "</a>", "\n")),
# for (i in 1:nrow(not_disabled)+1) {
# cat(
# paste0("<a href = \"", not_disabled$page_html[i], "\" class=\"btn btn-", not_disabled$class[[disabled]], "\" type=\"button\">", not_disabled$page[[i]], "</a>", "\n",
# "</div>")
# )
# }
# )
}
# create_buttons(df, input_page_html = "create_logs.html")
# create_buttons(df, input_page_html = "adjust_logs.html")
#find_colorclass_index("create_logs.html")
# <div class="btn-toolbar" role="group">
# <a href = "create_logs.html" class="btn btn-secondary disabled" type="button">Create logs</a>
# <a href = "adjust_logs.html" class="btn btn-secondary" type="button">Adjust logs</a>
# <a href = "public_logs.html" class="btn btn-secondary" type="button">Public logs</a>
# </div>