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


* using log directory ‘/home/biocbuild/bbs-3.20-bioc/meat/debrowser.Rcheck’
* using R version 4.4.1 (2024-06-14)
* using platform: aarch64-unknown-linux-gnu
* R was compiled by
    gcc (GCC) 12.2.1 20220819 (openEuler 12.2.1-14)
    GNU Fortran (GCC) 10.3.1
* running under: openEuler 22.03 (LTS-SP1)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘debrowser/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘debrowser’ version ‘1.34.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 ‘debrowser’ 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 whether startup messages can be suppressed ... 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
checkCountData : <anonymous>: no visible binding for global variable
  ‘err’
debrowserdataload: no visible binding for global variable ‘demodata’
debrowserhistogram: no visible global function definition for ‘config’
generateTestData: no visible binding for global variable ‘metadata’
getBarMainPlot: no visible global function definition for ‘config’
getBoxMainPlot: no visible global function definition for ‘config’
getDensityPlot: no visible binding for global variable ‘samples’
getDensityPlot: no visible global function definition for ‘config’
getGOPlots: no visible global function definition for ‘facet_grid’
getGSEA: no visible global function definition for ‘is’
getIQRPlot: no visible global function definition for ‘config’
mainScatterNew: no visible global function definition for ‘config’
plot_pca: no visible binding for global variable ‘x’
plot_pca: no visible binding for global variable ‘y’
plot_pca: no visible binding for global variable ‘textName’
plot_pca: no visible global function definition for ‘config’
runHeatmap: no visible global function definition for ‘config’
Undefined global functions or variables:
  config demodata err facet_grid is metadata samples textName x y
Consider adding
  importFrom("methods", "is")
to your NAMESPACE file (and ensure that your DESCRIPTION Imports field
contains 'methods').
* 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 files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘test-demo.R’
  Running ‘test-deseq.R’
  Running ‘test-null.R’
  Running ‘test-ui.R’
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 1 NOTE
See
  ‘/home/biocbuild/bbs-3.20-bioc/meat/debrowser.Rcheck/00check.log’
for details.

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


* installing to library ‘/home/biocbuild/R/R-4.4.1/site-library’
* installing *source* package ‘debrowser’ ...
** using staged installation
** R
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (debrowser)

R version 4.4.1 (2024-06-14) -- "Race for Your Life"
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.

> require(shiny)
Loading required package: shiny
> library(debrowser)



##############################################################################
Pathview is an open source software package distributed under GNU General
Public License version 3 (GPLv3). Details of GPLv3 is available at
http://www.gnu.org/licenses/gpl-3.0.html. Particullary, users are required to
formally cite the original Pathview paper (not just mention it) in publications
or products. For details, do citation("pathview") within R.

The pathview downloads and uses KEGG data. Non-academic uses may require a KEGG
license agreement (details at http://www.kegg.jp/kegg/legal.html).
##############################################################################
DEBrowser v1.34.0  For help: https://debrowser.readthedocs.org/

If you use DEBrowser in published research, please cite:

Alper Kucukural, Onur Yukselen, Deniz M. Ozata, Melissa J. Moore, Manuel Garber
DEBrowser: Interactive Differential Expression Analysis and Visualization Tool for Count Data
BMC Genomics 2019 20:6

doi:0.1186/s12864-018-5362-x

> library(testthat)
> 
> test_that("demo data can be loaded", {
+     load(system.file("extdata", "demo", "demodata.Rda",
+         package = "debrowser"))
+     expect_true(is.data.frame(demodata))
+     expect_equal(demodata[29311, 2], 2)
+     expect_equal(demodata[29311, 5], 7.1)
+     expect_equal(demodata[29311, 6], 6)
+     expect_null(demodata[1, 7])
+ })
Test passed 🌈
> 
> proc.time()
   user  system elapsed 
 18.119   0.717  18.779 

R version 4.4.1 (2024-06-14) -- "Race for Your Life"
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(debrowser)



##############################################################################
Pathview is an open source software package distributed under GNU General
Public License version 3 (GPLv3). Details of GPLv3 is available at
http://www.gnu.org/licenses/gpl-3.0.html. Particullary, users are required to
formally cite the original Pathview paper (not just mention it) in publications
or products. For details, do citation("pathview") within R.

The pathview downloads and uses KEGG data. Non-academic uses may require a KEGG
license agreement (details at http://www.kegg.jp/kegg/legal.html).
##############################################################################
DEBrowser v1.34.0  For help: https://debrowser.readthedocs.org/

If you use DEBrowser in published research, please cite:

Alper Kucukural, Onur Yukselen, Deniz M. Ozata, Melissa J. Moore, Manuel Garber
DEBrowser: Interactive Differential Expression Analysis and Visualization Tool for Count Data
BMC Genomics 2019 20:6

doi:0.1186/s12864-018-5362-x

> library(testthat)
> 
> load(system.file("extdata", "demo", "demodata.Rda",
+     package = "debrowser"))
> metadata <- metadatatable 
> columns <- c("exper_rep1", "exper_rep2", "exper_rep3",
+     "control_rep1", "control_rep2", "control_rep3")
> conds <- factor( c("Control", "Control", "Control",
+     "Treat", "Treat", "Treat") )
> data <- data.frame(demodata[, columns])
> 
> #Run DESeq2 with the following parameters
> params <- c("DESeq2", "NoCovariate", "parametric", F, "Wald", "None") 
> non_expressed_cutoff <- 10
> data <- subset(data, rowSums(data) > 10)
> test_that("Able to run DESeq2", {
+     deseqrun <- runDE(data, metadata, columns, conds, params)
+     expect_true(exists("deseqrun"))
+ })
Test passed 🎊
> 
> ##################################################
> deseqrun <- runDE(data, metadata, columns, conds, params)
estimating size factors
estimating dispersions
gene-wise dispersion estimates
mean-dispersion relationship
final dispersion estimates
fitting model and testing
> 
> de_res <- data.frame(deseqrun)
> norm_data <- getNormalizedMatrix(data[, columns])
> rdata <- cbind(rownames(de_res), norm_data[rownames(de_res), columns],
+                 log10(rowMeans(norm_data[rownames(de_res),
+                 paste(c("exper_rep1", "exper_rep2", "exper_rep3"))])
+                 + 0.1), log10( rowMeans( norm_data[ rownames( de_res ),
+                 paste(c("control_rep1", "control_rep2", "control_rep3"))])
+                 + 0.1), de_res[rownames(de_res),
+                 c("padj", "log2FoldChange")], 2 ^ de_res[rownames(de_res),
+                 "log2FoldChange"], -1 *
+                 log10(de_res[rownames(de_res), "padj"]))
> colnames(rdata) <- c("ID", columns, "Cond1", "Cond2", "padj",
+                 "log2FoldChange", "foldChange", "log10padj")
> rdata <- as.data.frame(rdata)
> rdata$padj[is.na(rdata$padj)] <- 1
> 
> padj_cutoff <- 0.01
> foldChange_cutoff <- 2
> 
> rdata$Legend <- character(nrow(rdata))
> rdata$Legend[rdata$log2FoldChange > log2(foldChange_cutoff) &
+         rdata$padj < padj_cutoff] <- "Up"
> rdata$Legend[rdata$log2FoldChange < log2(1 / foldChange_cutoff) &
+         rdata$padj < padj_cutoff] <- "Down"
> rdata$Legend[abs(rdata$log2FoldChange) <= 
+         log2(foldChange_cutoff)] <- "NS"
> rdata$Legend[is.null(rdata$log10padj)] <- "NA"
> rdata$Size <- character(nrow(rdata))
> rdata[, "Size"] <- "40"
> 
> dat <- rdata
> dat$M <- rdata$Cond1 - rdata$Cond2
> dat$A <- (rdata$Cond1 + rdata$Cond2) / 2
> 
> updown <- rdata[rdata$Legend=="Up" | rdata$Legend=="Down",columns]
> ##################################################
> 
> 
> 
> proc.time()
   user  system elapsed 
 44.107   1.020  43.810 

R version 4.4.1 (2024-06-14) -- "Race for Your Life"
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.

> require(shiny)
Loading required package: shiny
> library(debrowser)



##############################################################################
Pathview is an open source software package distributed under GNU General
Public License version 3 (GPLv3). Details of GPLv3 is available at
http://www.gnu.org/licenses/gpl-3.0.html. Particullary, users are required to
formally cite the original Pathview paper (not just mention it) in publications
or products. For details, do citation("pathview") within R.

The pathview downloads and uses KEGG data. Non-academic uses may require a KEGG
license agreement (details at http://www.kegg.jp/kegg/legal.html).
##############################################################################
DEBrowser v1.34.0  For help: https://debrowser.readthedocs.org/

If you use DEBrowser in published research, please cite:

Alper Kucukural, Onur Yukselen, Deniz M. Ozata, Melissa J. Moore, Manuel Garber
DEBrowser: Interactive Differential Expression Analysis and Visualization Tool for Count Data
BMC Genomics 2019 20:6

doi:0.1186/s12864-018-5362-x

> library(testthat)
> 
> test_that("passing no data returns NULL", {
+     expect_null(compareClust() )
+     expect_null(getGOPlots(NULL, NULL))
+     null_deseq <- runDE(NULL)
+     expect_null(null_deseq)
+     expect_null(plot_pca(NULL))
+ })
Test passed 🌈
> 
> proc.time()
   user  system elapsed 
 18.070   1.141  19.162 

R version 4.4.1 (2024-06-14) -- "Race for Your Life"
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.

> require(shiny)
Loading required package: shiny
> library(debrowser)



##############################################################################
Pathview is an open source software package distributed under GNU General
Public License version 3 (GPLv3). Details of GPLv3 is available at
http://www.gnu.org/licenses/gpl-3.0.html. Particullary, users are required to
formally cite the original Pathview paper (not just mention it) in publications
or products. For details, do citation("pathview") within R.

The pathview downloads and uses KEGG data. Non-academic uses may require a KEGG
license agreement (details at http://www.kegg.jp/kegg/legal.html).
##############################################################################
DEBrowser v1.34.0  For help: https://debrowser.readthedocs.org/

If you use DEBrowser in published research, please cite:

Alper Kucukural, Onur Yukselen, Deniz M. Ozata, Melissa J. Moore, Manuel Garber
DEBrowser: Interactive Differential Expression Analysis and Visualization Tool for Count Data
BMC Genomics 2019 20:6

doi:0.1186/s12864-018-5362-x

> library(testthat)
> 
> test_that("able to create panel UI", {
+     expect_silent( QCPanel <- getQCPanel() )
+     expect_true(exists("QCPanel"))
+     expect_equal(QCPanel[[1]][[1]], "div")
+ 
+     expect_silent( downloads <- getDownloadSection() )
+     expect_true(exists("downloads"))
+     expect_equal(downloads[[1]][[1]], "div")
+ 
+     expect_silent( getMain <- getMainPanel() )
+     expect_true(exists("getMain"))
+     expect_equal(getMain[[1]][[1]], "div")
+ 
+     expect_silent( getStart <- getStartupMsg() )
+     expect_true(exists("getStart"))
+     expect_equal(getStart[[1]][[1]], "div")
+ 
+     expect_silent( getAfter <- getAfterLoadMsg() )
+     expect_true(exists("getAfter"))
+     expect_equal(getAfter[[1]][[1]], "div")
+ 
+     expect_silent(getGO <- getGoPanel() )
+     expect_true(exists("getGO"))
+     expect_equal(getGO[[1]][[1]], "div")
+ })
Test passed 🥳
> 
> proc.time()
   user  system elapsed 
 18.329   1.476  19.791