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() %>%