From 48fc33ab07bcd235fd3a811a08213e6102714594 Mon Sep 17 00:00:00 2001
From: samuel-marsh <samuel.marsh@childrens.harvard.edu>
Date: Wed, 25 Sep 2024 13:27:01 -0400
Subject: [PATCH] fix setting default

---
 R/embedding.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/embedding.R b/R/embedding.R
index c6681866..c21eec3d 100644
--- a/R/embedding.R
+++ b/R/embedding.R
@@ -82,6 +82,7 @@ runUMAP <- function(
                        min_dist = minDist)
     if (isTRUE(verbose)) cli::cli_process_done()
     dimRed(object, dimredName) <- umap
+    defaultDimRed(object) <- dimredName
     if (isTRUE(verbose))
         cli::cli_alert_info("{.field DimRed} {.val {dimredName}} is now set as default.")
     return(object)
@@ -184,6 +185,7 @@ runTSNE <- function(
     }
     if (isTRUE(verbose)) cli::cli_process_done()
     dimRed(object, dimredName) <- tsne
+    defaultDimRed(object) <- dimredName
     object@uns$TSNE <- list(method = method)
     if (isTRUE(verbose))
         cli::cli_alert_info("{.field DimRed} {.val {dimredName}} is now set as default.")