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
189d545
... +2 ...
1fad811
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
303 | 303 | ||
304 | 304 | # CHARACTER ------------------------------------------------------------------- |
|
305 | 305 | ||
306 | + | #' MIME type of message part |
|
307 | + | #' |
|
308 | + | #' @noRd |
|
309 | + | #' @param part Message part. |
|
310 | + | #' |
|
311 | + | #' @return Character vector. |
|
312 | + | type <- function(x) { |
|
313 | + | ifelse(!is.na(x$type), x$type, sub("_", "/", class(x)[1])) |
|
314 | + | } |
|
315 | + | ||
306 | 316 | #' Convert MIME object to character vector |
|
307 | 317 | #' |
|
308 | 318 | #' @param x MIME object |
317 | 327 | children <- sapply(x$children, function(child) { |
|
318 | 328 | paste(paste0("--", x$boundary), as.character.MIME(child), sep = "\r\n") |
|
319 | 329 | }) |
|
320 | - | type <- ifelse(!is.na(x$type), x$type, sub("_", "/", class(x)[1])) |
|
321 | 330 | # |
|
322 | 331 | headers <- list( |
|
323 | - | content_type(type, x$charset, x$boundary, x$format), |
|
332 | + | content_type(type(x), x$charset, x$boundary, x$format), |
|
324 | 333 | content_disposition(x$disposition), |
|
325 | 334 | content_transfer_encoding(x$encoding), |
|
326 | 335 | content_language(x$language, x$content), |
Files | Coverage |
---|---|
R | 99.08% |
Project Totals (19 files) | 99.08% |
1fad811
acb5c79
61f9be0
189d545