search for: bugsampl

...The R version 3.5.3 (2019-03-11) -- "Great Truth" , invoked with --vanilla. I hope this helps...it took quite a while to get it to this stage. I sure hope that I am not reporting an old bug... options("mc.cores"=4) library(data.table) library(parallel) if (!file.exists("bugsample.csv")) { NR <- 64833330 notused <- data.frame(v1=1:NR, v2=1:NR, v3=1:NR, x1=log(1:NR), x2=log(1:NR)) fwrite(notused, file="bugsample.csv") stop("you can quit now and restart the program") } if (!exists("notused")) notused <- fread("...

...Try lower and lower values to see if you get by. While there may well be a different race condition in mclapply, it may help to not overschedule. (FWIW, the next version of data.table, in queue at CRAN, is less aggressive and has additional options for fine tuning.) Dirk | if (!file.exists("bugsample.csv")) { | NR <- 64833330 | notused <- data.frame(v1=1:NR, v2=1:NR, v3=1:NR, x1=log(1:NR), | x2=log(1:NR)) | fwrite(notused, file="bugsample.csv") | stop("you can quit now and restart the program") | } | | if (!exists("notused")) notused &l...