R/aslist.R

In connorhknight/IBRAP: Integrated Benchmarking scRNA-seq Analytical Pipeline (IBRAP)

#' @name as_list_methods
#' 
#' @title Method override for as.list function regarding methods S4 object
#' 
#' @exportMethod as.list

setMethod(f = 'as.list', signature = 'methods',
          function(x) {
            
            new.list <- list(counts = x@counts, 
                             normalised = x@normalised, 
                             norm.scaled = x@norm.scaled,
                             highly.variable.genes = x@highly.variable.genes,
                             feature_metadata = x@feature_metadata,
                             neighbours = x@neighbours,
                             computational_reductions = x@computational_reductions,
                             integration_reductions = x@integration_reductions,
                             visualisation_reductions = x@visualisation_reductions,
                             cluster_assignments = x@cluster_assignments,
                             benchmark_results = x@benchmark_results)
            return(new.list)
            
          })