R尝试catch块

Question

我想在一个循环中评估一些输出参数的树。但有时树函数会中止。线条如何被try catch块包围？

我对没有“真实”的代码表示歉意，但我没有一个非工作树的例子。下面是pseddo代码来说明当前实现

for (icol in seq(1,ncol)) { 
    cName <-colnames(dt)[icol] 
    tdata <- dt[,unique(c(1,2,icol)),with=F] 
    nTrues <- sum(rowSums(tdata[,cName,with=F])) 
    if (nTrues>0) { 
    print(paste('processing column',icol,'of',ncol,': ',cName)) 
    nFac <- table(tdata[,cName,with=F]) 
    print(nFac) 
    treeData <- merge(tdata, maint_data) 
    treeData[,c('identifiers'):=NULL] 
    fmla <- paste(cName,'~ .') 
    if (TRUE) { 
     # Recursive Partitioning and Regression Trees 
     cat('Recursive Partitioning and Regression Trees (rpart)','\n') 
     rtree <- rpart(fmla,data=treeData) # <-- NEED TRY CATCH HERE... 
     print(summary(rtree)) 
     cat('Confusion matrix for rpart') 
     print(table(predict(rtree), treeData[[cName]])) 
    } 
    flush.console() 
    } else { 
    print(paste('skipping column',icol,'of',ncol(ci_ratio_before_larger),': ',cName)) 
    } 
} 

这里，似乎工作的修正....

tryCatch({ 
    # Recursive Partitioning and Regression Trees 
    cat('Recursive Partitioning and Regression Trees (rpart)','\n') 
    rtree <- rpart(fmla,data=treeData) 
    print(summary(rtree)) 
    cat('Confusion matrix for rpart') 
    print(table(predict(rtree,type='vector'), treeData[[cName]])) 
    }, 
    error = function (condition) { 
    print("RPART_ERROR:") 
    print(paste(" Message:",conditionMessage(condition))) 
    print(paste(" Call: ",conditionCall(condition))) 
    } 
) 

Answer 1

我真的不能测试，但你能尝试更换您的

if (TRUE) 

带此条件：

tryCatch({ 
    # Recursive Partitioning and Regression Trees 
    cat('Recursive Partitioning and Regression Trees (rpart)','\n') 
    rtree <- rpart(fmla,data=treeData) # <-- NEED TRY CATCH HERE... 
    print(summary(rtree)) 
    cat('Confusion matrix for rpart') 
    print(table(predict(rtree), treeData[[cName]])) 
}, 
error = function (condition) { 
    print("RPART_ERROR:") 
    print(paste(" Message:",conditionMessage(condition))) 
    print(paste(" Call: ",conditionCall(condition))) 
}, 
finally= function() { 

} 
)