Commit b632de5d authored by Sebastien Theil's avatar Sebastien Theil
Browse files

Test lvls option.

parent 99988943
Pipeline #27739 passed with stage
in 12 seconds
......@@ -66,6 +66,21 @@ ASVenn_fun <- function(data = data, output = "./ASVenn/", rank = "ASV",
}
if(length(lvls)==0){
flog.error('You must provide levels...')
stop()
} else if(length(lvls)>5){
flog.error('Venn diagram is limited to 5 levels')
stop()
} else{
if(!all(lvls %in% na.omit(levels(as.factor(sample_data(data)[,column1]@.Data[[1]])) ))){
flog.error('Your levels are not present in metadata...')
stop()
}
}
#Nombre d'espèce par matrice
flog.info('Parsing factor ...')
level1 <- na.omit(levels(as.factor(sample_data(data)[,column1]@.Data[[1]])) )
......
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