add print for dbg

bigomics · Mar 6, 2024 · aeb711a · aeb711a
1 parent 596e238
commit aeb711a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R
@@ -611,9 +611,12 @@ UploadBoard <- function(id,
       list(uploaded$counts.csv, checked_counts, input$upload_wizard), {
         req(input$upload_wizard == "Counts")
         if (is.null(checked_counts()$status) || checked_counts()$status != "OK"){
+          # TODO fix condition where wizard is not locking
+          print("wizard locked in counts")
           wizardR::lock("upload_wizard")
         } else if (!is.null(checked_counts()$status) && checked_counts()$status == "OK"){
           wizardR::unlock("upload_wizard")
+          print("wizard unlocked in counts")
         }
     })
 
@@ -622,8 +625,10 @@ UploadBoard <- function(id,
       list(uploaded$samples.csv, checked_samples, input$upload_wizard), {
         req(input$upload_wizard == "Samples")
         if (is.null(checked_samples()$status) || checked_samples()$status != "OK"){
+          print("wizard locked in samples")
           wizardR::lock("upload_wizard")
         } else if (!is.null(checked_samples()$status) && checked_samples()$status == "OK"){
+          print("wizard unlocked in samples")
           wizardR::unlock("upload_wizard")
         }
     })