使用火车到达目的地的最低成本 - RStudio错误

Question

我试图尽可能地将工作代码从Python“翻译”到R，但我得到了错误，我不知道如何处理。 Error: C stack usage 7971064 is too close to the limit。你能帮帮我吗？谢谢。

这是代码

N<-4
intMax<-2147483647

data1 <- c(0, 15, 80, 90, 
    intMax, 0, 40, 50, 
    intMax, intMax,0, 70, 
    intMax, intMax, intMax, 0)
cost <- matrix(data1, nrow = 4, ncol = 4, byrow = TRUE)

minCostRec <- function(cost, s, d){
if(s == d||s+1 == d){
    return cost[s][d]
}
minimal <- cost[s][d]
i<-s+1
for(i in i<d){
    c <- minCostRec(cost, s, i) + minCostRec(cost, i, d)
    if(c < minimal){
        minimal <- c
    }
}
return minimal
}

minCost <- function(cost){
return minCostRec(cost, 0, N-1)
}

print(paste("minimum cost to reach station", N, "is",minCost(cost)))