diff --git a/panels/Summary-server.R b/panels/Summary-server.R
index 0706a348c4756bc7589db457f27d8f079e701927..b58a783972604f52014b896b3c5815d7364d7387 100644
--- a/panels/Summary-server.R
+++ b/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() %>%