diff --git a/functionsCyto.R b/functionsCyto.R index fa36677..3a3d98d 100644 --- a/functionsCyto.R +++ b/functionsCyto.R @@ -79,8 +79,8 @@ transform_gs<-function(gs, saveparams=NULL, trans_params_obj=NULL, index=1){ names(trans_params_lin)<-log_mark_lin trans_params<-c(trans_params_lin, trans_params) }else{ - log_mark<-colnames(gs)[!grepl("FSC|SSC|Time", colnames(gs))] - log_mark_lin<-colnames(gs)[grepl("FSC|SSC|Time", colnames(gs))] + log_mark<-colnames(gs)[!grepl("FS|SS|Time", colnames(gs))] + log_mark_lin<-colnames(gs)[grepl("FS|SS|Time", colnames(gs))] } shiny::runApp(shiny::shinyApp(