1
2new_pkgcache_cond <- function(..., call. = FALSE, class = NULL, data = NULL) {
3  cnd <- new_cond(..., call. = call.)
4  cnd[names(data)] <- data
5  class(cnd) <- c(class, "pkgcache_condition", class(cnd))
6  cnd
7}
8
9new_pkgcache_warning <- function(..., call. = FALSE, class = NULL, data = NULL) {
10  cnd <- new_cond(..., call. = call.)
11  cnd[names(data)] <- data
12  class(cnd) <- c(class, "pkgcache_condition", "warning", class(cnd))
13  cnd
14}
15