nf xsave runDGEA

vertesy · Jun 6, 2024 · 8ab695e · 8ab695e
1 parent 2cc9940
commit 8ab695e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/R/Seurat.Utils.R b/R/Seurat.Utils.R
@@ -4485,17 +4485,15 @@ xsave <- function(
   ), whitespace = "_")
 
   FNN <- paste0(dir, fnameBase, ".qs")
-  message(substitute(obj), " <- xread('", FNN, "')")
+  CMND <- paste0(substitute(obj), " <- xread('", FNN, "')")
+  message(CMND)
 
   if ("Seurat" %in% is(obj)) {
     if (saveParams) {
       if (exists("paramList")) try(obj@misc$"p" <- paramList, silent = TRUE)
       if (exists("allGenes")) try(obj@misc$"all.genes" <- allGenes, silent = TRUE)
     }
-    if (saveLocation) {
-      loc <- 1
-      try(obj@misc$"file.location" <- loc, silent = TRUE)
-    }
+    if (saveLocation) try(obj@misc$"file.location" <- CMND, silent = TRUE)
   }
 
 

diff --git a/man/runDGEA.Rd b/man/runDGEA.Rd