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