Test lvls option.

R/ASVenn_fun.R

@@ -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]])) )