marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Compare commits

base: marcelcosta/BDAccess:001f64cc7633f0213ae0b8357da42ec31c663450
Branches Tags
marcelcosta/BDAccess:main marcelcosta/BDAccess:dev
...
compare: marcelcosta/BDAccess:dbb8e1ed0d8e66196b4b7c91083b45a665fd47f0
Branches Tags
marcelcosta/BDAccess:main marcelcosta/BDAccess:dev

4 Commits
001f64cc76 ... dbb8e1ed0d

Author SHA1 Message Date
marcelcosta dbb8e1ed0d Merge branch 'dev' 2022-04-06 12:42:53 +02:00
marcelcosta e6c2a32ddb Corregir exportar png IC 2022-04-06 12:42:31 +02:00
marcelcosta 51acdd0ece Merge branch 'dev' 2022-04-06 12:35:16 +02:00
marcelcosta dcbf4f8b9d Canvi en l'ordre de les dependències. 2022-04-06 12:32:41 +02:00
1 changed files with 7 additions and 9 deletions
Expand all files Collapse all files
BDAccess/app.R
+7 -9
View File
@@ -1,17 +1,15 @@
library(shiny) library(shiny)
library(rhandsontable) library(rhandsontable)
library(tidyverse)
library(reshape2)
library(Matrix)
library(CitFuns)
library(BDCIT)
library(openCyto) library(openCyto)
library(flowCore) library(flowCore)
library(flowWorkspace) library(flowWorkspace)
library(CytoML) library(CytoML)
library(ggcyto) library(ggcyto)
library(reshape2)
filter<-dplyr::filter library(Matrix)
library(CitFuns)
library(BDCIT)
library(tidyverse)
print(getwd()) print(getwd())
source("../sqlFunctions.R", encoding = "UTF-8") source("../sqlFunctions.R", encoding = "UTF-8")
@@ -1027,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))] iso<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("iso|Iso|ISO",sampleNames(gs))]
ab<-sampleNames(gs)[grepl(id, sampleNames(gs)) & grepl("ab",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)