R/semtree.apply.wrapper.R

In brandmaier/semtree: Recursive Partitioning for Structural Equation Models

semtree.apply.wrapper <-
  function(data,
           seed,
           model,
           semtree.control,
           with.error.handler = TRUE,
           covariates,
           ...)
  {
    if (!is.na(seed)) {
      ui_info("Set seed ", seed, " for tree in forest\n")
      set.seed(seed)
    }
    
    result <- NULL
    
   # if (with.error.handler) {
  #    tryCatch({
   #     result <- semtree(
    #      model = model,
     #     dataset = data$bootstrap.data,
      #    control = semtree.control,
    #      covariates = covariates,
    #      ...
    #    )
    #    
    #  }, 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,
          dataset = data$bootstrap.data,
          control = semtree.control,
          covariates = covariates,
          ...
        )
      
    #}
    
    return(result)
  }