R/semtreeApplyWrapper.R

In brandmaier/semtree: Recursive Partitioning for Structural Equation Models

semtreeApplyWrapper <- function(data,
                                seed,
                                skip,
                                model,
                                semtree.control,
                                with.error.handler = TRUE,
                                predictors,
                                constraints,
                                ...)
{
  if (!is.na(seed)) {
    cat("Set seed ", seed, " for tree in forest\n")
    set.seed(seed)
  }
  
  if (skip)
    return(NULL)
  
  
  
  result <- NULL
  
  if (with.error.handler) {
    tryCatch({
      result <- semtree(
        model = model,
        data = data$bootstrap.data,
        control = semtree.control,
        predictors = predictors,
        constraints = constraints,
        ...
      )
      
    }, error = function(err) {
      errmsg <- paste(date(), paste(err), paste(traceback()), sep = "\n")
      
      write(errmsg, file = "error.log", append = TRUE)
      return(NULL)
    })
    
  } else {
    result <-
      semtree(
        model = model,
        data = data$bootstrap.data,
        control = semtree.control,
        predictors = predictors,
        constraints = constraints,
        ...
      )
  }
  
  return(result)
}