Tweak table rendering

2025-10-26 19:57:24 +01:00 · 2022-05-12 13:24:27 +02:00 · 2022-05-12 13:24:27 +02:00 · 92b5e08dc1
commit 92b5e08dc1
parent 1e666d6fa7
1 changed files with 17 additions and 2 deletions
--- a/R/server.R
+++ b/R/server.R
@ -106,9 +106,24 @@ genes_table <- function(data) {

    DT::datatable(
        data,
-        options = list(pageLength = 100),
+        options = list(
+            buttons = list(
+                list(
+                    extend = "copy",
+                    text = "Copy to clipboard"
+                ),
+                list(
+                    extend = "csv",
+                    text = "Download CSV"
+                )
+            ),
+            dom = "fBrtip",
+            pageLength = 100
+        ),
        rownames = FALSE,
-        escape = FALSE
+        escape = FALSE,
+        selection = "none",
+        extensions = "Buttons"
    ) |>
        DT::formatPercentage(
            c(