Bugfix/codebook export (#126)

* Update export when code category map changes

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: requal
 Title: Shiny Application for Computer-Assisted Qualitative Data Analysis
-Version: 1.1.0
+Version: 1.1.0.9001
 Authors@R:
     c(
      person(given = "Radim",

NEWS.md

@@ -1,5 +1,6 @@
-# requal 1.0.1
+# requal 1.1.0
 
+- update UI
 - add codebook export
 - implement shinytest2 tests (see DEV-NOTES.md)
 

R/mod_categories.R

@@ -78,9 +78,6 @@ mod_categories_server <- function(id, glob) {
       )
     })
 
-
-
-
     # List existing codes in code boxes -------------------
     output$uncategorized <- renderUI({
       glob$codebook
@@ -213,6 +210,9 @@ mod_categories_server <- function(id, glob) {
             user_id = glob$user$user_id,
             edge = input$edges_category
           )
+
+          glob$category_code_map <- read_category_edges(
+            glob$pool, glob$active_project)
         } else {
           warn_user("You don't have permissions for modifying codes and categories created by others.")
           # TODO: delete code from category
@@ -225,6 +225,9 @@ mod_categories_server <- function(id, glob) {
           user_id = glob$user$user_id,
           edge = input$edges_category
         )
+
+        glob$category_code_map <- read_category_edges(
+          glob$pool, glob$active_project)
       }
     })
 
@@ -236,6 +239,9 @@ mod_categories_server <- function(id, glob) {
         user_id = glob$user$user_id,
         edge = input$edges_category_delete
       )
+
+      glob$category_code_map <- read_category_edges(
+        glob$pool, glob$active_project)
     })
 
     # return active categories details in glob$category ----

R/mod_categories_utils_categories.R

@@ -105,7 +105,6 @@ render_categories <- function(id, pool,
 }
 
 # Read categories--------------------------------------------------------
-
 read_db_categories <- function(pool, active_project, user) {
     category_id <- category_description <- category_name <- NULL
 
@@ -131,6 +130,16 @@ read_db_categories <- function(pool, active_project, user) {
     return(project_categories)
 }
 
+read_category_edges <- function(pool, active_project){
+    dplyr::tbl(pool, "categories_codes_map") %>%
+        dplyr::filter(.data$project_id == as.integer(.env$active_project)) %>%
+        dplyr::select(
+            category_id,
+            code_id
+        ) %>%
+        dplyr::collect()
+}
+
 # List categories--------------------------------------------------------
 
 
@@ -253,7 +262,6 @@ add_category_code_record <- function(pool,
 }
 
 # delete edge record -----
-
 delete_category_code_record <- function(pool,
                                         active_project,
                                         edge, 

R/mod_csv_handler.R

@@ -41,10 +41,11 @@ get_codebook_export_table <- function(glob){
       category_name)) %>% 
     dplyr::select(-c(category_name, category_description))
 
-  dplyr::tbl(glob$pool, "categories_codes_map") %>% 
+  categories_map <- dplyr::tbl(glob$pool, "categories_codes_map") %>% 
     dplyr::collect() %>% 
-    dplyr::inner_join(categories, by = "category_id") %>% 
-    dplyr::left_join(glob$codebook, by = "code_id") %>% 
+    dplyr::inner_join(categories, by = "category_id") 
+
+  dplyr::left_join(glob$codebook, categories_map, by = "code_id") %>% 
     dplyr::group_by(code_id, code_name, code_description) %>% 
     dplyr::summarise(categories = paste0(category_title, collapse = ", "))
 }
@@ -56,15 +57,19 @@ mod_download_csv_server <- function(id, glob){
   moduleServer(id, function(input, output, session){
     ns <- session$ns
 
-    output$download_analysis <- handle_download(
-      paste0("requal_export-", format(Sys.time(), "%Y-%m-%d-%H%M%S"), ".csv"), 
-      glob$segments_df
-    )
+    observeEvent(glob$segments_df, {
+      output$download_analysis <- handle_download(
+        paste0("requal_export-", format(Sys.time(), "%Y-%m-%d-%H%M%S"), ".csv"), 
+        glob$segments_df
+      )
+    })
 
-    output$download_codebook <- handle_download(
-      paste0("requal_codebook_export-", format(Sys.time(), "%Y-%m-%d-%H%M%S"), ".csv"), 
-      get_codebook_export_table(glob)
-    )
+    observeEvent(c(glob$codebook, glob$category, glob$category_code_map), {
+      output$download_codebook <- handle_download(
+        paste0("requal_codebook_export-", format(Sys.time(), "%Y-%m-%d-%H%M%S"), ".csv"), 
+        get_codebook_export_table(glob)
+      )
+    })
   })
 }