getDEE2.Rcheck/tests_i386/test-getDEE2.Rout
R version 4.0.5 (2021-03-31) -- "Shake and Throw"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)
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("getDEE2")
> library("SummarizedExperiment")
Loading required package: MatrixGenerics
Loading required package: matrixStats
Attaching package: 'MatrixGenerics'
The following objects are masked from 'package:matrixStats':
colAlls, colAnyNAs, colAnys, colAvgsPerRowSet, colCollapse,
colCounts, colCummaxs, colCummins, colCumprods, colCumsums,
colDiffs, colIQRDiffs, colIQRs, colLogSumExps, colMadDiffs,
colMads, colMaxs, colMeans2, colMedians, colMins, colOrderStats,
colProds, colQuantiles, colRanges, colRanks, colSdDiffs, colSds,
colSums2, colTabulates, colVarDiffs, colVars, colWeightedMads,
colWeightedMeans, colWeightedMedians, colWeightedSds,
colWeightedVars, rowAlls, rowAnyNAs, rowAnys, rowAvgsPerColSet,
rowCollapse, rowCounts, rowCummaxs, rowCummins, rowCumprods,
rowCumsums, rowDiffs, rowIQRDiffs, rowIQRs, rowLogSumExps,
rowMadDiffs, rowMads, rowMaxs, rowMeans2, rowMedians, rowMins,
rowOrderStats, rowProds, rowQuantiles, rowRanges, rowRanks,
rowSdDiffs, rowSds, rowSums2, rowTabulates, rowVarDiffs, rowVars,
rowWeightedMads, rowWeightedMeans, rowWeightedMedians,
rowWeightedSds, rowWeightedVars
Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics
Loading required package: parallel
Attaching package: 'BiocGenerics'
The following objects are masked from 'package:parallel':
clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
clusterExport, clusterMap, parApply, parCapply, parLapply,
parLapplyLB, parRapply, parSapply, parSapplyLB
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, 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, setdiff, sort, table,
tapply, union, unique, unsplit, which.max, which.min
Loading required package: S4Vectors
Attaching package: 'S4Vectors'
The following object is masked from 'package:base':
expand.grid
Loading required package: IRanges
Attaching package: 'IRanges'
The following object is masked from 'package:grDevices':
windows
Loading required package: GenomeInfoDb
Loading required package: Biobase
Welcome to Bioconductor
Vignettes contain introductory material; view with
'browseVignettes()'. To cite Bioconductor, see
'citation("Biobase")', and for packages 'citation("pkgname")'.
Attaching package: 'Biobase'
The following object is masked from 'package:MatrixGenerics':
rowMedians
The following objects are masked from 'package:matrixStats':
anyMissing, rowMedians
> library("testthat")
>
> # E. coli
> x<-getDEE2("ecoli",c("SRR1613487","SRR1613488"),legacy=TRUE)
trying URL 'http://dee2.io/metadata/ecoli_metadata.tsv.cut'
Content type 'text/tab-separated-values' length 697430 bytes (681 KB)
==================================================
downloaded 681 KB
trying URL 'http://dee2.io/cgi-bin/request.sh?org=ecoli&x=SRR1613487&x=SRR1613488'
Content type 'application/zip' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.....
downloaded 155 KB
For more information about DEE2 QC metrics, visit
https://github.com/markziemann/dee2/blob/master/qc/qc_metrics.md
>
> test_that("eco works", {
+ expect_equal( sum(x$GeneCounts) , 20624168 )
+ })
Test passed
>
>
> # A. thaliana bundle
> x <- getDEE2_bundle("athaliana", "SRP058781",col="SRP_accession")
trying URL 'http://dee2.io/huge/athaliana/'
Content type 'text/html;charset=UTF-8' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... .........
downloaded 449 KB
trying URL 'http://dee2.io/huge/athaliana/SRP058781_NA.zip'
Content type 'application/zip' length 4214382 bytes (4.0 MB)
==================================================
downloaded 4.0 MB
For more information about DEE2 QC metrics, visit
https://github.com/markziemann/dee2/blob/master/qc/qc_metrics.md
>
> test_that("ath bundles work", {
+ expect_equal( nrow(assays(x)[[1]]) , 32833 )
+ expect_equal( ncol(assays(x)[[1]]) , 32 )
+ })
Test passed
>
>
> # check absent present
> dat <- query_bundles("drerio",c("SRP131781","SRP055996","SRXXX"),col="SRP_accession")
trying URL 'http://dee2.io/huge/drerio/'
Content type 'text/html;charset=UTF-8' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... ..
downloaded 172 KB
>
> test_that("dre bundle query", {
+ expect_equal( length(dat$absent) , 1 )
+ expect_equal( length(dat$present) , 2 )
+ })
Test passed
>
> proc.time()
user system elapsed
14.76 1.00 29.09
|
getDEE2.Rcheck/tests_x64/test-getDEE2.Rout
R version 4.0.5 (2021-03-31) -- "Shake and Throw"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
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("getDEE2")
> library("SummarizedExperiment")
Loading required package: MatrixGenerics
Loading required package: matrixStats
Attaching package: 'MatrixGenerics'
The following objects are masked from 'package:matrixStats':
colAlls, colAnyNAs, colAnys, colAvgsPerRowSet, colCollapse,
colCounts, colCummaxs, colCummins, colCumprods, colCumsums,
colDiffs, colIQRDiffs, colIQRs, colLogSumExps, colMadDiffs,
colMads, colMaxs, colMeans2, colMedians, colMins, colOrderStats,
colProds, colQuantiles, colRanges, colRanks, colSdDiffs, colSds,
colSums2, colTabulates, colVarDiffs, colVars, colWeightedMads,
colWeightedMeans, colWeightedMedians, colWeightedSds,
colWeightedVars, rowAlls, rowAnyNAs, rowAnys, rowAvgsPerColSet,
rowCollapse, rowCounts, rowCummaxs, rowCummins, rowCumprods,
rowCumsums, rowDiffs, rowIQRDiffs, rowIQRs, rowLogSumExps,
rowMadDiffs, rowMads, rowMaxs, rowMeans2, rowMedians, rowMins,
rowOrderStats, rowProds, rowQuantiles, rowRanges, rowRanks,
rowSdDiffs, rowSds, rowSums2, rowTabulates, rowVarDiffs, rowVars,
rowWeightedMads, rowWeightedMeans, rowWeightedMedians,
rowWeightedSds, rowWeightedVars
Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics
Loading required package: parallel
Attaching package: 'BiocGenerics'
The following objects are masked from 'package:parallel':
clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
clusterExport, clusterMap, parApply, parCapply, parLapply,
parLapplyLB, parRapply, parSapply, parSapplyLB
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, 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, setdiff, sort, table,
tapply, union, unique, unsplit, which.max, which.min
Loading required package: S4Vectors
Attaching package: 'S4Vectors'
The following object is masked from 'package:base':
expand.grid
Loading required package: IRanges
Attaching package: 'IRanges'
The following object is masked from 'package:grDevices':
windows
Loading required package: GenomeInfoDb
Loading required package: Biobase
Welcome to Bioconductor
Vignettes contain introductory material; view with
'browseVignettes()'. To cite Bioconductor, see
'citation("Biobase")', and for packages 'citation("pkgname")'.
Attaching package: 'Biobase'
The following object is masked from 'package:MatrixGenerics':
rowMedians
The following objects are masked from 'package:matrixStats':
anyMissing, rowMedians
> library("testthat")
>
> # E. coli
> x<-getDEE2("ecoli",c("SRR1613487","SRR1613488"),legacy=TRUE)
trying URL 'http://dee2.io/metadata/ecoli_metadata.tsv.cut'
Content type 'text/tab-separated-values' length 697430 bytes (681 KB)
==================================================
downloaded 681 KB
trying URL 'http://dee2.io/cgi-bin/request.sh?org=ecoli&x=SRR1613487&x=SRR1613488'
Content type 'application/zip' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.....
downloaded 155 KB
For more information about DEE2 QC metrics, visit
https://github.com/markziemann/dee2/blob/master/qc/qc_metrics.md
>
> test_that("eco works", {
+ expect_equal( sum(x$GeneCounts) , 20624168 )
+ })
Test passed
>
>
> # A. thaliana bundle
> x <- getDEE2_bundle("athaliana", "SRP058781",col="SRP_accession")
trying URL 'http://dee2.io/huge/athaliana/'
Content type 'text/html;charset=UTF-8' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... .........
downloaded 449 KB
trying URL 'http://dee2.io/huge/athaliana/SRP058781_NA.zip'
Content type 'application/zip' length 4214382 bytes (4.0 MB)
==================================================
downloaded 4.0 MB
For more information about DEE2 QC metrics, visit
https://github.com/markziemann/dee2/blob/master/qc/qc_metrics.md
>
> test_that("ath bundles work", {
+ expect_equal( nrow(assays(x)[[1]]) , 32833 )
+ expect_equal( ncol(assays(x)[[1]]) , 32 )
+ })
Test passed
>
>
> # check absent present
> dat <- query_bundles("drerio",c("SRP131781","SRP055996","SRXXX"),col="SRP_accession")
trying URL 'http://dee2.io/huge/drerio/'
Content type 'text/html;charset=UTF-8' length unknown
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... .......... .......... ..........
.......... .......... ..
downloaded 172 KB
>
> test_that("dre bundle query", {
+ expect_equal( length(dat$absent) , 1 )
+ expect_equal( length(dat$present) , 2 )
+ })
Test passed
>
> proc.time()
user system elapsed
14.76 0.48 30.21
|