|
|
@ -1025,8 +1025,8 @@ server <- function(input, output) { |
|
|
|
|
|
|
|
|
for (id in names){ |
|
|
for (id in names){ |
|
|
print(id) |
|
|
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) |
|
|
g1<-ggcyto_arrange(autoplot(gs[[ab]], nodes_parent, bins=128), nrow=1) |
|
|
g2<-ggcyto_arrange(autoplot(gs[[iso]], nodes_cd8, bins=64), nrow=1) |
|
|
g2<-ggcyto_arrange(autoplot(gs[[iso]], nodes_cd8, bins=64), nrow=1) |
|
|
|
