Update subset.rspec.R

use 'which' to deal with potential NAs in subsetting vector