NArm=FALSE dans tableGlom

server.R

@@ -220,7 +220,7 @@ shinyServer
   })
   
   output$tableGlom <- DT::renderDataTable(server = FALSE, {
-    Glom <- tax_glom(data16S(), input$glomRank)
+    Glom <- tax_glom(data16S(), input$glomRank, NArm=FALSE)
     taxTableGlom <- Glom %>%
       tax_table() %>%
       as.data.frame(stringsAsFactors = FALSE) %>%