Commit f3e618b2 authored by Amine  GHOZLANE's avatar Amine GHOZLANE

Remove missing levels

parent b2b05954
Pipeline #48498 failed with stages
in 45 minutes and 3 seconds
......@@ -312,6 +312,8 @@ shinyServer(function(input, output,session) {
if(!is.null(tmpEpi2me) && is.null(data))
{
tmpEpi2me = tmpEpi2me[which(tmpEpi2me$accuracy >= as.numeric(input$Epi2me_th) & !is.na(tmpEpi2me$barcode) ),]
# remove missing levels
tmpEpi2me = droplevels(tmpEpi2me)
tmp = plyr::count(tmpEpi2me,c("barcode", "genus", "species"))
tmp$ids = paste(tmp$genus, tmp$species, sep="|")
tmp$index = paste0("Seq_",match(tmp$ids, unique(tmp$ids)))
......
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