added wait = FALSE to free up R