Improve return for `headtail()` atomic method where the vector is <= n * 2L
Improve return for `headtail()` atomic method where the vector is <= n * 2L

steinbaugh/seqcloudr,seqcloud/seqcloudR,steinbaugh/basejump