setdatexpr bugfix

Package: hdWGCNA

Title: hdWGCNA

Version: 0.2.22

Version: 0.2.23

Authors@R: c(

    person("Sam", "Morabito", , "smorabit@uci.edu", role = c("aut", "cre"),

           comment = c(ORCID = "0000-0002-7768-4856")),

# hdWGCNA 0.2.23 (2023-09-10)

## Added

- None 

## Changes

- Fixed bug in SetDatExpr

# hdWGCNA 0.2.22 (2023-09-08)

## Added

- New tutorial for hdWGCNA with pseudobulk data, including some new functions like `ConstructPseudobulk`. 

  }  

  if(is.null(assay)){

      assay <- DefaultAssay(s_obj)

      assay <- DefaultAssay(seurat_obj)

      warning(paste0('assay not specified, trying to use assay ', assay))

  }

    stop('Invalid choice of slot. Valid choices are counts, data, or scale.data.')

  }

  # check that group.by is valid 

  if(!(group.by %in% names(seurat_obj@meta.data))){

    stop(paste0(group.by, ' not found in seurat_obj@meta.data.'))

  }

  if(!(class(seurat_obj@meta.data[,group.by]) %in% c('character', 'factor'))){

    stop('Selected group.by must be a character or a factor, but ', group.by, ' is a ', class(seurat_obj@meta.data[,group.by]), '.')

  }

    # check that multi.group.by is valid 

  if(!(multi.group.by %in% names(seurat_obj@meta.data))){

    stop(paste0(multi.group.by, ' not found in seurat_obj@meta.data.'))

  }

  if(!(class(seurat_obj@meta.data[,multi.group.by]) %in% c('character', 'factor'))){

    stop('Selected group.by must be a character or a factor, but ', group.by, ' is a ', class(seurat_obj@meta.data[,group.by]), '.')

  }

  # get parameters from seurat object

  params <- GetWGCNAParams(seurat_obj, wgcna_name)

  genes_use <- GetWGCNAGenes(seurat_obj, wgcna_name)

      </button>

      <span class="navbar-brand">

        <a class="navbar-link" href="https://smorabit.github.io/hdWGCNA/index.html">hdWGCNA</a>

        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="">0.2.22</span>

        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="">0.2.23</span>

      </span>

    </div>

      </button>

      <span class="navbar-brand">

        <a class="navbar-link" href="index.html">hdWGCNA</a>

        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="">0.2.22</span>

        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="">0.2.23</span>

      </span>

    </div>