From 92b5e08dc19e96f1966e33293bbf8e2cca39620c Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 12 May 2022 13:24:27 +0200
Subject: [PATCH] Tweak table rendering

---
 R/server.R | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/R/server.R b/R/server.R
index fa9a735..ea45305 100644
--- 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(