Add condition classes to a 'miraiError' (#401)

* Add condition classes to a miraiError

* Adds conditionCall and conditionMessage methods for miraiError

* Do not even need conditionCall and conditionMessage methods

Author: shikokuchuo

NEWS.md

@@ -19,15 +19,17 @@
 * `require_daemons()` arguments are swapped so that `.compute` comes before `call` for ease of use.
   Previous usage will work for the time being, although is deprecated and will be defunct in a future version.
 * Enhancements to `everywhere()`:
-  + Consecutive `everywhere()` calls are now permissible again when using dispatcher (behaviour update in v2.4.1) (#354).
+  + Consecutive `everywhere()` calls are permissible again when using dispatcher (behaviour update in v2.4.1) (#354).
   + No longer has any effect on the RNG stream when using a reproducible `seed` value at `daemons()` (#356).
 * `mirai_map()` now supports Arrow Tables and Polars DataFrames (#366).
 * `daemon()` gains a `tlscert` argument for custom TLS certificates.
   The change in argument name lets this be passed when making a `daemons()` call (#344).
 * The `tls` argument at `daemon()`, `launch_local()` and `launch_remote()` is deprecated.
 * `as.promise()` method for mirai made robust for high-throughput scenarios (#377).
-* The print method for a `miraiError` now includes the customary additional line break (thanks @sebffischer, #399).
-* A `mirai()` evaluated on an ephemeral daemon now returns invisibly, consistent with other cases (#351).
+* `miraiError` enhancements:
+  + Preserves the original condition classes and may be re-thrown as the original condition (thanks @sebffischer, #400).
+  + The print method includes the customary additional line break (thanks @sebffischer, #399).
+* A `mirai()` evaluated on an ephemeral daemon returns invisibly, consistent with other cases (#351).
 * Requires nanonext >= [1.6.2.9001].
 
 # mirai 2.4.1

R/mirai.R

@@ -626,9 +626,8 @@ mk_mirai_error <- function(cnd, sc) {
   ))))
   sc <- sc[(length(sc) - 1L):(idx + 1L)]
   if (sc[[1L]][[1L]] == ".handleSimpleError") sc <- sc[-1L]
-  sc <- lapply(sc, `attributes<-`, NULL)
-  out <- `attributes<-`(msg, `[[<-`(cnd, "stack.trace", sc))
-  `class<-`(out, c("miraiError", "errorValue", "try-error"))
+  cnd[["stack.trace"]] <- lapply(sc, `attributes<-`, NULL)
+  `class<-`(`attributes<-`(msg, cnd), c("miraiError", "errorValue", "try-error", class(cnd)))
 }
 
 .miraiInterrupt <- `class<-`("", c("miraiInterrupt", "errorValue", "try-error"))