fix plot_STclusters

FridleyLab · Aug 4, 2021 · 189e60d · 189e60d
1 parent abe703d
commit 189e60d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_STclusters.R b/R/plot_STclusters.R
@@ -41,7 +41,7 @@ plot_STclusters <- function(x, plot_who=NULL, purity=F, color_pal='light', visiu
 
   for(i in subjs){
 
-    subj_listid <- grep(paste0("sub", i, '$'), names(x@st_clusters$clust_dfs), value=T)
+    subj_listid <- grep(paste0("sub", i, "_"), names(x@st_clusters$clust_dfs), value=T)
 
     for(s in subj_listid){