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
1ab693d
... +2 ...
01db7fc
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
93 | 93 | #' @format NULL |
|
94 | 94 | #' @usage NULL |
|
95 | 95 | #' @importFrom ggplot2 ggproto Geom draw_key_polygon |
|
96 | - | #' @importFrom plyr summarise |
|
97 | 96 | #' @export |
|
98 | 97 | GeomVRidgeline <- ggproto("GeomVRidgeline", Geom, |
|
99 | 98 | default_aes = aes(color = "black", fill = "grey80", x = 0, size = 0.5, linetype = 1, |
173 | 172 | ids[missing_pos] <- NA |
|
174 | 173 | ||
175 | 174 | # munching for polygon |
|
176 | - | positions <- plyr::summarise(data, |
|
177 | - | y = c(y, rev(y)), x = c(xmax, rev(xmin)), id = c(ids, rev(ids))) |
|
175 | + | positions <- with(data, data.frame( |
|
176 | + | y = c(y, rev(y)), |
|
177 | + | x = c(xmax, rev(xmin)), |
|
178 | + | id = c(ids, rev(ids)) |
|
179 | + | )) |
|
178 | 180 | munched_poly <- ggplot2::coord_munch(coord, positions, panel_params) |
|
179 | 181 | ||
180 | 182 | # munching for line |
|
181 | - | positions <- plyr::summarise(data, y = y, x = xmax, id = ids) |
|
183 | + | positions <- with(data, data.frame( |
|
184 | + | y = y, |
|
185 | + | x = xmax, |
|
186 | + | id = ids |
|
187 | + | )) |
|
182 | 188 | munched_line <- ggplot2::coord_munch(coord, positions, panel_params) |
|
183 | 189 | ||
184 | 190 | # placing the actual grob generation into a separate function allows us to override for geom_density_ridges2 |
239 | 239 | data <- data[!missing_pos,] |
|
240 | 240 | ||
241 | 241 | # munching for line |
|
242 | - | positions <- plyr::summarise(data, x = x, y = ymax, id = ids) |
|
242 | + | positions <- with(data, data.frame( |
|
243 | + | x = x, |
|
244 | + | y = ymax, |
|
245 | + | id = ids |
|
246 | + | )) |
|
243 | 247 | munched_line <- ggplot2::coord_munch(coord, positions, panel_params) |
|
244 | 248 | ||
245 | 249 | # We now break down the polygons further by fill color, since |
267 | 271 | } |
|
268 | 272 | ||
269 | 273 | # munching for polygon |
|
270 | - | positions <- plyr::summarise(data, |
|
271 | - | x = c(x, rev(x)), y = c(ymax, rev(ymin)), id = c(ids, rev(ids))) |
|
274 | + | positions <- with(data, data.frame( |
|
275 | + | x = c(x, rev(x)), |
|
276 | + | y = c(ymax, rev(ymin)), |
|
277 | + | id = c(ids, rev(ids)) |
|
278 | + | )) |
|
272 | 279 | munched_poly <- ggplot2::coord_munch(coord, positions, panel_params) |
|
273 | 280 | ||
274 | 281 | # calculate line and area grobs |
97 | 97 | #' @format NULL |
|
98 | 98 | #' @usage NULL |
|
99 | 99 | #' @importFrom ggplot2 ggproto Geom |
|
100 | - | #' @importFrom plyr summarise |
|
101 | 100 | #' @export |
|
102 | 101 | GeomRidgeline <- ggproto("GeomRidgeline", Geom, |
|
103 | 102 | default_aes = aes( |
258 | 257 | ids[missing_pos] <- NA |
|
259 | 258 | ||
260 | 259 | # munching for polygon |
|
261 | - | positions <- plyr::summarise(data, |
|
262 | - | x = c(x, rev(x)), y = c(ymax, rev(ymin)), id = c(ids, rev(ids))) |
|
260 | + | positions <- with(data, data.frame( |
|
261 | + | x = c(x, rev(x)), |
|
262 | + | y = c(ymax, rev(ymin)), |
|
263 | + | id = c(ids, rev(ids)) |
|
264 | + | )) |
|
263 | 265 | munched_poly <- ggplot2::coord_munch(coord, positions, panel_params) |
|
264 | 266 | ||
265 | 267 | # munching for line |
|
266 | - | positions <- plyr::summarise(data, x = x, y = ymax, id = ids) |
|
268 | + | positions <- with(data, data.frame( |
|
269 | + | x = x, |
|
270 | + | y = ymax, |
|
271 | + | id = ids |
|
272 | + | )) |
|
267 | 273 | munched_line <- ggplot2::coord_munch(coord, positions, panel_params) |
|
268 | 274 | ||
269 | 275 | # calculate line and area grobs |
Files | Coverage |
---|---|
R | 76.53% |
Project Totals (12 files) | 76.53% |
01db7fc
d6108e7
b5b603a
1ab693d