sampleID dropped from counts with single sample

[richardjtelford]

If a dataset has a single sample, rownames are dropped from the counts and lab.data

library(neotoma)
dat <- get_download(39476)
#> API call was successful. Returned record for Big Sandy Reservoir
#> Warning in FUN(X[[i]], ...): This dataset has no defined default chronology.  Please use caution.
#> Using the first chronology, No chronology as the default.
rownames(counts(dat)$`39476`)
#> [1] "1"

^{Created on 2020-06-19 by the reprex package (v0.3.0)}

I think the some drop = FALSE are needed - I'll try to send a pull request