From dfd0e6f079d7a1828e92002fbecdc1a6317c9087 Mon Sep 17 00:00:00 2001
From: Charlie Gao <53399081+shikokuchuo@users.noreply.github.com>
Date: Thu, 12 Dec 2024 09:36:50 +0900
Subject: [PATCH] try simplify vectorized stop_mirai()

Signed-off-by: Charlie Gao <53399081+shikokuchuo@users.noreply.github.com>
---
 R/mirai.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/mirai.R b/R/mirai.R
index 29c91243..00574f1e 100644
--- 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)