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
f872abd
... +1 ...
cea9631
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
88 | 88 | pasted_dots <- paste(substitute(list(...)))[-1L] |
|
89 | 89 | classes <- sapply(dt_, class) |
|
90 | 90 | typeofs <- sapply(dt_, typeof) |
|
91 | - | keep <- names(classes)[classes != "list" & typeofs != "list"] |
|
92 | - | not_kept <- names(classes)[classes == "list" | typeofs == "list"] |
|
91 | + | v.names <- names(classes) |
|
92 | + | keep <- v.names[classes != "list" & typeofs != "list"] |
|
93 | + | drop <- v.names[classes == "list" | typeofs == "list"] |
|
94 | + | drop <- drop[!drop %in% pasted_dots] |
|
93 | 95 | keep <- keep[!keep %in% pasted_dots] |
|
94 | 96 | keep <- paste(keep, collapse = ",") |
|
95 | 97 | cols <- substitute(unlist(list(...), recursive = FALSE)) |
|
96 | 98 | ||
97 | 99 | message("The following columns were dropped because ", |
|
98 | 100 | "they are list-columns (but not being hoisted): ", |
|
99 | - | paste(not_kept, collapse = ", ")) |
|
101 | + | paste(drop, collapse = ", ")) |
|
100 | 102 | ||
101 | 103 | dt_ <- dt_[, eval(cols), by = keep] |
|
102 | 104 | dt_ <- .naming(dt_, substitute(list(...))) |
Files | Coverage |
---|---|
R | 0.06% 94.59% |
src/fill.cpp | 97.67% |
Project Totals (12 files) | 95.57% |
cea9631
94f84c4
f872abd