|
|
|
@ -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( |
|
|
|
|
