biopipen 0.31.5__py3-none-any.whl → 0.31.7__py3-none-any.whl

biopipen/__init__.py

@@ -1 +1 @@
-__version__ = "0.31.5"
+__version__ = "0.31.7"

biopipen/ns/bam.py

@@ -301,3 +301,31 @@ class BamSampling(Proc):
         "sort_args": [],
     }
     script = "file://../scripts/bam/BamSampling.py"
+
+
+class BamSubsetByBed(Proc):
+    """Subset bam file by the regions in a bed file
+
+    Input:
+        bamfile: The bam file
+        bedfile: The bed file
+
+    Output:
+        outfile: The output bam file
+
+    Envs:
+        ncores: Number of cores to use
+        samtools: Path to samtools executable
+        tool: The tool to use, currently only "samtools" is supported
+        index: Whether to index the output bam file
+    """
+    input = "bamfile:file, bedfile:file"
+    output = "outfile:file:{{in.bamfile | stem}}-subset.bam"
+    lang = config.lang.python
+    envs = {
+        "ncores": config.misc.ncores,
+        "samtools": config.exe.samtools,
+        "tool": "samtools",
+        "index": True,
+    }
+    script = "file://../scripts/bam/BamSubsetByBed.py"

biopipen/ns/bed.py

@@ -198,3 +198,43 @@ class BedtoolsIntersect(Proc):
         "postcmd": None,
     }
     script = "file://../scripts/bed/BedtoolsIntersect.py"
+
+
+class BedtoolsMakeWindows(Proc):
+    """Make windows from a BED file or genome size file, using `bedtools makewindows`.
+
+    Input:
+        infile: The input BED file or a genome size file
+            Type will be detected by the number of columns in the file.
+            If it has 3+ columns, it is treated as a BED file, otherwise
+            a genome size file.
+
+    Output:
+        outfile: The output BED file
+
+    Envs:
+        bedtools: The path to bedtools
+        window (type=int): The size of the windows
+        step (type=int): The step size of the windows
+        nwin (type=int): The number of windows to be generated
+            Exclusive with `window` and `step`.
+            Either `nwin` or `window` and `step` should be provided.
+        reverse (flag): Reverse numbering of windows in the output
+        name (choice): How to name the generated windows/regions
+            - none: Do not add any name
+            - src: Use the source interval's name
+            - winnum: Use the window number
+            - srcwinnum: Use the source interval's name and window number
+    """  # noqa: E501
+    input = "infile:file"
+    output = "outfile:file:{{in.infile | stem}}_windows.bed"
+    lang = config.lang.python
+    envs = {
+        "bedtools": config.exe.bedtools,
+        "window": None,
+        "step": None,
+        "nwin": None,
+        "reverse": False,
+        "name": "none",
+    }
+    script = "file://../scripts/bed/BedtoolsMakeWindows.py"

biopipen/ns/regulatory.py

@@ -212,3 +212,75 @@ class MotifAffinityTest(Proc):
         "atsnp_args": {"padj_cutoff": True, "padj": "BH", "p": "pval_diff"},
     }
     script = "file://../scripts/regulatory/MotifAffinityTest.R"
+
+
+class VariantMotifPlot(Proc):
+    """A plot with a genomic region surrounding a genomic variant, and
+    potentially disrupted motifs.
+
+    Currently only SNVs are supported.
+
+    Input:
+        infile: File containing the variants and motifs.
+            It is a TAB-delimited file with the following columns:
+            - chrom: The chromosome of the SNV. Alias: chr, seqnames.
+            - start: The start position of the SNV, no matter 0- or 1-based.
+            - end: The end position of the SNV, which will be used as the position of the SNV.
+            - strand: Indicating the direction of the surrounding sequence matching the motif.
+            - SNP_id: The name of the SNV.
+            - REF: The reference allele of the SNV.
+            - ALT: The alternative allele of the SNV.
+            - providerId: The motif id. It can be specified by `envs.motif_col`.
+            - providerName: The name of the motif provider. Optional.
+            - Regulator: The regulator name. Optional, can be specified by `envs.regulator_col`.
+            - motifPos: The position of the motif, relative to the position of the SNV.
+                For example, '-8, 4' means the motif is 8 bp upstream and 4 bp downstream of the SNV.
+
+    Envs:
+        genome: The genome assembly.
+            Used to fetch the sequences around the variants by package, for example, `BSgenome.Hsapiens.UCSC.hg19` is required if
+            `hg19`. If it is an organism other than human, please specify the full name of the package, for example, `BSgenome.Mmusculus.UCSC.mm10`.
+        motifdb: The path to the motif database. This is required.
+            It should be in the format of MEME motif database.
+            Databases can be downloaded here: <https://meme-suite.org/meme/doc/download.html>.
+            See also introduction to the databases: <https://meme-suite.org/meme/db/motifs>.
+            [universalmotif](https://github.com/bjmt/universalmotif) is required to read the motif database.
+        motif_col: The column name in the motif file containing the motif names.
+            If this is not provided, `envs.regulator_col` and `envs.regmotifs` are required,
+            which are used to infer the motif names from the regulator names.
+        regulator_col: The column name in the motif file containing the regulator names.
+            Both `motif_col` and `regulator_col` should be the direct column names or
+            the index (1-based) of the columns.
+            If no `regulator_col` is provided, no regulator information is written in
+            the output. Otherwise, the regulator information is written in the output in
+            the `Regulator` column.
+        regmotifs: The path to the regulator-motif mapping file.
+            It must have header and the columns `Motif` or `Model` for motif names and
+            `TF`, `Regulator` or `Transcription factor`  for regulator names.
+        notfound (choice): What to do if a motif is not found in the database,
+            or a regulator is not found in the regulator-motif mapping (envs.regmotifs)
+            file.
+            - error: Report error and stop the process.
+            - ignore: Ignore the motif and continue.
+        devpars (ns): The default device parameters for the plot.
+            - width (type=int): The width of the plot.
+            - height (type=int): The height of the plot.
+            - res (type=int): The resolution of the plot.
+        plot_vars (type=auto): The variants (SNP_id) to plot.
+            A list of variant names to plot or a string with the variant names separated by comma.
+            When not specified, all variants are plotted.
+    """  # noqa: E501
+    input = "infile:file"
+    output = "outdir:dir:{{in.infile | stem}}.vmplots"
+    lang = config.lang.rscript
+    envs = {
+        "genome": config.ref.genome,
+        "motifdb": config.ref.tf_motifdb,
+        "motif_col": "providerId",
+        "regulator_col": None,
+        "regmotifs": config.ref.tf_motifs,
+        "notfound": "error",
+        "devpars": {"width": 800, "height": None, "res": 100},
+        "plot_vars": None,
+    }
+    script = "file://../scripts/regulatory/VariantMotifPlot.R"

biopipen/ns/vcf.py

@@ -335,6 +335,8 @@ class TruvariBench(Proc):
     """Run `truvari bench` to compare a VCF with CNV calls and
     base CNV standards
 
+    Requires truvari v4+
+
     See https://github.com/ACEnglish/truvari/wiki/bench
 
     Input:
@@ -358,7 +360,7 @@ class TruvariBench(Proc):
         "truvari": config.exe.truvari,
         "ref": config.ref.reffa,
         "refdist": 500,
-        "pctsim": 0.7,
+        "pctseq": 0.7,
         "pctsize": 0.7,
         "pctovl": 0.0,
         "typeignore": False,
@@ -402,7 +404,7 @@ class TruvariBenchSummary(Proc):
     output = "outdir:dir:truvari_bench.summary"
     lang = config.lang.rscript
     envs = {
-        "plots": ["call cnt", "base cnt", "precision", "recall", "f1"],
+        "plots": ["comp cnt", "base cnt", "precision", "recall", "f1"],
         "devpars": None,
     }
     script = "file://../scripts/vcf/TruvariBenchSummary.R"
@@ -414,6 +416,8 @@ class TruvariConsistency(Proc):
 
     See https://github.com/ACEnglish/truvari/wiki/consistency
 
+    Requires truvari v4+
+
     Input:
         vcfs: The vcf files with CNV calls
 

biopipen/scripts/bam/BamSubsetByBed.py

@@ -0,0 +1,38 @@
+from pathlib import Path
+from biopipen.utils.misc import run_command, logger
+
+# using:
+# samtools view --subsample 0.1 --subsample-seed 1234 --threads 4 -b -o out.bam in.bam
+
+bamfile = {{ in.bamfile | repr }} # pyright: ignore # noqa
+bedfile = {{ in.bedfile | repr }} # pyright: ignore # noqa
+outfile = Path({{ out.outfile | repr }}) # pyright: ignore
+ncores = {{ envs.ncores | int }} # pyright: ignore
+samtools = {{ envs.samtools | repr }} # pyright: ignore
+tool = {{ envs.tool | repr }} # pyright: ignore
+should_index = {{ envs.index | repr }} # pyright: ignore
+
+if tool != "samtools":
+    raise ValueError(
+        f"Tool {tool} is not supported. "
+        "Currently only samtools is supported."
+    )
+
+cmd = [
+    samtools,
+    "view",
+    "--target-file",
+    bedfile,
+    "-b",
+    "--threads",
+    ncores,
+    "-o",
+    outfile,
+    bamfile
+]
+run_command(cmd, fg=True)
+
+if should_index:
+    logger.info("Indexing the output bam file.")
+    cmd = [samtools, "index", "-@", ncores, outfile]
+    run_command(cmd, fg=True)

biopipen/scripts/bed/BedtoolsMakeWindows.py

@@ -0,0 +1,47 @@
+from pathlib import Path
+from biopipen.utils.misc import run_command, logger
+
+infile = Path({{in.afile | repr}})  # pyright: ignore # noqa: #999
+outfile = Path({{in.bfile | repr}})  # pyright: ignore
+bedtools = {{envs.bedtools | repr}}  # pyright: ignore
+window = {{envs.window | repr}}  # pyright: ignore
+step = {{envs.step | repr}}  # pyright: ignore
+nwin = {{envs.nwin | repr}}  # pyright: ignore
+reverse = {{envs.reverse | repr}}  # pyright: ignore
+name = {{envs.name | repr}}  # pyright: ignore
+
+if nwin is None and window is None:
+    raise ValueError("Either `nwin` or `window` should be provided.")
+
+if nwin is not None and window is not None:
+    raise ValueError("Either `nwin` or `window` should be provided, not both.")
+
+# detect if infile is a genome size file or a bed file
+with infile.open() as f:
+    line = f.readline().strip()
+    if len(line.split("\t")) > 2:
+        is_bed = True
+    else:
+        is_bed = False
+
+if is_bed:
+    logger.info("BED file is detected as input.")
+    cmd = [bedtools, "makewindows", "-b", infile]
+else:
+    logger.info("Genome size file is detected as input.")
+    cmd = [bedtools, "makewindows", "-g", infile]
+
+if nwin:
+    cmd.extend(["-n", nwin])
+elif step is not None:
+    cmd.extend(["-w", window, "-s", step])
+else:
+    cmd.extend(["-w", window])
+
+if reverse:
+    cmd.append("-reverse")
+
+if name != "none":
+    cmd.extend(["-name", name])
+
+run_command(cmd, stdout=outfile)

biopipen/scripts/regulatory/MotifAffinityTest.R

@@ -1,9 +1,9 @@
 # Script for regulatory.MotifAffinityTest
 {{ biopipen_dir | joinpaths: "utils", "misc.R" | source_r }}
+{{ biopipen_dir | joinpaths: "scripts", "regulatory", "motifs-common.R" | source_r }}
 
 library(BiocParallel)
 library(BSgenome)
-library(universalmotif)
 
 motiffile <- {{in.motiffile | r}}
 varfile <- {{in.varfile | r}}
@@ -45,63 +45,9 @@ if (is.null(motif_col) && is.null(regulator_col)) {
 log_info("Reading input regulator/motif file ...")
 in_motifs <- read.table(motiffile, header=TRUE, sep="\t", stringsAsFactors=FALSE, check.names = FALSE)
 
-if (is.null(motif_col)) {
-    log_info("Inferring motifs from regulators ...")
-    if (is.null(regmotifs) || !file.exists(regmotifs)) {
-        stop("Regulator motifs (envs.regmotifs) is required and must exist when no motif column (envs.motif_col) is provided")
-    }
-    regmotifs <- read.table(regmotifs, header=TRUE, sep="\t", stringsAsFactors=FALSE, check.names = FALSE)
-    rm_motif_col <- c('Motif', 'motif', 'MOTIF', 'Model', 'model', 'MODEL')
-    rm_reg_col <- c('Regulator', 'regulator', 'REGULATOR', 'TF', 'tf', 'TF', 'Transcription factor', 'transcription factor', 'Transcription Factor')
-    rm_motif_col <- intersect(rm_motif_col, colnames(regmotifs))
-    rm_reg_col <- intersect(rm_reg_col, colnames(regmotifs))
-    if (length(rm_motif_col) == 0) {
-        stop("No motif column found in envs.regmotifs, provide one of: ", paste(rm_motif_col, collapse = ", "))
-    }
-    if (length(rm_reg_col) == 0) {
-        stop("No regulator column found in envs.regmotifs, provide one of: ", paste(rm_reg_col, collapse = ", "))
-    }
-    rm_motif_col <- rm_motif_col[1]
-    rm_reg_col <- rm_reg_col[1]
-    # check regulators
-    rm_regs <- regmotifs[, rm_reg_col, drop = TRUE]
-    regulators <- in_motifs[, regulator_col, drop = TRUE]
-    notfound_regs <- setdiff(regulators, rm_regs)
-    if (length(notfound_regs) > 0 && notfound == "error") {
-        first_notfound <- head(notfound_regs, 3)
-        if (length(notfound_regs) > 3) {
-            first_notfound <- c(first_notfound, "...")
-            notfound_file <- file.path(outdir, "notfound_regulators.txt")
-            writeLines(notfound_regs, notfound_file)
-            msg1 <- paste0("The following regulators were not found in the envs.regmotifs file: ", paste(first_notfound, collapse = ", "))
-            msg2 <- paste0("Check the full list in ", notfound_file)
-            stop(msg1, "\n", msg2)
-        } else {
-            msg <- paste0("The following regulators were not found in the regmotifs file: ", paste(first_notfound, collapse = ", "))
-            stop(msg)
-        }
-    }
-    in_motifs <- in_motifs[in_motifs[, regulator_col] %in% rm_regs, , drop = FALSE]
-    # add motif column
-    in_motifs <- merge(in_motifs, regmotifs, by.x = regulator_col, by.y = rm_reg_col, all.x = TRUE, suffixes = c("", "_db"))
-    motif_col <- rm_motif_col
-}
-if (is.null(regulator_col)) {
-    # make motifs unique
-    in_moitfs <- in_motifs[!duplicated(in_motifs[, motif_col]), , drop = FALSE]
-} else {
-    in_motifs <- in_motifs[!duplicated(in_motifs[, c(regulator_col, motif_col)]), , drop = FALSE]
-}
-
-
-if (!grepl(".", genome, fixed = TRUE)) {
-    genome_pkg = sprintf("BSgenome.Hsapiens.UCSC.%s", genome)
-} else {
-    genome_pkg = genome
-}
-if (!requireNamespace(genome_pkg, quietly = TRUE)) {
-    stop(sprintf("Genome package %s is not installed", genome_pkg))
-}
+log_info("Ensuring motifs and regulators in the input data ...")
+in_motifs <- ensure_regulator_motifs(in_motifs, outdir, motif_col, regulator_col, regmotifs, notfound = notfound)
+genome_pkg <- get_genome_pkg(genome)
 
 log_info("Reading variant file ...")
 if (grepl("\\.vcf$", varfile) || grepl("\\.vcf\\.gz$", varfile)) {
@@ -124,91 +70,7 @@ snpinfo <- read.table(varfile, header=FALSE, stringsAsFactors=FALSE)
 colnames(snpinfo) <- c("chrom", "start", "end", "name", "score", "strand", "ref", "alt")
 
 log_info("Reading motif database ...")
-meme <- read_meme(motifdb)
-
-check_motifs <- function(motifdb_names) {
-    motifs <- in_motifs[, motif_col, drop = TRUE]
-    notfound_motifs <- setdiff(motifs, motifdb_names)
-    if (length(notfound_motifs) > 0) {
-        first_notfound <- head(notfound_motifs, 3)
-        if (length(notfound_motifs) > 3) {
-            first_notfound <- c(first_notfound, "...")
-            notfound_file <- file.path(outdir, "notfound_motifs.txt")
-            writeLines(notfound_motifs, notfound_file)
-            msg1 <- paste0("The following motifs were not found in the motif database: ", paste(first_notfound, collapse = ", "))
-            msg2 <- paste0("Check the full list in ", notfound_file)
-
-            if (notfound == "error") {
-                stop(msg1, "\n", msg2)
-            } else if (notfound == "ignore") {
-                log_warn(msg1)
-                log_warn(msg2)
-            }
-        } else {
-            msg <- paste0("The following motifs were not found in the motif database: ", paste(first_notfound, collapse = ", "))
-            if (notfound == "error") {
-                stop(msg)
-            } else if (notfound == "ignore") {
-                log_warn(msg)
-            }
-        }
-
-        motifs <- setdiff(motifs, notfound_motifs)
-    }
-    return(motifs)
-}
-
-plot_variant <- function(motifbreakr_results) {
-    log_info("Plotting variants ...")
-    plotdir <- file.path(outdir, "plots")
-    dir.create(plotdir, showWarnings = FALSE)
-    results <- motifbreakr_results
-    if (is.null(plots) || length(plots) == 0) {
-        results <- results[order(-abs(results$alleleDiff)), , drop = FALSE]
-        results <- results[1:min(plot_nvars, length(results)), , drop = FALSE]
-        variants <- unique(results$SNP_id)
-    } else {
-        variants <- names(plots)
-    }
-    for (variant in variants) {
-        log_info("- Variant: {variant}")
-        if (is.null(plots[[variant]])) {
-            plots[[variant]] <- list(devpars = devpars, which = "TRUE")
-        }
-        if (is.null(plots[[variant]]$which)) {
-            plots[[variant]]$which <- "TRUE"
-        }
-        if (is.null(plots[[variant]]$devpars)) {
-            plots[[variant]]$devpars <- devpars
-        }
-        if (is.null(plots[[variant]]$devpars$res)) {
-            plots[[variant]]$devpars$res <- 100
-        }
-        res <- results[results$SNP_id == variant, , drop = FALSE]
-        if (length(res) == 0) {
-            stop(sprintf("Variant %s not found in results", variant))
-        }
-        res <- subset(res, subset = eval(parse(text = plots[[variant]]$which)))
-        if (length(res) == 0) {
-            stop(sprintf("No variants to plot for %s", variant))
-        }
-        plotfile <- file.path(plotdir, sprintf("%s.png", slugify(variant)))
-        # fix motifBreakR 2.12 using names to filter in plotMB
-        names(res) <- res$SNP_id
-        dv <- plots[[variant]]$devpars
-        if (is.null(dv$height)) {
-            dv$height <- 2.4 * dv$res + length(res) * 1.2 * dv$res
-        }
-        if (is.null(dv$width)) {
-            left <- min(sapply(res$motifPos, `[`, 1))
-            right <- max(sapply(res$motifPos, `[`, 2))
-            dv$width <- 1.5 * dv$res + (right - left) * 0.3 * dv$res
-        }
-        png(plotfile, width = dv$width, height = dv$height, res = dv$res)
-        motifbreakR::plotMB(res, variant)
-        dev.off()
-    }
-}
+mdb <- read_meme_to_motifdb(motifdb, in_motifs, motif_col, regulator_col, notfound, outdir)
 
 tool <- tolower(tool)
 tool <- match.arg(tool, c("motifbreakr", "atsnp"))

biopipen/scripts/regulatory/MotifAffinityTest_AtSNP.R

@@ -1,36 +1,6 @@
 library(atSNP)
 library(rtracklayer)
 
-log_info("Converting universalmotif object to motif_library ...")
-
-motifdb_names <- sapply(meme, function(m) m@name)
-motifs <- check_motifs(motifdb_names)
-meme <- filter_motifs(meme, name = motifs)
-# Get the right order of motif names
-motifs <- sapply(meme, function(m) m@name)
-
-# used for atSNP
-mdb <- lapply(meme, function(m) t(m@motif))
-names(mdb) <- motifs
-
-# compose one used for plotting using motifbreakR
-motifdb_matrices <- lapply(meme, function(m) m@motif)
-names(motifdb_matrices) <- motifs
-motifdb_meta <- do.call(rbind, lapply(meme, function(m) {
-    ats <- attributes(m)
-    ats$dataSource <- basename(motifdb)
-    ats$class <- NULL
-    ats$motif <- NULL
-    ats$gapinfo <- NULL
-    ats$sequenceCount <- ats$nsites
-    ats$providerId <- ats$name
-    ats$providerName <- ats$name
-    ats$organism <- if (is.null(ats$organism) || length(ats$organism) == 0) "Unknown" else ats$organism
-    unlist(ats)
-}))
-rownames(motifdb_meta) <- motifs
-pmotifs <- MotifDb:::MotifList(motifdb_matrices, tbl.metadata = motifdb_meta)
-
 log_info("Converting snpinfo to atSNP object ...")
 
 # c("chrom", "start", "end", "name", "score", "strand", "ref", "alt", "ref_seq", "alt_seq")
@@ -53,7 +23,9 @@ write.table(
     file = atsnp_bed,
     sep = "\t", quote = FALSE, row.names = FALSE, col.names = TRUE
 )
-k <- max(sapply(mdb, nrow))
+
+motif_lib <- motifdb_to_motiflib(mdb)
+k <- max(sapply(motif_lib, nrow))
 snps <- LoadSNPData(
     atsnp_bed,
     genome.lib = genome_pkg,
@@ -62,13 +34,12 @@ snps <- LoadSNPData(
     half.window.size = k
 )
 
-# run motifbreakR
 log_info("Running atSNP ...")
-atsnp_scores <- ComputeMotifScore(mdb, snps, ncores = ncores)
+atsnp_scores <- ComputeMotifScore(motif_lib, snps, ncores = ncores)
 
 log_info("Calculating p values ...")
 atsnp_result <- ComputePValues(
-    motif.lib = mdb,
+    motif.lib = motif_lib,
     snp.info = snps,
     motif.scores = atsnp_scores$motif.scores,
     ncores = ncores,
@@ -101,7 +72,7 @@ atsnp_result$motifPos <- sapply(1:nrow(atsnp_result), function(i) {
     paste(c(atsnp_result$ref_start[i] - k, atsnp_result$ref_end[i] - k), collapse = ",")
 })
 if (!is.null(regulator_col)) {
-    atsnp_result$Regulator <- in_motifs[
+    atsnp_result$geneSymbol <- atsnp_result$Regulator <- in_motifs[
         match(atsnp_result$providerId, in_motifs[[motif_col]]),
         regulator_col,
         drop = TRUE
@@ -120,7 +91,30 @@ atsnp_result$alleleDiff <- -atsnp_result[[cutoff_col]]
 atsnp_result$effect <- "strong"
 atsnp_result$motifPos <- lapply(atsnp_result$motifPos, function(x) as.integer(unlist(strsplit(x, ","))))
 atsnp_result <- makeGRangesFromDataFrame(atsnp_result, keep.extra.columns = TRUE, starts.in.df.are.0based = TRUE)
+genome(atsnp_result) <- genome
 attributes(atsnp_result)$genome.package <- genome_pkg
-attributes(atsnp_result)$motifs <- pmotifs
+attributes(atsnp_result)$motifs <- mdb
+
+if (is.null(plots) || length(plots) == 0) {
+    atsnp_result <- atsnp_result[order(-abs(atsnp_result$alleleDiff)), , drop = FALSE]
+    atsnp_result <- atsnp_result[1:min(plot_nvars, length(atsnp_result)), , drop = FALSE]
+    variants <- unique(atsnp_result$SNP_id)
+} else {
+    variants <- names(plots)
+}
+for (variant in variants) {
+    log_info("- Variant: {variant}")
+    if (is.null(plots[[variant]])) {
+        plots[[variant]] <- list(devpars = devpars, which = "TRUE")
+    }
+    if (is.null(plots[[variant]]$which)) {
+        plots[[variant]]$which <- "TRUE"
+    }
+    if (is.null(plots[[variant]]$devpars)) {
+        plots[[variant]]$devpars <- devpars
+    }
+    res <- atsnp_result[atsnp_result$SNP_id == variant, , drop = FALSE]
+    res <- subset(res, subset = eval(parse(text = plots[[variant]]$which)))
 
-plot_variant(atsnp_result)
+    plot_variant_motifs(res, variant, plots[[variant]]$devpars, outdir)
+}

biopipen/scripts/regulatory/MotifAffinityTest_MotifBreakR.R

@@ -1,30 +1,6 @@
 library(motifbreakR)
-bsgenome <- getBSgenome(genome_pkg)
-
-log_info("Converting universalmotif object to MotifDb object ...")
-
-motifdb_names <- sapply(meme, function(m) m@name)
-motifs <- check_motifs(motifdb_names)
-meme <- filter_motifs(meme, name = motifs)
-# Get the right order of motif names
-motifs <- sapply(meme, function(m) m@name)
-motifdb_matrices <- lapply(meme, function(m) m@motif)
-names(motifdb_matrices) <- motifs
 
-motifdb_meta <- do.call(rbind, lapply(meme, function(m) {
-    ats <- attributes(m)
-    ats$dataSource <- basename(motifdb)
-    ats$class <- NULL
-    ats$motif <- NULL
-    ats$gapinfo <- NULL
-    ats$sequenceCount <- ats$nsites
-    ats$providerId <- ats$name
-    ats$providerName <- ats$name
-    ats$organism <- if (is.null(ats$organism) || length(ats$organism) == 0) "Unknown" else ats$organism
-    unlist(ats)
-}))
-rownames(motifdb_meta) <- motifs
-mdb <- MotifDb:::MotifList(motifdb_matrices, tbl.metadata = motifdb_meta)
+bsgenome <- getBSgenome(genome_pkg)
 
 # `chrom`, `start`, `end`, `name`, `score`, `strand`, `ref`, `alt`.
 is_indel <- nchar(snpinfo$ref) != 1 | nchar(snpinfo$alt) != 1
@@ -93,4 +69,27 @@ write.table(
 )
 rm(results_to_save)
 
-plot_variant(results)
+log_info("Plotting variants ...")
+if (is.null(plots) || length(plots) == 0) {
+    results <- results[order(-abs(results$alleleDiff)), , drop = FALSE]
+    results <- results[1:min(plot_nvars, length(results)), , drop = FALSE]
+    variants <- unique(results$SNP_id)
+} else {
+    variants <- names(plots)
+}
+for (variant in variants) {
+    log_info("- Variant: {variant}")
+    if (is.null(plots[[variant]])) {
+        plots[[variant]] <- list(devpars = devpars, which = "TRUE")
+    }
+    if (is.null(plots[[variant]]$which)) {
+        plots[[variant]]$which <- "TRUE"
+    }
+    if (is.null(plots[[variant]]$devpars)) {
+        plots[[variant]]$devpars <- devpars
+    }
+    res <- results[results$SNP_id == variant, , drop = FALSE]
+    res <- subset(res, subset = eval(parse(text = plots[[variant]]$which)))
+
+    plot_variant_motifs(res, variant, plots[[variant]]$devpars, outdir)
+}