try simplify vectorized stop_mirai()

Signed-off-by: Charlie Gao <[email protected]>
shikokuchuo · Dec 12, 2024 · dfd0e6f · dfd0e6f
1 parent 12ce2e5
commit dfd0e6f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mirai.R b/R/mirai.R
@@ -424,7 +424,7 @@ collect_mirai <- collect_aio
 #' @export
 #'
 stop_mirai <- function(x) {
-  is.list(x) && return(rev(as.logical(lapply(rev(unclass(x)), stop_mirai))))
+  is.list(x) && return(as.logical(lapply(x, stop_mirai)))
   .compute <- attr(x, "profile")
   envir <- if (is.character(.compute)) ..[[.compute]]
   stop_aio(x)