biopipen 0.23.5__tar.gz → 0.23.6__tar.gz

{biopipen-0.23.5 → biopipen-0.23.6}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.1
 Name: biopipen
-Version: 0.23.5
+Version: 0.23.6
 Summary: Bioinformatics processes/pipelines that can be run from `pipen run`
 License: MIT
 Author: pwwang

biopipen-0.23.6/biopipen/__init__.py

@@ -0,0 +1 @@
+__version__ = "0.23.6"

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/ns/scrna.py

@@ -77,6 +77,7 @@ class SeuratPreparing(Proc):
 
     /// Note
     When using `SCTransform`, the default Assay will be set to `SCT` in output, rather than `RNA`.
+    If you are using `cca` or `rpca` interation, the default assay will be `integrated`.
     ///
 
     /// Note
@@ -771,6 +772,10 @@ class ModuleScoreCalculator(Proc):
             >>>     "Proliferation": {"features": "STMN1,TUBB"}
             >>> }
 
+            For `CellCycle`, the columns `S.Score`, `G2M.Score` and `Phase` will
+            be added to the metadata. `S.Score` and `G2M.Score` are the cell cycle
+            scores for each cell, and `Phase` is the cell cycle phase for each cell.
+
             You can also add Diffusion Components (DC) to the modules
             >>> {"DC": {"features": 2, "kind": "diffmap"}}
             will perform diffusion map as a reduction and add the first 2
@@ -1460,7 +1465,8 @@ class ScFGSEA(Proc):
         each: The column name in metadata to separate the cells into different subsets to do the analysis.
         section: The section name for the report. Worked only when `each` is not specified. Otherwise, the section name will be constructed from `each` and its value.
             This allows different cases to be put into the same section in the report.
-        gmtfile: The pathways in GMT format, with the gene names/ids in the same format as the seurat object
+        gmtfile: The pathways in GMT format, with the gene names/ids in the same format as the seurat object.
+            One could also use a URL to a GMT file. For example, from <https://download.baderlab.org/EM_Genesets/current_release/Human/symbol/Pathways/>.
         method (choice): The method to do the preranking.
             - signal_to_noise: Signal to noise.
                 The larger the differences of the means (scaled by the standard deviations);

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/ns/scrna_metabolic_landscape.py

@@ -402,7 +402,10 @@ class ScrnaMetabolicLandscape(ProcGroup):
             If False, the values will be left as is.
         gmtfile: The GMT file with the metabolic pathways. The gene names should
             match the gene names in the gene list in RNAData or
-            the Seurat object
+            the Seurat object.
+            You can also provide a URL to the GMT file.
+            For example, from
+            <https://download.baderlab.org/EM_Genesets/current_release/Human/symbol/>.
         grouping: defines the basic groups to investigate the metabolic activity
             Typically the clusters.
         grouping_prefix: Working as a prefix to group names

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna/SeuratClustering.R

@@ -143,6 +143,7 @@ if (is.null(resolution) || length(resolution) == 1) {
 }
 
 if (DefaultAssay(sobj) == "SCT") {
+    # https://github.com/satijalab/seurat/issues/6968
     log_info("Running PrepSCTFindMarkers ...")
     sobj <- PrepSCTFindMarkers(sobj)
 }

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna/SeuratPreparing.R

@@ -101,7 +101,6 @@ load_sample = function(sample) {
     # filter the cells that don't have any gene expressions
     cell_exprs = colSums(obj@assays$RNA)
     obj = subset(obj, cells = names(cell_exprs[cell_exprs > 0]))
-    # obj = SCTransform(object=obj, return.only.var.genes=FALSE, verbose=FALSE)
     obj = RenameCells(obj, add.cell.id = sample)
     # Attach meta data
     for (mname in names(mdata)) {
@@ -110,9 +109,15 @@ load_sample = function(sample) {
         if (is.factor(mdt)) { mdt = levels(mdt)[mdt] }
         obj[[mname]] = mdt
     }
-    # obj_list[[sample]] = obj
 
-    # obj_list
+    if (isTRUE(envs$use_sct)) {
+        # so that we have data and scale.data layers on RNA assay
+        # useful for visualization in case some genes are not in
+        # the SCT assay
+        obj = NormalizeData(obj, verbose = FALSE)
+        obj = FindVariableFeatures(obj, verbose = FALSE)
+        obj = ScaleData(obj, verbose = FALSE)
+    }
     obj
 }
 
@@ -329,6 +334,11 @@ if (!envs$no_integration) {
     IntegrateLayersArgs <- envs$IntegrateLayers
     IntegrateLayersArgs$object <- sobj
     method <- IntegrateLayersArgs$method
+    if (!is.null(IntegrateLayersArgs$reference) && is.character(IntegrateLayersArgs$reference)) {
+        log_info("  Using reference samples: {paste(IntegrateLayersArgs$reference, collapse = ', ')}")
+        IntegrateLayersArgs$reference <- match(IntegrateLayersArgs$reference, samples)
+        log_info("  Transferred to indices: {paste(IntegrateLayersArgs$reference, collapse = ', ')}")
+    }
     if (method %in% c("CCA", "cca")) { method <- "CCAIntegration" } else
     if (method %in% c("RPCA", "rpca")) { method <- "RPCAIntegration" } else
     if (method %in% c("Harmony", "harmony")) { method <- "HarmonyIntegration" } else

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna_metabolic_landscape/MetabolicFeatures.R

@@ -36,6 +36,7 @@ gmt_pathways <- function(gmt_file) {
     pathways
 }
 
+gmtfile <- localizeGmtfile(gmtfile)
 pathways <- gmt_pathways(gmtfile)
 metabolics <- unique(as.vector(unname(unlist(pathways))))
 sobj <- readRDS(sobjfile)

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna_metabolic_landscape/MetabolicFeaturesIntraSubset.R

@@ -38,6 +38,7 @@ gmt_pathways <- function(gmt_file) {
     pathways
 }
 
+gmtfile <- localizeGmtfile(gmtfile)
 pathways <- gmt_pathways(gmtfile)
 metabolics <- unique(as.vector(unname(unlist(pathways))))
 sobj <- readRDS(sobjfile)

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna_metabolic_landscape/MetabolicPathwayActivity.R

@@ -39,6 +39,7 @@ gmt_pathways <- function(gmt_file) {
     pathways
 }
 
+gmtfile <- localizeGmtfile(gmtfile)
 pathways <- gmt_pathways(gmtfile)
 pathway_names <- names(pathways)
 metabolics <- unique(as.vector(unname(unlist(pathways))))

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/scrna_metabolic_landscape/MetabolicPathwayHeterogeneity.R

@@ -41,6 +41,7 @@ gmt_pathways <- function(gmt_file) {
     pathways
 }
 
+gmtfile <- localizeGmtfile(gmtfile)
 pathways <- gmt_pathways(gmtfile)
 metabolics <- unique(as.vector(unname(unlist(pathways))))
 sobj <- readRDS(sobjfile)

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/scripts/tcr/Immunarch-diversity.R

@@ -647,6 +647,12 @@ run_div_case = function(casename) {
     # Filter
     if (!is.null(case$subset)) {
         d = immdata_from_expanded(filter_expanded_immdata(exdata, case$subset))
+        if (nrow(d$meta) == 0) {
+            stop(paste0(
+                "No samples/cells left after filtering. ",
+                "Do you have the correct `subset` for case: ",
+                casename, "?"))
+        }
     } else {
         d = immdata
     }

{biopipen-0.23.5 → biopipen-0.23.6}/biopipen/utils/gsea.R

@@ -1,8 +1,48 @@
 library(ggplot2)
 library(dplyr)
 library(tibble)
+library(slugify)
 
-prerank = function(
+
+localizeGmtfile <- function(gmturl, cachedir = tempdir()) {
+    # Download the GMT file and save it to cachedir
+    # Return the path to the GMT file
+    if (!startsWith(gmturl, "http") && !startsWith(gmturl, "ftp")) {
+        return(gmturl)
+    }
+    gmtfile = file.path(cachedir, basename(gmturl))
+    if (!file.exists(gmtfile)) {
+        download.file(gmturl, gmtfile)
+        items <- read.delim(gmtfile, header = FALSE, stringsAsFactors = FALSE, sep = "\t")
+        if (ncol(items) < 3) {
+            stop(paste0("Invalid GMT file: ", gmtfile, ", from ", gmturl))
+        }
+        if (nrow(items) == 0) {
+            stop(paste0("Empty GMT file: ", gmtfile, ", from ", gmturl))
+        }
+        if (nchar(items$V2[1]) < nchar(items$V1[1]) && nchar(items$V2[1]) > 0) {
+            warning(paste0(
+                "The second column is shorter, switching the first and second columns in GMT file ",
+                gmtfile,
+                " from ",
+                gmturl
+            ))
+            items <- items[, c(2, 1, 3:ncol(items))]
+            write.table(
+                items,
+                gmtfile,
+                row.names = F,
+                col.names = F,
+                sep = "\t",
+                quote = F
+            )
+        }
+    }
+    return(gmtfile)
+}
+
+
+prerank <- function(
     exprdata,
     pos,
     neg,
@@ -100,6 +140,7 @@ runFGSEA = function(
         ranks = unlist(ranks)
     }
 
+    gmtfile = localizeGmtfile(gmtfile)
     envs$pathways = gmtPathways(gmtfile)
     envs$stats = ranks
     gsea_res = do.call(fgsea::fgsea, envs)
@@ -135,7 +176,7 @@ runFGSEA = function(
     dev.off()
 
     for (pathway in topPathways) {
-        enrfig = file.path(outdir, paste0("fgsea_", gsub("/", "-", pathway, fixed=T), ".png"))
+        enrfig = file.path(outdir, paste0("fgsea_", slugify(pathway), ".png"))
         png(enrfig, res=100, width=1000, height=800)
         print(plotEnrichment(
             envs$pathways[[pathway]],
@@ -191,7 +232,7 @@ runGSEA = function(
 
     envs$input.ds = gctfile
     envs$input.cls = clsfile
-    envs$gs.db = gmtfile
+    envs$gs.db = localizeGmtfile(gmtfile)
     envs$output.directory = outdir
 
     do.call(GSEA, envs)

{biopipen-0.23.5 → biopipen-0.23.6}/pyproject.toml

@@ -1,6 +1,6 @@
 [tool.poetry]
 name = "biopipen"
-version = "0.23.5"
+version = "0.23.6"
 description = "Bioinformatics processes/pipelines that can be run from `pipen run`"
 authors = ["pwwang <pwwang@pwwang.com>"]
 license = "MIT"

{biopipen-0.23.5 → biopipen-0.23.6}/setup.py

@@ -75,7 +75,7 @@ entry_points = \
 
 setup_kwargs = {
     'name': 'biopipen',
-    'version': '0.23.5',
+    'version': '0.23.6',
     'description': 'Bioinformatics processes/pipelines that can be run from `pipen run`',
     'long_description': 'None',
     'author': 'pwwang',

biopipen-0.23.5/biopipen/__init__.py

@@ -1 +0,0 @@
-__version__ = "0.23.5"