Fix showing containerid when using multi order

FGCZ#20221213673100

DESCRIPTION

@@ -3,7 +3,7 @@ Type: Package
 Title: A Module for Bridging B-Fabric and R using REST
 Author: Christian Trachsel [aut], Christian Panse [cre, aut]
 Maintainer: Christian Panse <[email protected]>
-Version: 0.12.2
+Version: 0.12.3
 Description: provides a shiny module and read, save, and delete functions to
     interact with the FGCZ's B-Fabric <https://fgcz-bfabric.uzh.ch> system
     using WSDL and REST. Also, the package contains shiny

R/ms_queue.R

@@ -283,7 +283,7 @@ getQCsample <- function(){
     dplyr::mutate(IDX = rep(1:length(y), y)) %>%
     dplyr::bind_rows(df) %>%
     dplyr::arrange(IDX)
-  res <- res %>% dplyr::select("extract.name", "extract.id", "extract.Condition")
+  res <- res %>% dplyr::select("extract.name", "extract.id", "extract.Condition", "containerid")
 
   return(res)
 }
@@ -517,10 +517,10 @@ getStartorEndLine <- function(instrument = "LUMOS_1", method = 1){
     .equal.groups()
   res <- dplyr::mutate(res, blockidx = as.vector(replicate(blocks, sprintf("%02d", c(1:elements)))))
   res <- dplyr::arrange(res, blockidx)
-  res <-   dplyr::mutate(res, randomidx = as.vector(replicate(elements, sample(1:blocks))))
-  res <-   dplyr::arrange(res, blockidx, randomidx)
+  res <- dplyr::mutate(res, randomidx = as.vector(replicate(elements, sample(1:blocks))))
+  res <- dplyr::arrange(res, blockidx, randomidx)
   res <- dplyr::filter(res, !is.na(extract.id))
-  res <- dplyr::select(res, "extract.name", "extract.id", "extract.Condition")
+  res <- dplyr::select(res, "extract.name", "extract.id", "extract.Condition", "containerid")
 
   return(res)
 }