Nested parallelized (foreach) R loop with condition