S5.Simulate.Rnd.Networks.sc6_21.R

NAMESPACE

@@ -154,7 +154,7 @@ export(transfer_labels_seurat)
 export(umapHiLightSel)
 export(umapNamedClusters)
 export(whitelist.subset.ls.Seurat)
-export(writeMetadataToTsv)
+export(writeCombinedMetadataToTsvFromLsObj)
 export(ww.calc_helper)
 export(ww.check.if.3D.reduction.exist)
 export(ww.check.quantile.cutoff.and.clip.outliers)

R/Seurat.Utils.Metadata.R

@@ -559,7 +559,7 @@ set.all.genes <- function(obj = combined.obj) iprint("Use calc.q99.Expression.an
 #' @title Combine Metadata from a list of Seurat objects and Write to TSV
 #'
 #' @description
-#' `writeMetadataToTsv` takes a list of ls.Obj, extracts their `@meta.data` slots,
+#' Formerly `writeMetadataToTsv`. `writeCombinedMetadataToTsvFromLsObj` takes a list of ls.Obj, extracts their `@meta.data` slots,
 #' removes specified columns, checks for column consistency, creates a barplot showing the number
 #' of rows per object, and finally merges these into one large data frame.
 #'

R/Seurat.Utils.R

@@ -3580,6 +3580,8 @@ xsave <- function(
     background_job = FALSE,
     showMemObject = TRUE, saveParams = TRUE) {
 
+  message(nthreads, " threads.")
+
   try(tictoc::tic(), silent = TRUE)
   if (showMemObject) {
     try(memory.biggest.objects(), silent = TRUE)