No flags found
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
0169bb6
... +1 ...
fd3e4eb
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
85 | 85 | } |
|
86 | 86 | ||
87 | 87 | if (output == "graph") { |
|
88 | - | if (!is.null(title)) { |
|
89 | - | ||
90 | - | graph <- |
|
91 | - | add_global_graph_attrs( |
|
92 | - | graph, "label", title, "graph") |
|
93 | - | ||
94 | - | graph <- |
|
95 | - | add_global_graph_attrs( |
|
96 | - | graph, "labelloc", "t", "graph") |
|
97 | 88 | ||
98 | - | graph <- |
|
99 | - | add_global_graph_attrs( |
|
100 | - | graph, "labeljust", "c", "graph") |
|
101 | - | ||
102 | - | graph <- |
|
103 | - | add_global_graph_attrs( |
|
104 | - | graph, "fontname", "Helvetica", "graph") |
|
89 | + | if (!is.null(title)) { |
|
105 | 90 | ||
106 | - | graph <- |
|
107 | - | add_global_graph_attrs( |
|
108 | - | graph, "fontcolor", "gray30", "graph") |
|
91 | + | graph <- add_global_graph_attrs(graph, "label", title, "graph") |
|
92 | + | graph <- add_global_graph_attrs(graph, "labelloc", "t", "graph") |
|
93 | + | graph <- add_global_graph_attrs(graph, "labeljust", "c", "graph") |
|
94 | + | graph <- add_global_graph_attrs(graph, "fontname", "Helvetica", "graph") |
|
95 | + | graph <- add_global_graph_attrs(graph, "fontcolor", "gray30", "graph") |
|
109 | 96 | } |
|
110 | 97 | ||
111 | - | # If no fillcolor provided, use default; if no default available, |
|
112 | - | # use white |
|
98 | + | # If no fillcolor provided, use default; if no default available, use white |
|
113 | 99 | if (nrow(graph$nodes_df) > 0) { |
|
114 | 100 | if (!("fillcolor" %in% colnames(graph$nodes_df))) { |
|
115 | 101 | if ("fillcolor" %in% graph$global_attrs$attr) { |
239 | 225 | } |
|
240 | 226 | } |
|
241 | 227 | ||
242 | - | ||
243 | 228 | if (("image" %in% colnames(graph %>% get_node_df()) || |
|
244 | 229 | "fa_icon" %in% colnames(graph %>% get_node_df()) || |
|
245 | 230 | as_svg) & |
264 | 264 | ||
265 | 265 | if (nrow(nodes_df) > 0) { |
|
266 | 266 | ||
267 | - | # Determine whether positional (x,y) |
|
268 | - | # data is included |
|
269 | - | column_with_x <- |
|
270 | - | which(colnames(nodes_df) %in% "x")[1] |
|
267 | + | # Determine whether positional (x,y) data is included |
|
268 | + | column_with_x <- which(colnames(nodes_df) %in% "x")[1] |
|
271 | 269 | ||
272 | - | column_with_y <- |
|
273 | - | which(colnames(nodes_df) %in% "y")[1] |
|
270 | + | column_with_y <- which(colnames(nodes_df) %in% "y")[1] |
|
274 | 271 | ||
275 | 272 | if (!is.na(column_with_x) & !is.na(column_with_y)) { |
|
276 | - | ||
277 | 273 | pos <- |
|
278 | - | data.frame( |
|
279 | - | "pos" = |
|
280 | - | paste0( |
|
281 | - | nodes_df[, column_with_x], |
|
282 | - | ",", |
|
283 | - | nodes_df[, column_with_y], |
|
284 | - | "!"), |
|
285 | - | stringsAsFactors = FALSE |
|
274 | + | paste0( |
|
275 | + | nodes_df %>% dplyr::pull(column_with_x), ",", |
|
276 | + | nodes_df %>% dplyr::pull(column_with_y), "!" |
|
286 | 277 | ) |
|
287 | 278 | ||
288 | - | nodes_df$pos <- pos$pos |
|
279 | + | nodes_df <- |
|
280 | + | nodes_df %>% |
|
281 | + | dplyr::mutate(pos = !!pos) |
|
289 | 282 | } |
|
290 | 283 | ||
291 | 284 | # Determine whether column 'alpha' exists |
Files | Coverage |
---|---|
R | 0.06% 81.03% |
Project Totals (241 files) | 81.03% |
fd3e4eb
9076a3d
0169bb6