How to use spinners in code? about cli HOT 5 CLOSED

spin <- function() {
  name = "test"
  sp <- cli::get_spinner("line")
  interval <- sp$interval/1000
  frames <- sp$frames
  cycles <- max(round(2.5/((length(frames) - 1) * interval)), 1)
  while(T) {
    for (i in 1:(length(frames) * cycles) - 1) {
      cat("\r", name, cli:::rpad(unclass(frames[i %% length(frames) + 1]), width = 10), sep = " ")
      Sys.sleep(interval)
    } 
  }
}
x <- r_process$new(r_process_options(func = spin))
processx::conn_set_stdout(x$get_output_connection())
Sys.sleep(10) # <your_long_running_function_here>
x$kill()

library(future)
library(cli)
plan(multisession)

spinr <- function(fun, name, spinner) {
  expr <- substitute(fun)
  # spinner configuration
  spinner <- match.arg(spinner, choices = list_spinners())
  sp <- get_spinner("line")
  interval <- sp$interval/1000
  frames <- sp$frames
  cycles <- max(round(2.5/((length(frames) - 1) * interval)), 1)
  # parallel execution
  future_fun <- future(expr, substitute = F)
  # spinner loop
  while (!resolved(future_fun)) {
    for (i in 1:(length(frames) * cycles) - 1) {
      cat("\r", name, cli:::rpad(unclass(frames[i %% length(frames) + 1]), width = 10), sep = " ")
      Sys.sleep(interval)
    } 
  }
  tryCatch(
    {
      out <- value(future_fun)
      cat("\r", name, cli::symbol$tick, sep = " ")
      cat("\n", file = stderr())
      out
    },
    error = function(e) {
      cat("\r", name, cli::symbol$cross, sep = " ")
      cat("\n", file = stderr())
      stop(e$message)
    }
  )
}

funOK <- function(x) {
  Sys.sleep(3)
  return(x)
}

funFAIL <- function(x) {
  Sys.sleep(3)
  stop("asd")
}

spinr(funOK("test"), "testing", "line")
spinr(funFAIL("test"), "testing", "line")

testing ✔         
[1] "test"

testing ✖         
Error in value[[3L]](cond) : asd