From 9c7c46ca362697e3cef9a86292a0539859e9c730 Mon Sep 17 00:00:00 2001
From: edward-burn <9583964+edward-burn@users.noreply.github.com>
Date: Wed, 4 Dec 2024 12:05:10 +0000
Subject: [PATCH] descending order by percentage

---
 inst/shiny/server.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/inst/shiny/server.R b/inst/shiny/server.R
index 7dc00ff..b463487 100644
--- a/inst/shiny/server.R
+++ b/inst/shiny/server.R
@@ -635,7 +635,8 @@ server <- function(input, output, session) {
   })
   output$summarise_large_scale_characteristics_tidy <- DT::renderDT({
     DT::datatable(
-      getTidyDataSummariseLargeScaleCharacteristics(),
+      getTidyDataSummariseLargeScaleCharacteristics() |> 
+        dplyr::arrange(dplyr::desc(percentage)),
       options = list(scrollX = TRUE),
       rownames = FALSE
     )