当计算耗时过长时，如何让Rglpk_solve_LP跳到下一行代码？

我使用R Studio在R中运行模拟。我需要使用

Rglpk

库获得最佳解决方案。我反复调用函数

Rglpk\u solve\u LP

来解决这个问题。有时它工作得很好，但有时它会永远运行。当

Rglpk\u solve\u LP

无法收敛时，我希望能够跳到下一行

我试图更改

Rglpk\u solve\u LP

函数中的一些设置，例如

control=list（LP\u time\u limit=time\u limit）

，但它仍然卡住了

R码 我希望得到一个二进制向量，指示解决方案中是否包含特定项。但是，在某些情况下，它不会完成计算，并且会永远持续下去

lp = Rglpk_solve_LP(obj = obj, mat = mat, dir = dir, 
                    rhs = rhs, max = max, types = rep("B",length(obj)), 
                    control = list(lp_time_limit = 5 ))
print(lp)
lp$solution = lp$solution  
lp$objval = lp$optimum
return (lp)