colsum does not respect factor level ordering

[LTLA]

Pretty much as it says:

library(DelayedArray)

thing <- matrix(rpois(2000, lambda=0.5), ncol=100, nrow=20)
ids <- factor(rep(LETTERS[1:3], length.out=ncol(thing)), levels=LETTERS[3:1])

delayed <- DelayedArray(thing)
colnames(colsum(delayed, ids))
## [1] "A" "B" "C"

colnames(colsum(thing, ids)) # for reference
## [1] "C" "B" "A"

Session information

R Under development (unstable) (2019-10-31 r77342)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 18.04.3 LTS

Matrix products: default
BLAS:   /home/luna/Software/R/trunk/lib/libRblas.so
LAPACK: /home/luna/Software/R/trunk/lib/libRlapack.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] parallel  stats4    stats     graphics  grDevices utils     datasets 
[8] methods   base     

other attached packages:
[1] DelayedArray_0.13.1 BiocParallel_1.21.2 IRanges_2.21.2     
[4] S4Vectors_0.25.8    BiocGenerics_0.33.0 matrixStats_0.55.0 

loaded via a namespace (and not attached):
[1] compiler_4.0.0  Matrix_1.2-18   grid_4.0.0      lattice_0.20-38

[hpages]

Fixed in DelayedArray 0.13.2 (see commit c43524f).

Thanks for the catch!