R/to_delayedarray.R

In bschilder/scKirby: Automated ingestion and conversion of various single-cell data formats.

#' Convert: to \code{DelayedArray}
#'
#' @describeIn converters
#' Convert any object to \link[DelayedArray]{DelayedArray} format.
#' @inheritParams converters
#' @inheritParams get_x
#' @inheritDotParams get_x
#' @returns A \link[DelayedArray]{DelayedArray}.
#'
#' @export
#' @importFrom DelayedArray DelayedArray
#' @examples
#' obj <- data.frame(gene=paste0("gene",seq_len(10)),
#'                   matrix(data = 0,nrow=10,ncol = 20))
#' obj2 <- to_delayedarray(obj)
to_delayedarray <- function(obj,
                            verbose = TRUE,
                            ...){
  X <-  get_x(obj = obj,
              verbose = verbose,
              ...)
  lapply(X,DelayedArray::DelayedArray)
}