Deal with try-errors in mclapply and get warning message

mclapply_try_errors.txt

test <- parallel::mclapply(as.list(0:5), function(x) {
    print(x)
    if (x == 0) {
        stop("something didn't work for ", x)
    }
    return(1)
})

if (any(lapply(test, function(x) class(x) == "try-error") |> unlist())) {
    stop("something didn't work")
}

test2 <- lapply(test,
                function(x) if(class(x) == "try-error") { warning(x[[1]]) })