From 56484a5903d0bf9b19efc9fec12e67277f2f04ea Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Wed, 20 Apr 2022 12:13:27 +0200 Subject: [PATCH] =?UTF-8?q?Volver=20a=20meter=20unas=20l=C3=ADnias=20borra?= =?UTF-8?q?das=20por=20error.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- BDAccess/app.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/BDAccess/app.R b/BDAccess/app.R index 1c89fba..e1b54fe 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -1169,6 +1169,11 @@ server <- function(input, output) { # plot.margin = margin(-200,0,0,0), axis.text = element_blank()) + nodes<-gs_get_pop_paths(gs) + nodes_parent<-nodes[!grepl("CTLA4|LAG3|PD1|TIGIT|TIM3|root$", nodes)] + nodes_cd4<-nodes[grepl("CTLA4$|LAG3$|PD1$|TIGIT$|TIM3$", nodes) & grepl("/CD4/",nodes)] + nodes_cd8<-nodes[grepl("CTLA4$|LAG3$|PD1$|TIGIT$|TIM3$", nodes) & grepl("/CD8/",nodes)] + # g1<-ggcyto_arrange(autoplot(gs[[ab]], nodes_parent, bins=128), nrow=1) # g2<-ggcyto_arrange(autoplot(gs[[iso]], nodes_cd8, bins=64), nrow=1) # g3<-ggcyto_arrange(autoplot(gs[[ab]], nodes_cd8, bins=64), nrow=1)