tests/connected_tests/helper-wait_until.R

wait_until <- function(condition, timeout=3) {
  condition <- substitute(condition)
  ptm <- proc.time()
  while (!eval(condition, parent.frame()) && (proc.time() - ptm < timeout)["elapsed"]) {
    Sys.sleep(0.001)
  }
  expect_true(eval(condition, parent.frame()))
}
epiviz/epivizr documentation built on Oct. 8, 2017, 1:52 p.m.