I successfully processed some data on a 4 core computer using parLapply, using a code like below:
require(\"parallel\")
setwd(\"C:/...\")
file_summary<-read.         
        
You need to pass the current directory as an argument in parLapply() to your function. Inside your function myfunction you need to reset the working directory by setwd():
myfunction = function(k, wd_)
{
      setwd(wd_)
        ...
}
...
wd_ = getwd()
Results <- parLapply(Cl, c(1:n_tasks), myfunction, wd_)
N.B. make sure R/R Studio/R Script all are not blocked by the firewall.