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() { 

} 
)