feat: make sure row is selected

bigomics · Oct 15, 2024 · cc523e0 · cc523e0
1 parent d364fee
commit cc523e0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/components/board.loading/R/loading_table_datasets.R b/components/board.loading/R/loading_table_datasets.R
@@ -226,6 +226,10 @@ loading_table_datasets_server <- function(id,
 
     shiny::observeEvent(loadbutton(), {
       pgxfile <- table_selected_pgx()
+      # Make sure there is a row selected
+      if (is.null(pgxfile)) {
+        return(NULL)
+      }
       pgxfilename <- file.path(auth$user_dir, pgxfile)
       if (!file.exists(pgxfilename)) {
         message("[LoadingBoard@load_react] ERROR pgxfile not found : ", pgxfilename, "\n")