...

vertesy · Nov 7, 2024 · 44c041b · 44c041b
1 parent b43f890
commit 44c041b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/Seurat.Utils.Metadata.R b/R/Seurat.Utils.Metadata.R
@@ -934,7 +934,13 @@ transferMetadata <- function(from, to,
 
     # Plot umap _______________________________________________________
     if (plotUMAP) {
-      x <- clUMAP(obj = to, ident = colnames_to[i], suffix = "transferred.ident", ...)
+      metaX <- getMetadataColumn(col = colnames_to[i], obj = to)
+
+      if(is.numeric(metaX) && nr.unique(metaX) > 10) {
+        x <- qUMAP(obj = to, feature = colnames_to[i], suffix = "transferred.ident", ...)
+      } else {
+        x <- clUMAP(obj = to, ident = colnames_to[i], suffix = "transferred.ident", ...)
+      }
       print(x)
     }
   } # for

diff --git a/R/Seurat.Utils.R b/R/Seurat.Utils.R
@@ -4809,7 +4809,7 @@ xsave <- function(
   ), whitespace = "_")
 
   FNN <- paste0(dir, fnameBase, ".qs")
-  CMND <- paste0(substitute_deparse(obj), " <- xread('", FNN, "')")
+  CMND <- paste0(substitute(obj), " <- xread('", FNN, "')")
   if (v) message(CMND)
 
   if ("Seurat" %in% is(obj)) {