Fix readgenalex numeric inds

[zkamvar]

This fixes a weird bug inread.genalex() where the strata would be mal-formed if the user imported data with a duplication in the sample names AND the sample names had at least one numeric name that was within the range of the samples prepended by zeroes.

yes, I know it's weird, but it's the truth:

library('poppr')
#> Loading required package: adegenet
#> Loading required package: ade4
#> Registered S3 methods overwritten by 'ggplot2':
#>   method         from 
#>   [.quosures     rlang
#>   c.quosures     rlang
#>   print.quosures rlang
#> Registered S3 method overwritten by 'spdep':
#>   method   from
#>   plot.mst ape
#> 
#>    /// adegenet 2.1.1 is loaded ////////////
#> 
#>    > overview: '?adegenet'
#>    > tutorials/doc/questions: 'adegenetWeb()' 
#>    > bug reports/feature requests: adegenetIssues()
#> Registered S3 method overwritten by 'pegas':
#>   method      from
#>   print.amova ade4
#> This is poppr version 2.8.2. To get started, type package?poppr
#> OMP parallel support: available
yd <- "13   6   1   6                                           
            7_09_BB                                         
Ind Pop CHMFc4  CHMFc5  CHMFc12 SEA SED SEE SEG SEI SEL SEN SEP SEQ SER
4   7_09_BB 224 85  163 132 133 156 144 116 143 227 257 142 145
2   7_09_BB 224 97  159 156 129 156 144 113 143 231 261 136 153
2   7_09_BB 224 97  159 160 133 156 126 119 147 227 257 134 149
9   7_09_BB 224 97  159 160 133 156 126 119 147 227 261 134 149
6   7_09_BB 224 97  159 160 133 156 126 119 147 235 261 134 149
3   7_09_BB 224 97  163 160 133 156 126 119 147 235 257 134 149"

gen <- read.genalex(textConnection(yd), sep = "\t")
#> Warning in df2genind(gena, ind.names = ind.vec, pop = pop.vec, ploidy =
#> 1, : duplicate labels detected for some individuals; using generic labels
strata(gen)
#>       Pop
#> 1    <NA>
#> 2 7_09_BB
#> 3 7_09_BB
#> 4 7_09_BB
#> 5    <NA>
#> 6 7_09_BB
pop(gen)
#> [1] 7_09_BB 7_09_BB 7_09_BB 7_09_BB 7_09_BB 7_09_BB
#> Levels: 7_09_BB

^{Created on 2019-04-29 by the reprex package (v0.2.1)}