Trying to Substitute an R base function by its parallel processing cousin (with trace function)

Question

I\'m trying to substitute lapply function with mclapply on a shiny application, with the trace function.

I\'m trying to narrow the trace