Counting and formatting errors in `print()` output

[mikemc]

If there is 1 too many samples to display, then "variable" is used instead of "sample"; and it also seems that the claimed number of additional samples can be off.

library(speedyseq)
#> Loading required package: phyloseq
#> 
#> Attaching package: 'speedyseq'
#> The following objects are masked from 'package:phyloseq':
#> 
#>     filter_taxa, plot_bar, plot_heatmap, plot_tree, psmelt, tax_glom,
#>     tip_glom, transform_sample_counts

data(soilrep)

otu_table(soilrep)[1:5, 1:11]
#> OTU Table:          [ 5 taxa and 11 samples ]:
#> Taxa are rows
#>            a_C026 a_C066 a_C070 a_C074 a_C075 a_C077 a_C079 a_C081 a_C082 a_C083
#> OTU_R0          0      0      0      0      1      1      0      0      0      0
#> OTU_R1          3      0      7      3      2      0      0      2      1      3
#> OTU_R10         0      0      0      0      0      0      0      0      0      0
#> OTU_R100        0      1      2      1      0      0      1      0      0      1
#> OTU_R10000      0      0      0      0      0      0      0      0      0      0
#> # … with 1 more variable
otu_table(soilrep)[1:5, 1:20]
#> OTU Table:          [ 5 taxa and 20 samples ]:
#> Taxa are rows
#>            a_C026 a_C066 a_C070 a_C074 a_C075 a_C077 a_C079 a_C081 a_C082 a_C083
#> OTU_R0          0      0      0      0      1      1      0      0      0      0
#> OTU_R1          3      0      7      3      2      0      0      2      1      3
#> OTU_R10         0      0      0      0      0      0      0      0      0      0
#> OTU_R100        0      1      2      1      0      0      1      0      0      1
#> OTU_R10000      0      0      0      0      0      0      0      0      0      0
#> # … with 7 more samples (columns)

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