R/check_varm.R

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

check_varm <- function(varm,
                       X){
  if(!is.null(varm)){
    varm <- lapply(varm,function(x){
      #### Transpose ####
      x <- Matrix::t(x)
      #### anndata requires the dims to match ####
      if(ncol(x)!=ncol(X)){
        return(NULL)
      } else {
        return(x)
      }
    })
    varm[sapply(varm, is.null)] <- NULL
  } else {
    varm <- NULL
  }
  return(varm)
}