Merge pull request #1023 from jiajic/suite_dev

chore: cleanup some remaining dep accessors
drieslab · Sep 13, 2024 · c699ba6 · c699ba6
2 parents 15c4fb9 + efbfb3d
commit c699ba6
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 16 deletions.
diff --git a/R/auxiliary_giotto.R b/R/auxiliary_giotto.R
@@ -1763,10 +1763,7 @@ addCellStatistics <- function(
             )
             cell_metadata[][, c("nr_feats", "perc_feats", "total_expr") := NULL]
             ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-            gobject <- set_cell_metadata(gobject,
-                metadata = cell_metadata,
-                verbose = FALSE
-            )
+            gobject <- setGiotto(gobject, cell_metadata, verbose = FALSE)
             ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
         }
 

diff --git a/R/differential_expression.R b/R/differential_expression.R
@@ -512,10 +512,7 @@ findGiniMarkers <- function(
         )
 
         ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-        gobject <- set_cell_metadata(gobject,
-            metadata = cell_metadata,
-            verbose = FALSE
-        )
+        gobject <- setGiotto(gobject, cell_metadata, verbose = FALSE)
         ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
     }
 
@@ -907,10 +904,7 @@ findMastMarkers <- function(
     )
 
     ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-    gobject <- set_cell_metadata(gobject,
-        metadata = cell_metadata,
-        verbose = FALSE
-    )
+    gobject <- setGiotto(gobject, cell_metadata, verbose = FALSE)
     ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
 
 

diff --git a/R/spatial_interaction.R b/R/spatial_interaction.R
@@ -427,10 +427,7 @@ addCellIntMetadata <- function(gobject,
 
     if (return_gobject == TRUE) {
         ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
-        gobject <- set_cell_metadata(gobject,
-            metadata = cell_metadata,
-            verbose = FALSE
-        )
+        gobject <- setGiotto(gobject, cell_metadata, verbose = FALSE)
         ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ### ###
 
         ## update parameters used ##