diff --git a/server.R b/server.R index 16f183b1e18355a7cca0b491c110a67df5cd93cf..772c78b83644c0c0146279bbd59bdd94c85d1abc 100644 --- a/server.R +++ b/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) %>%