##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/R/R/bin/R CMD check --install=check:GenomicPlot.install-out.txt --library=/home/biocbuild/R/R/site-library --no-vignettes --timings GenomicPlot_1.4.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.20-bioc/meat/GenomicPlot.Rcheck’
* using R version 4.4.2 (2024-10-31)
* using platform: aarch64-unknown-linux-gnu
* R was compiled by
    aarch64-unknown-linux-gnu-gcc (GCC) 14.2.0
    GNU Fortran (GCC) 12.3.1 (openEuler 12.3.1-36.oe2403)
* running under: openEuler 24.03 (LTS)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘GenomicPlot/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘GenomicPlot’ version ‘1.4.0’
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘GenomicPlot’ can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking code files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
get_targeted_genes: no visible binding for global variable ‘5'UTR’
get_targeted_genes: no visible binding for global variable ‘3'UTR’
handle_bam: no visible global function definition for ‘seqlevelsStyle’
handle_bam: no visible global function definition for
  ‘seqlevelsStyle<-’
handle_bed: no visible global function definition for ‘seqlevelsStyle’
handle_bed: no visible global function definition for
  ‘seqlevelsStyle<-’
handle_bedGraph: no visible global function definition for
  ‘seqlevelsStyle’
handle_bedGraph: no visible global function definition for
  ‘seqlevelsStyle<-’
handle_bw: no visible global function definition for ‘seqlevelsStyle’
handle_bw: no visible global function definition for ‘seqlevelsStyle<-’
plot_bam_correlation: no visible binding for global variable ‘.’
plot_peak_annotation: no visible binding for global variable ‘.’
Undefined global functions or variables:
  . 3'UTR 5'UTR seqlevelsStyle seqlevelsStyle<-
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
Examples with CPU (user + system) or elapsed time > 5s
                                  user system elapsed
plot_start_end_with_random      23.477  7.339  27.050
plot_region                     18.623  6.591  18.047
plot_locus                      18.182  4.192  18.658
plot_5parts_metagene            14.264  5.322  15.627
plot_locus_with_random          13.677  4.135  14.294
plot_start_end                  14.542  2.572  16.382
plot_peak_annotation            10.416  0.179  10.629
get_targeted_genes               8.836  0.124   8.979
get_txdb_features                7.630  0.075   7.721
prepare_5parts_genomic_features  6.341  0.047   6.409
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘test-plotFunctions.R’

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/R/R/bin/R CMD INSTALL GenomicPlot
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/R/R-4.4.2/site-library’
* installing *source* package ‘GenomicPlot’ ...
** using staged installation
** R
** data
** inst
** byte-compile and prepare package for lazy loading
Warning: replacing previous import ‘Biostrings::pattern’ by ‘grid::pattern’ when loading ‘genomation’
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
Warning: replacing previous import ‘Biostrings::pattern’ by ‘grid::pattern’ when loading ‘genomation’
** testing if installed package can be loaded from final location
Warning: replacing previous import ‘Biostrings::pattern’ by ‘grid::pattern’ when loading ‘genomation’
** testing if installed package keeps a record of temporary installation path
* DONE (GenomicPlot)

R version 4.4.2 (2024-10-31) -- "Pile of Leaves"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: aarch64-unknown-linux-gnu

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(GenomicPlot)
Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, saveRDS, setdiff, table,
    tapply, union, unique, unsplit, which.max, which.min

Loading required package: S4Vectors

Attaching package: 'S4Vectors'

The following object is masked from 'package:utils':

    findMatches

The following objects are masked from 'package:base':

    I, expand.grid, unname

Loading required package: IRanges
Loading required package: GenomeInfoDb
Warning message:
replacing previous import 'Biostrings::pattern' by 'grid::pattern' when loading 'genomation' 
> library(testthat)
> 
> Sys.setenv("R_TESTS" = "")
> 
> data(gf5_meta)
> data(gf5_genomic)
> 
> gtffile <- system.file("extdata", "gencode.v19.annotation_chr19.gtf",
+                        package = "GenomicPlot")
> txdb <- custom_TxDb_from_GTF(gtffile, genome = "hg19")
[custom_TxDb_from_GTF]
[set_seqinfo]
Reading existing granges.rds object from /home/biocbuild/R/R-4.4.2/site-library/GenomicPlot/extdata/gencode.v19.annotation_chr19.gtf.granges.rds
Keeping standard chromosomes only
File /home/biocbuild/R/R-4.4.2/site-library/GenomicPlot/extdata/gencode.v19.annotation_chr19.gtf.granges.rds already exists.
                  Use overwriteObjectAsRds = TRUE to overwrite the file
Warning message:
In .get_cds_IDX(mcols0$type, mcols0$phase) :
  The "phase" metadata column contains non-NA values for features of type
  stop_codon. This information was ignored.
> 
> bedQueryFiles <- c(
+    system.file("extdata", "test_chip_peak_chr19.narrowPeak",
+                package = "GenomicPlot"),
+    system.file("extdata", "test_chip_peak_chr19.bed", package = "GenomicPlot"),
+    system.file("extdata", "test_clip_peak_chr19.bed", package = "GenomicPlot")
+ )
> names(bedQueryFiles) <- c("NarrowPeak", "SummitPeak", "iCLIPPeak")
> 
> bedImportParams <- setImportParams(
+    offset = 0, fix_width = 100, fix_point = "center", norm = FALSE,
+    useScore = FALSE, outRle = TRUE, useSizeFactor = FALSE, genome = "hg19"
+ )
> 
> bamQueryFiles <- system.file("extdata", "treat_chr19.bam",
+                              package = "GenomicPlot")
> names(bamQueryFiles) <- "clip_bam"
> bamInputFiles <- system.file("extdata", "input_chr19.bam",
+                              package = "GenomicPlot")
> names(bamInputFiles) <- "clip_input"
> 
> bamImportParams <- setImportParams(
+    offset = -1, fix_width = 0, fix_point = "start", norm = TRUE,
+    useScore = FALSE, outRle = TRUE, useSizeFactor = FALSE, genome = "hg19"
+ )
> 
> chipQueryFiles <- system.file("extdata", "chip_treat_chr19.bam",
+                               package = "GenomicPlot")
> names(chipQueryFiles) <- "chip_bam"
> chipInputFiles <- system.file("extdata", "chip_input_chr19.bam",
+                               package = "GenomicPlot")
> names(chipInputFiles) <- "chip_input"
> 
> chipImportParams <- setImportParams(
+    offset = 0, fix_width = 150, fix_point = "start", norm = TRUE,
+    useScore = FALSE, outRle = TRUE, useSizeFactor = FALSE, genome = "hg19"
+ )
> 
> 
> test_that("testing parallel_countOverlaps", {
+    importParams <- setImportParams(fix_width = 100, outRle = FALSE)
+    out_list <- handle_input(
+       inputFiles = bedQueryFiles,
+       importParams = importParams, verbose = FALSE, nc = 2
+    )
+ 
+    chromInfo <- circlize::read.chromInfo(species = "hg19")$df
+    seqi <- Seqinfo(seqnames = chromInfo$chr, seqlengths = chromInfo$end,
+                    isCircular = rep(FALSE, nrow(chromInfo)),
+                    genome = "hg19")
+    grange_list <- lapply(out_list, function(x) x$query)
+    tilewidth <- 100000
+    tileBins <- tileGenome(seqi, tilewidth = tilewidth,
+                           cut.last.tile.in.chrom = TRUE)
+ 
+    score_list1 <- parallel_countOverlaps(grange_list, tileBins, nc = 2)
+ })
── Skip: testing parallel_countOverlaps ────────────────────────────────────────
Reason: empty test

> 
> test_that("testing parallel_scoreMatrixBin", {
+ 
+    queryRegion <- handle_input(chipQueryFiles, chipImportParams,
+                                verbose = TRUE)[[1]]$query
+ 
+    importParams <- setImportParams(outRle = FALSE)
+ 
+    windowRegion <- handle_bed(bedQueryFiles[1], importParams, verbose = TRUE)$query
+ 
+    out <- parallel_scoreMatrixBin(
+       queryRegions = queryRegion,
+       windowRs = windowRegion,
+       bin_num = 50,
+       bin_op = "mean",
+       weight_col = "score",
+       stranded = TRUE,
+       nc = 2
+    )
+ })
── Skip: testing parallel_scoreMatrixBin ───────────────────────────────────────
Reason: empty test

> 
> test_that("testing handle_bed", {
+    out <- handle_bed(bedQueryFiles[1], bedImportParams, verbose = TRUE)
+ })
── Skip: testing handle_bed ────────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing effective_size", {
+    importParams <- setImportParams(outRle = FALSE)
+    out_list <- handle_input(
+       inputFiles = c(chipQueryFiles, chipInputFiles),
+       importParams = importParams, verbose = TRUE, nc = 2
+    )
+ 
+    out <- effective_size(out_list, outRle = TRUE)
+ })
── Skip: testing effective_size ────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing handle_input", {
+ 
+    queryFiles2 <- system.file("extdata", "test_wig_chr19_+.wig",
+                               package = "GenomicPlot")
+    names(queryFiles2) <- "test_wig"
+ 
+    queryFiles3 <- system.file("extdata", "test_wig_chr19_+.bw",
+                               package = "GenomicPlot")
+    names(queryFiles3) <- "test_bw"
+ 
+    importParams <- setImportParams()
+ 
+    out <- handle_input(c(bamQueryFiles, queryFiles2, queryFiles3),
+                        importParams, verbose = TRUE)
+ })
── Skip: testing handle_input ──────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_bam_correlation", {
+ 
+    importParams <- setImportParams(fix_width = 150, outRle = FALSE)
+ 
+    plot_bam_correlation(
+       bamFiles = c(chipQueryFiles, chipInputFiles), binSize = 100000,
+       outPrefix = NULL, importParams = importParams, nc = 2, verbose = FALSE
+    )
+ })
── Skip: testing plot_bam_correlation ──────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_overlap_bed", {
+    importParams <- setImportParams(fix_width = 100, outRle = FALSE)
+    plot_overlap_bed(
+       bedList = bedQueryFiles, importParams = importParams, pairOnly = FALSE,
+       stranded = FALSE, outPrefix = NULL
+    )
+ })
── Skip: testing plot_overlap_bed ──────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_argument_list", {
+ 
+    alist <- list(
+       "txdb" = txdb, "treat" = bamQueryFiles, "control" = bamInputFiles,
+       "feature" = gf5_meta, "param" = bamImportParams
+    )
+ 
+    p <- GenomicPlot:::plot_named_list(alist)
+ })
── Skip: testing plot_argument_list ────────────────────────────────────────────
Reason: empty test

> 
> 
> test_that("testing plot_peak_annotation", {
+    plot_peak_annotation(
+       peakFile = bedQueryFiles[2], gtfFile = gtffile, importParams = bedImportParams,
+       fiveP = -2000, dsTSS = 200, threeP = 2000, simple = FALSE
+    )
+ })
── Warning: testing plot_peak_annotation ───────────────────────────────────────
The "phase" metadata column contains non-NA values for features of type
  stop_codon. This information was ignored.
Backtrace:
    ▆
 1. └─GenomicPlot::plot_peak_annotation(...)
 2.   └─txdbmaker::makeTxDbFromGRanges(gff)
 3.     └─txdbmaker:::.get_cds_IDX(mcols0$type, mcols0$phase)

── Skip: testing plot_peak_annotation ──────────────────────────────────────────
Reason: empty test

> 
> 
> test_that("testing plot_overlap_genes", {
+    testfile1 <- system.file("extdata", "test_file1.txt",
+                             package = "GenomicPlot")
+    testfile2 <- system.file("extdata", "test_file2.txt",
+                             package = "GenomicPlot")
+    testfile3 <- system.file("extdata", "test_file3.txt",
+                             package = "GenomicPlot")
+    testfile4 <- system.file("extdata", "test_file4.txt",
+                             package = "GenomicPlot")
+    testfiles <- c(testfile1, testfile2, testfile3, testfile4)
+    names(testfiles) <- c("test1", "test2", "test3", "test4")
+ 
+    plot_overlap_genes(testfiles, c(3,2,1,1), pairOnly = FALSE)
+ })
── Skip: testing plot_overlap_genes ────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_5parts_metagene", {
+    plot_5parts_metagene(
+       queryFiles = bedQueryFiles,
+       gFeatures_list = list("metagene" = gf5_meta),
+       inputFiles = NULL,
+       importParams = bedImportParams,
+       verbose = FALSE,
+       smooth = TRUE,
+       scale = FALSE,
+       stranded = TRUE,
+       outPrefix = NULL,
+       transform = NA,
+       heatmap = TRUE,
+       rmOutlier = 0,
+       heatRange = NULL,
+       nc = 2
+    )
+ })
── Skip: testing plot_5parts_metagene ──────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_locus", {
+    plot_locus(
+       queryFiles = bedQueryFiles[c(1,3)],
+       centerFiles = bedQueryFiles[2],
+       ext = c(-500, 500),
+       hl = c(-100, 100),
+       inputFiles = NULL,
+       importParams = bedImportParams,
+       shade = TRUE,
+       binSize = 10,
+       refPoint = "center",
+       Xlab = "Summit",
+       verbose = FALSE,
+       smooth = TRUE,
+       scale = FALSE,
+       stranded = TRUE,
+       outPrefix = NULL,
+       transform = NA,
+       heatmap = TRUE,
+       heatRange = NULL,
+       rmOutlier = 0,
+       Ylab = "Coverage/base/peak",
+       nc = 2
+    )
+ 
+    plot_locus(
+       queryFiles = chipQueryFiles,
+       centerFiles = bedQueryFiles[2],
+       ext = c(-500, 500),
+       hl = c(-100, 100),
+       inputFiles = chipInputFiles,
+       importParams = chipImportParams,
+       shade = TRUE,
+       binSize = 10,
+       refPoint = "center",
+       Xlab = "Summit",
+       verbose = FALSE,
+       smooth = TRUE,
+       scale = FALSE,
+       stranded = TRUE,
+       outPrefix = NULL,
+       transform = NA,
+       heatmap = TRUE,
+       heatRange = NULL,
+       rmOutlier = 0,
+       Ylab = "Coverage/base/peak",
+       nc = 2
+    )
+ })
── Skip: testing plot_locus ────────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_region", {
+    plot_region(
+       queryFiles = chipQueryFiles,
+       centerFiles = bedQueryFiles[1],
+       inputFiles = chipInputFiles,
+       nbins = 100,
+       heatmap = TRUE,
+       scale = FALSE,
+       regionName = "narrowPeak",
+       importParams = chipImportParams,
+       verbose = FALSE,
+       fiveP = -200,
+       threeP = 200,
+       smooth = TRUE,
+       transform = "log2",
+       stranded = TRUE,
+       Ylab = "Coverage/base/peak",
+       outPrefix = NULL,
+       rmOutlier = 0,
+       nc = 2
+    )
+ })
── Skip: testing plot_region ───────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_start_end", {
+    plot_start_end(
+       queryFiles = bamQueryFiles,
+       inputFiles = bamInputFiles,
+       txdb = txdb,
+       centerFiles = "intron",
+       binSize = 10,
+       importParams = bamImportParams,
+       ext = c(-100, 100, -100, 100),
+       hl = c(-50, 50, -50, 50),
+       insert = 100,
+       stranded = TRUE,
+       scale = FALSE,
+       smooth = TRUE,
+       transform = "log2",
+       outPrefix = NULL,
+       nc = 2
+    )
+ })
── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 1 row containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 1 row containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Warning: testing plot_start_end ─────────────────────────────────────────────
Removed 2 rows containing missing values or values outside the scale range
(`geom_line()`).
Backtrace:
     ▆
  1. └─GenomicPlot::plot_start_end(...)
  2.   └─GenomicPlot::draw_stacked_profile(...)
  3.     └─cowplot::plot_grid(...)
  4.       └─cowplot::align_plots(...)
  5.         └─base::lapply(...)
  6.           └─cowplot (local) FUN(X[[i]], ...)
  7.             ├─cowplot::as_gtable(x)
  8.             └─cowplot:::as_gtable.default(x)
  9.               ├─cowplot::as_grob(plot)
 10.               └─cowplot:::as_grob.ggplot(plot)
 11.                 └─ggplot2::ggplotGrob(plot)
 12.                   ├─ggplot2::ggplot_gtable(ggplot_build(x))
 13.                   └─ggplot2:::ggplot_gtable.ggplot_built(ggplot_build(x))
 14.                     └─ggplot2:::by_layer(...)
 15.                       ├─rlang::try_fetch(...)
 16.                       │ ├─base::tryCatch(...)
 17.                       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 18.                       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 19.                       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 20.                       │ └─base::withCallingHandlers(...)
 21.                       └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
 22.                         └─l$draw_geom(d, layout)
 23.                           └─ggplot2 (local) draw_geom(..., self = self)
 24.                             └─self$geom$handle_na(data, self$computed_geom_params)
 25.                               └─ggplot2 (local) handle_na(..., self = self)
 26.                                 └─cli::cli_warn(...)

── Skip: testing plot_start_end ────────────────────────────────────────────────
Reason: empty test

> 
> test_that("testing plot_start_end_with_random", {
+ 
+    plot_start_end_with_random(
+       queryFiles = bamQueryFiles,
+       inputFiles = bamInputFiles,
+       txdb = txdb,
+       centerFile = "intron",
+       binSize = 10,
+       importParams = bamImportParams,
+       ext = c(-100, 100, -100, 100),
+       hl = c(-20, 20, -20, 20),
+       insert = 100,
+       stranded = TRUE,
+       scale = FALSE,
+       smooth = TRUE,
+       transform = "log2",
+       outPrefix = NULL,
+       randomize = TRUE,
+       nc = 2
+    )
+ })