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)