From 6f101b40f47764ac6ff9005f5db34d50d9722b29 Mon Sep 17 00:00:00 2001
From: hlageek <22201406+hlageek@users.noreply.github.com>
Date: Mon, 29 Apr 2024 17:36:27 +0200
Subject: [PATCH] fixes #130

---
 R/mod_document_code.R | 103 +++++++++++++++++-------------------------
 1 file changed, 42 insertions(+), 61 deletions(-)

diff --git a/R/mod_document_code.R b/R/mod_document_code.R
index 7b7a2ac..cbe7190 100644
--- a/R/mod_document_code.R
+++ b/R/mod_document_code.R
@@ -110,6 +110,7 @@ mod_document_code_server <- function(id, glob) {
     loc$highlight <- "background"
     loc$text <- ""
     loc$doc_choices <- NULL
+    loc$codes_menu <- ""
 
     observeEvent(glob$documents, {
       if (isTruthy(glob$active_project)) {
@@ -131,73 +132,53 @@ mod_document_code_server <- function(id, glob) {
         
       }
     })
+    # Doc sel or refresh ----
+    # Update loc$text when input$doc_selector or input$doc_refresh changes
+observeEvent(c(input$doc_selector, input$doc_refresh), {
+  req(isTruthy(input$doc_selector))
 
-    observeEvent(c(input$doc_selector, input$doc_refresh), {
-      req(isTruthy(input$doc_selector))
-      loc$text <- load_doc_to_display(
-        glob$pool, 
-        glob$active_project,
-        user = glob$user,
-        input$doc_selector,
-        loc$code_df$active_codebook,
-        highlight = loc$highlight,
-        ns = NS(id)
-      )
-
-      glob$segments_observer <- glob$segments_observer + 1
-      
-    })
+  loc$text <- load_doc_to_display(
+    glob$pool, 
+    glob$active_project,
+    user = glob$user,
+    input$doc_selector,
+    loc$code_df$active_codebook,
+    highlight = loc$highlight,
+    ns = NS(id)
+  )
+})
 
-    output$focal_text <- renderText({
-        loc$text
-    })
+# Update loc$codes_menu when input$doc_refresh or glob$codebook changes
+observeEvent(c(input$doc_refresh, glob$codebook), {
 
-    output$code_list <- renderUI({
-      if (isTruthy(glob$active_project)) {
-        if (isTruthy(glob$codebook)) {
-          loc$code_df$active_codebook <- glob$codebook
-        } else {
-          print("Before list_db_codes")
-          loc$code_df$active_codebook <- list_db_codes(
-            glob$pool, 
-            glob$active_project
-          )
-          print("After list_db_codes")
-        }
 
-        if (isTruthy(req(input$doc_selector))) {
-          loc$text <- load_doc_to_display(
-            glob$pool, 
-            glob$active_project,
-            user = glob$user,
-            input$doc_selector,
-            loc$code_df$active_codebook,
-            highlight = loc$highlight,
-            ns = NS(id)
-          )
-        }
+  loc$code_df$active_codebook <- list_db_codes(
+    glob$pool, 
+    glob$active_project,
+    user = glob$user
+  )
 
-        sortable::rank_list(input_id = "codes_menu",
-          labels = purrr::pmap(
-            list(
-              loc$code_df$active_codebook$code_id,
-              loc$code_df$active_codebook$code_name,
-              loc$code_df$active_codebook$code_color,
-              loc$code_df$active_codebook$code_description
-            ),
-            ~ generate_coding_tools(
-              ns = ns,
-              code_id = ..1,
-              code_name = ..2,
-              code_color = ..3,
-              code_desc = ..4)
-            )
-          )
+  loc$codes_menu <- sortable::rank_list(input_id = "codes_menu",
+    labels = purrr::pmap(
+      list(
+        loc$code_df$active_codebook$code_id,
+        loc$code_df$active_codebook$code_name,
+        loc$code_df$active_codebook$code_color,
+        loc$code_df$active_codebook$code_description
+      ),
+      ~ generate_coding_tools(
+        ns = ns,
+        code_id = ..1,
+        code_name = ..2,
+        code_color = ..3,
+        code_desc = ..4)
+      )
+    )
+})
 
-      } else {
-        ""
-      }
-    })
+    # Display text and codes
+    output$focal_text <- renderText({loc$text})
+    output$code_list <- renderUI({loc$codes_menu})
 
 
     # Coding tools ------------------------------------------------------------