From e6c2a32ddb355d0a72dce90da57f6887769761c4 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Wed, 6 Apr 2022 12:42:31 +0200 Subject: [PATCH] Corregir exportar png IC --- BDAccess/app.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/BDAccess/app.R b/BDAccess/app.R index 77225cb..33f9d25 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -1025,8 +1025,8 @@ server <- function(input, output) { for (id in names){ print(id) - iso<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("iso",sampleNames(gs))] - ab<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("ab",sampleNames(gs))] + iso<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("iso|Iso|ISO",sampleNames(gs))] + ab<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("ab|Ab|AB",sampleNames(gs))] g1<-ggcyto_arrange(autoplot(gs[[ab]], nodes_parent, bins=128), nrow=1) g2<-ggcyto_arrange(autoplot(gs[[iso]], nodes_cd8, bins=64), nrow=1)