Commit dd63fa9d authored by smorabit's avatar smorabit
Browse files

fixed metacells_by_groups function

parent 825d752f

R/scWGCNA.R

+2 −2
Original line number Diff line number Diff line
@@ -113,7 +113,7 @@ metacells_by_groups <- function(seurat_obj, group.by=c('seurat_clusters'), k=50, 
  for(i in 1:length(out)){

    if(length(group.by) > 1){

      cur_groups <- unlist(strsplit(groupings[i], '_'))

      for(j in length(group.by)){

      for(j in 1:length(group.by)){

        out[[groupings[i]]]@meta.data[[group.by[j]]] <- cur_groups[j]

      }

    } else{

CRA Git | Maintained and supported by SUSTech CRA and CCSE