有没有办法将倒计时计时器合并到R函数中？

# 定义一个倒计时计时器函数
countdown_timer <- function(seconds) {
  for (i in seconds:0) {
    cat("\r", "Time remaining: ", i, " seconds", sep = "")
    Sys.sleep(1)  # 暂停1秒
  }
  cat("\r", "Time's up!          ", sep = "")  # 倒计时结束时的消息
}

# 使用函数开始倒计时
countdown_timer(10)  # 设置倒计时时间为10秒

countdown_timer_interruptible <- function(seconds) {
  for (i in seconds:0) {
    cat("\r", "Time remaining: ", i, " seconds", sep = "")
    if (readline(prompt = "Press 'q' to quit: ") == "q") {
      cat("\r", "Countdown interrupted by user!          ", sep = "")
      break
    }
    Sys.sleep(1)
  }
  if (i == 0) cat("\r", "Time's up!          ", sep = "")
}

# 使用可中断的倒计时函数
countdown_timer_interruptible(10)