From ee729cf8048a6fd08d434db41bbdec14d542fc0a Mon Sep 17 00:00:00 2001
From: Elin Waring <elin.waring@gmail.com>
Date: Sat, 9 Oct 2021 23:50:18 -0400
Subject: [PATCH] Make code descriptions editable.

---
 inst/shiny/qcoder/app.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/inst/shiny/qcoder/app.R b/inst/shiny/qcoder/app.R
index 9a91a4f..f73014d 100644
--- a/inst/shiny/qcoder/app.R
+++ b/inst/shiny/qcoder/app.R
@@ -314,6 +314,8 @@ if (interactive()) {
           if (codes_df_path == "") {return()}
           code_df <- readRDS(codes_df_path)
           DT::datatable(code_df,
+                        rownames = FALSE,
+                        editable = list(target = "cell", disable = list(columns = c(1))),
                         extensions = 'Buttons',
                         options = list(paging = TRUE, dom = 'Bfrtip',
                                   buttons = list(list(extend='copy'),