##' @importFrom SummarizedExperiment SummarizedExperiment .poplin_to_se_coldata <- function(x) { SummarizedExperiment(colData = poplinReduced(x)) } .poplin_to_se_rowdata <- function(x) { SummarizedExperiment(rowData = poplinReduced(x)) } ##' @importFrom SummarizedExperiment Assays .poplin_to_assays <- function(x) { Assays(poplin_data_list(x)) }