使用igraph检查同构时超时

R.utils

包中的

withTimeout

函数允许在表达式耗时过长时中断表达式：

library(R.utils)
foo1 <- function() {
  print("Tic");
  for (kk in 1:100) {
    print(kk);
    Sys.sleep(0.1);
  }
  print("Tac");
}

withTimeout(foo1(), timeout = 1, onTimeout = "warning")

#[1] "Tic"
#[1] 1
#[1] 2
#[1] 3
#[1] 4
#Warning message:
#In value[[3L]](cond) : time limit reached [cpu=1s, elapsed=1s]

库（R.utils）
foo1
foo2 <- function() {
  print("Tic");
  N <- 10000
  g <- erdos.renyi.game(N, 0.75)
  V(g)$color <- sample(5,N, replace=TRUE)
  is_isomorphic_to(g, g, method='vf2')
  print("Tac");
}

withTimeout(foo2(), timeout = 1, onTimeout = "warning")