Your code is not really useful to help debug your issue as its substantially incomplete, i.e. it uses functions we dont have on data we dont have. Materials on how to produce reprex can be found here
p.s. are you using a linux based system that supports forking ? if not, i.e. if you are using windows, mclapply wont be parallelising your process.