typo

  }

  # get the metadata from the seurat object:

  print('here')

  seurat_meta <- s_obj@meta.data

  # columns to group by for cluster/celltype

  text_color = 'black',

  text_digits = 3,

  combine = TRUE,

  wgcna_name = NULL,

  flip_coords =

  wgcna_name = NULL

){

  if(is.null(wgcna_name)){wgcna_name <- seurat_obj@misc$active_wgcna}