add loading dbg output

bigomics · Mar 16, 2023 · 489774b · 489774b
1 parent 03128f6
commit 489774b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/components/board.loading/R/loading_server.R b/components/board.loading/R/loading_server.R
@@ -359,9 +359,11 @@ LoadingBoard <- function(id,
 
       pgx <- NULL
       if (file.exists(pgxfile1)) {
+        dbg("[loading_server.R] loading pgx file = ",pgxfile1)
         shiny::withProgress(message = "Loading data...", value = 0.33, {
           pgx <- local(get(load(pgxfile1, verbose = 0))) ## override any name
         })
+        dbg("[loading_server.R] loading finished")
       } else {
         warning("[LoadingBoard::loadPGX] ***ERROR*** file not found : ", pgxfile)
         return(NULL)