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
dc58440
... +4 ...
460a2af
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
164 | 164 | } else if (is_false(.full)) { |
|
165 | 165 | sum_data <- summarise(keyed_tbl, |
|
166 | 166 | !!idx_chr := list2(!!idx_chr := seq_generator(!!idx, int))) |
|
167 | - | } else if (.full == expr("start()")) { |
|
167 | + | } else if (call_name(.full) == "start") { |
|
168 | + | abort_if_args_present(.full) |
|
168 | 169 | start <- min(keyed_tbl[[idx_chr]]) |
|
169 | 170 | sum_data <- summarise(keyed_tbl, |
|
170 | 171 | !!idx_chr := list2(!!idx_chr := seq_generator(c(start, max(!!idx)), int))) |
|
171 | - | } else if (.full == expr("end()")) { |
|
172 | + | } else if (call_name(.full) == "end") { |
|
173 | + | abort_if_args_present(.full) |
|
172 | 174 | end <- max(keyed_tbl[[idx_chr]]) |
|
173 | 175 | sum_data <- summarise(keyed_tbl, |
|
174 | 176 | !!idx_chr := list2(!!idx_chr := seq_generator(c(min(!!idx), end), int))) |
279 | 281 | res <- summarise(grped_tbl, |
|
280 | 282 | !!.name := (length(seq_generator(!!idx, int)) - length(!!idx)) > 0 |
|
281 | 283 | ) |
|
282 | - | } else if (.full == sym("start()")) { |
|
284 | + | } else if (call_name(.full) == "start") { |
|
285 | + | abort_if_args_present(.full) |
|
283 | 286 | start <- min(.data[[idx_chr]]) |
|
284 | 287 | res <- summarise(grped_tbl, |
|
285 | 288 | !!.name := (length(seq_generator(c(start, max(!!idx)), int)) - length(!!idx)) > 0 |
|
286 | 289 | ) |
|
287 | - | } else if (.full == sym("end()")) { |
|
290 | + | } else if (call_name(.full) == "end") { |
|
291 | + | abort_if_args_present(.full) |
|
288 | 292 | end <- max(.data[[idx_chr]]) |
|
289 | 293 | res <- summarise(grped_tbl, |
|
290 | 294 | !!.name := (length(seq_generator(c(min(!!idx), end), int)) - length(!!idx)) > 0 |
376 | 380 | abort_invalid_full_arg <- function() { |
|
377 | 381 | abort("`.full` only accepts `TRUE`, `FALSE`, `start()`, or `end()`.") |
|
378 | 382 | } |
|
383 | + | ||
384 | + | abort_if_args_present <- function(.full) { |
|
385 | + | if (!has_length(call_args(.full), 0)) { |
|
386 | + | abort("`.full` expects `start()`/`end()` with no arguments.") |
|
387 | + | } |
|
388 | + | } |
Files | Coverage |
---|---|
R | -0.01% 87.84% |
Project Totals (24 files) | 87.84% |
460a2af
3cfb997
5a51d40
443da3c
c93eef6
dc58440