Added some concurrency but crashes R