Merge branch 'main' of https://git.ratg.cat/marcelcosta/CytoR

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(