Minor simplification of R regex