How can I test an infinite loop bug in R-CodePudding

I have a bug in my R code that causes an infinite loop. I'd like to write a test that checks I have fixed this bug.

foo <- function () {
  while (TRUE) sleep(1) # oops!
}

# I want something like:
expect_completes_within(foo(), seconds = 10)

Is there any existing solution? Is there a way to interrupt execution and throw an error after a given time?

CodePudding user response：

R.utils::withTimeout(foo(), timeout = 10) # Stop foo() after 10 seconds.

Solution has already been found here, where also code in base R has been provided.