Commit cd2ee6a5 authored by Etienne Rifa's avatar Etienne Rifa
Browse files

another specific fix

parent ee8ccf15
Pipeline #40907 passed with stage
in 14 seconds
......@@ -56,7 +56,7 @@ deseq2_fun <- function(data = data, output = "./deseq/", column1 = "", verbose =
# quit()
flog.info('Defining comparison...')
if(comp==""){
fun <- paste('combinaisons <- as.matrix( as.data.frame( utils::combn(na.omit(unique(sample_data(data.glom)$',column1,')),2) ))',sep='')
fun <- paste('combinaisons <- utils::combn( as.character( na.omit(unique(sample_data(data.glom)$',column1,')) ),2)',sep='')
eval(parse(text=fun))
}else{
comp_list <- unlist(strsplit(comp,","))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment