From 189e60d0e90b9679c54e871b48329a869cf7cc37 Mon Sep 17 00:00:00 2001
From: oscarospina <oscaredd_ol@yahoo.es>
Date: Wed, 4 Aug 2021 16:41:23 -0400
Subject: [PATCH] fix plot_STclusters

---
 R/plot_STclusters.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot_STclusters.R b/R/plot_STclusters.R
index cf4ab53..c7a838f 100755
--- 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){