inst/snippets/event_handlers.R

In tidylab/ddd: Build Applications that Match their Business Domain

# <https://github.com/harell/code/blob/master/src/allocation/domain/model.py>
tryCatchLog <- tryCatchLog::tryCatchLog
events <- new.env()
events$OutOfStock <- function(line.sku) print(line.sku)
line.sku <- "034595302"


# tryCatch ----------------------------------------------------------------
batch.reference <- tryCatch(
    expr = {
        batchref <- 9090
        stop()
    },
    error = function(e){
        events$OutOfStock(line.sku)
        return(NULL)
    }
)
print(batch.reference)


# tryCatchLog -------------------------------------------------------------
batch.reference <- tryCatchLog(
    expr = {
        batchref <- 9090
        stop()
    },
    error = function(e){
        events$OutOfStock(line.sku)
        return(NULL)
    }
)
print(batch.reference)