make loadFraserDataSet compatible with really old versions of FRASER

gagneurlab · Jan 15, 2025 · 6bff84e · 6bff84e
1 parent ee6f279
commit 6bff84e
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/R/saveHDF5Objects.R b/R/saveHDF5Objects.R
@@ -116,8 +116,16 @@ loadFraserDataSet <- function(dir, name=NULL, file=NULL, upgrade=FALSE){
             path(assay(fds, aname, withDimnames=FALSE)) <- afile
         } else if("DelayedMatrix" == 
                     class(assay(fds, aname, withDimnames=FALSE))){
-            slot(slot(slot(assay(fds, aname, withDimnames=FALSE), 
-                    "seed"), "seed"), "filepath") <- afile
+	    tryCatch(
+		{
+                    slot(slot(slot(assay(fds, aname, withDimnames=FALSE), 
+                        "seed"), "seed"), "filepath") <- afile
+	        },
+	        error = function(e) {
+		    slot(slot(slot(slot(assay(fds, aname, withDimnames = FALSE),
+                        "seed"), "seed"), "seed"), "filepath") <- afile
+	        }
+	    )   
         # if its a HDF5 matrix we have one seed less
         } else {
             slot(slot(assay(fds, aname, withDimnames=FALSE),