R經過一段時間後結束重複語句

Question

我有一個可能需要相當長時間的函數。

我在想，如果有一個更清潔的方式來阻止比這樣的其他功能：

repeat{ 

    time1 <- Sys.time() 
    myfunction(x,y,z,...) 
    time2 <- Sys.time() 
    if(time2 - time1 > my.time.limit) { 
    break 
    } 
} 

Answer 1

有一個在R.utils包的evalWithTimeout功能。你可以這樣使用它：

require("R.utils") 
evalWithTimeout({ 
    repeat{ 
    myfunction(x,y,z,...) 
    } 
}, timeout=my.time.limit, onTimeout="warning") 

運行example(evalWithTimeout)看看其他的方式來使用它。