From 489774b972d2f2373986c91a31d1508628722396 Mon Sep 17 00:00:00 2001 From: ivokwee Date: Thu, 16 Mar 2023 12:10:42 +0100 Subject: [PATCH] add loading dbg output --- components/board.loading/R/loading_server.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/components/board.loading/R/loading_server.R b/components/board.loading/R/loading_server.R index 5bcb87fae..05bfbbb12 100644 --- 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)