Update 'functionsCyto.R'

This commit is contained in:
2024-04-16 20:06:53 +02:00
parent f3c2b0ca21
commit b1afba8d91
+2 -2
View File
@@ -79,8 +79,8 @@ transform_gs<-function(gs, saveparams=NULL, trans_params_obj=NULL, index=1){
names(trans_params_lin)<-log_mark_lin names(trans_params_lin)<-log_mark_lin
trans_params<-c(trans_params_lin, trans_params) trans_params<-c(trans_params_lin, trans_params)
}else{ }else{
log_mark<-colnames(gs)[!grepl("FSC|SSC|Time", colnames(gs))] log_mark<-colnames(gs)[!grepl("FS|SS|Time", colnames(gs))]
log_mark_lin<-colnames(gs)[grepl("FSC|SSC|Time", colnames(gs))] log_mark_lin<-colnames(gs)[grepl("FS|SS|Time", colnames(gs))]
} }
shiny::runApp(shiny::shinyApp( shiny::runApp(shiny::shinyApp(