tableGlom

panels/Summary-server.R

@@ -61,7 +61,7 @@ output$tableGlom <- DT::renderDataTable(server = FALSE, {
   taxTableGlom <- Glom %>%
     tax_table() %>%
     as.data.frame(stringsAsFactors = FALSE) %>%
-    dplyr::select(input$glomRank:1) %>%
+    dplyr::select(1:input$glomRank) %>%
     tibble::rownames_to_column()
   otuTableGlom <- Glom %>%
     otu_table() %>%