diff --git a/DESCRIPTION b/DESCRIPTION index 2700950..f35ef50 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -76,5 +76,5 @@ URL: https://github.com/leekgroup/recount BugReports: https://support.bioconductor.org/t/recount/ biocViews: Coverage, DifferentialExpression, GeneExpression, RNASeq, Sequencing, Software, DataImport, ImmunoOncology -RoxygenNote: 7.1.1 +RoxygenNote: 7.2.3 Roxygen: list(markdown = TRUE) diff --git a/R/add_metadata.R b/R/add_metadata.R index 8961f9a..e3de09a 100644 --- a/R/add_metadata.R +++ b/R/add_metadata.R @@ -61,8 +61,9 @@ #' ## Obtain all the recount_brain_v2 metadata if you want to #' ## explore the metadata manually #' recount_brain_v2 <- add_metadata(source = "recount_brain_v2") -add_metadata <- function(rse, source = "recount_brain_v2", is_tcga = FALSE, - verbose = TRUE) { +add_metadata <- function( + rse, source = "recount_brain_v2", is_tcga = FALSE, + verbose = TRUE) { stopifnot(length(source) == 1) ## For a NOTE in R CMD check diff --git a/R/add_predictions.R b/R/add_predictions.R index 6e59c70..85a576d 100644 --- a/R/add_predictions.R +++ b/R/add_predictions.R @@ -65,21 +65,22 @@ #' #' ## Download all the latest predictions #' PredictedPhenotypes <- add_predictions() -add_predictions <- function(rse, is_tcga = FALSE, version = "latest", - verbose = TRUE) { - +add_predictions <- function( + rse, is_tcga = FALSE, version = "latest", + verbose = TRUE) { ## For a NOTE in R CMD check PredictedPhenotypes <- NULL if (version == "latest") { - version <- tryCatch(suppressWarnings(readLines( - "https://raw.githubusercontent.com/leekgroup/recount-website/master/predictions/latestVersion.txt" - ))[1], - error = function(e) { - print(e) - v <- "0.0.05" - message(paste(Sys.time(), "Failed to check the latest version, using version", v)) - return(v) - } + version <- tryCatch( + suppressWarnings(readLines( + "https://raw.githubusercontent.com/leekgroup/recount-website/master/predictions/latestVersion.txt" + ))[1], + error = function(e) { + print(e) + v <- "0.0.05" + message(paste(Sys.time(), "Failed to check the latest version, using version", v)) + return(v) + } ) } diff --git a/R/coverage_matrix.R b/R/coverage_matrix.R index e1e98cc..f6556b9 100644 --- a/R/coverage_matrix.R +++ b/R/coverage_matrix.R @@ -68,9 +68,10 @@ #' ## One row per region #' identical(length(regions), nrow(rse)) #' } -coverage_matrix <- function(project, chr, regions, chunksize = 1000, - bpparam = NULL, outdir = NULL, chrlen = NULL, verbose = TRUE, - verboseLoad = verbose, scale = TRUE, round = FALSE, ...) { +coverage_matrix <- function( + project, chr, regions, chunksize = 1000, + bpparam = NULL, outdir = NULL, chrlen = NULL, verbose = TRUE, + verboseLoad = verbose, scale = TRUE, round = FALSE, ...) { ## Check inputs stopifnot(is.character(project) & length(project) == 1) stopifnot(is.character(chr) & length(chr) == 1) diff --git a/R/download_retry.R b/R/download_retry.R index b9c65a9..cb5c582 100644 --- a/R/download_retry.R +++ b/R/download_retry.R @@ -26,8 +26,9 @@ #' download_retry( #' recount_url$url[which(recount_url$file_name == "files_info.tsv")[1]] #' ) -download_retry <- function(url, destfile = basename(url), mode = "wb", - N.TRIES = 3L, ...) { +download_retry <- function( + url, destfile = basename(url), mode = "wb", + N.TRIES = 3L, ...) { ## Based on http://bioconductor.org/developers/how-to/web-query/ ## and downloader::download() diff --git a/R/download_study.R b/R/download_study.R index 9d67c34..518c8eb 100644 --- a/R/download_study.R +++ b/R/download_study.R @@ -99,8 +99,9 @@ #' expect_equivalent(rse_gene, rse_gene_SRP009615) #' } #' -download_study <- function(project, type = "rse-gene", outdir = project, - download = TRUE, version = 2, ...) { +download_study <- function( + project, type = "rse-gene", outdir = project, + download = TRUE, version = 2, ...) { ## Check inputs stopifnot(is.character(project) & length(project) == 1) stopifnot(version %in% c(1, 2)) diff --git a/R/expressed_regions.R b/R/expressed_regions.R index 750223a..dc5c3f7 100644 --- a/R/expressed_regions.R +++ b/R/expressed_regions.R @@ -54,8 +54,9 @@ #' single <- unlist(GRangesList(regs)) #' } #' -expressed_regions <- function(project, chr, cutoff, outdir = NULL, - maxClusterGap = 300L, chrlen = NULL, verbose = TRUE, ...) { +expressed_regions <- function( + project, chr, cutoff, outdir = NULL, + maxClusterGap = 300L, chrlen = NULL, verbose = TRUE, ...) { ## Check inputs stopifnot(is.character(project) & length(project) == 1) stopifnot(is.character(chr) & length(chr) == 1) diff --git a/R/geo_info.R b/R/geo_info.R index 04f5440..ee16c53 100644 --- a/R/geo_info.R +++ b/R/geo_info.R @@ -25,8 +25,9 @@ #' #' @examples #' geo_info("GSM836270") -geo_info <- function(geoid, verbose = FALSE, sleep = 1 / 2, getGPL = FALSE, - destdir = tempdir(), ...) { +geo_info <- function( + geoid, verbose = FALSE, sleep = 1 / 2, getGPL = FALSE, + destdir = tempdir(), ...) { if (is.na(geoid)) { return(NULL) } diff --git a/R/scale_counts.R b/R/scale_counts.R index 49387e6..5f8e677 100644 --- a/R/scale_counts.R +++ b/R/scale_counts.R @@ -67,9 +67,9 @@ #' identical(rse_gene, rse_gene_SRP009615) #' } #' -scale_counts <- function(rse, by = "auc", targetSize = 4e7, L = 100, - factor_only = FALSE, round = TRUE) { - +scale_counts <- function( + rse, by = "auc", targetSize = 4e7, L = 100, + factor_only = FALSE, round = TRUE) { ## Check inputs stopifnot(is(rse, "RangedSummarizedExperiment")) stopifnot(length(targetSize) == 1) diff --git a/README.Rmd b/README.Rmd index 0b2bd35..0c469ca 100644 --- a/README.Rmd +++ b/README.Rmd @@ -16,17 +16,18 @@ knitr::opts_chunk$set( # recount -[![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://www.tidyverse.org/lifecycle/#stable) +[![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable) [![Bioc release status](http://www.bioconductor.org/shields/build/release/bioc/recount.svg)](https://bioconductor.org/checkResults/release/bioc-LATEST/recount) [![Bioc devel status](http://www.bioconductor.org/shields/build/devel/bioc/recount.svg)](https://bioconductor.org/checkResults/devel/bioc-LATEST/recount) -[![Codecov test coverage](https://codecov.io/gh/leekgroup/recount/branch/master/graph/badge.svg)](https://codecov.io/gh/leekgroup/recount?branch=master) -[![R build status](https://github.com/leekgroup/recount/workflows/R-CMD-check-bioc/badge.svg)](https://github.com/leekgroup/recount/actions) -[![GitHub issues](https://img.shields.io/github/issues/leekgroup/recount)](https://github.com/leekgroup/recount/issues) [![Bioc downloads rank](https://bioconductor.org/shields/downloads/release/recount.svg)](http://bioconductor.org/packages/stats/bioc/recount/) [![Bioc support](https://bioconductor.org/shields/posts/recount.svg)](https://support.bioconductor.org/tag/recount) [![Bioc history](https://bioconductor.org/shields/years-in-bioc/recount.svg)](https://bioconductor.org/packages/release/bioc/html/recount.html#since) [![Bioc last commit](https://bioconductor.org/shields/lastcommit/devel/bioc/recount.svg)](http://bioconductor.org/checkResults/devel/bioc-LATEST/recount/) [![Bioc dependencies](https://bioconductor.org/shields/dependencies/release/recount.svg)](https://bioconductor.org/packages/release/bioc/html/recount.html#since) +[![Codecov test coverage](https://codecov.io/gh/leekgroup/recount/branch/devel/graph/badge.svg)](https://codecov.io/gh/leekgroup/recount?branch=devel) +[![R build status](https://github.com/leekgroup/recount/workflows/R-CMD-check-bioc/badge.svg)](https://github.com/leekgroup/recount/actions) +[![GitHub issues](https://img.shields.io/github/issues/leekgroup/recount)](https://github.com/leekgroup/recount/issues) +[![GitHub pulls](https://img.shields.io/github/issues-pr/leekgroup/recount)](https://github.com/leekgroup/recount/pulls) Explore and download data from the recount project available at the [recount2 website](https://jhubiostatistics.shinyapps.io/recount/). Using the `recount` package you can download _RangedSummarizedExperiment_ objects at the gene, exon or exon-exon junctions level, the raw counts, the phenotype metadata used, the urls to the sample coverage bigWig files or the mean coverage bigWig file for a particular study. The _RangedSummarizedExperiment_ objects can be used by different packages for performing differential expression analysis. Using [derfinder](http://bioconductor.org/packages/derfinder) you can perform annotation-agnostic differential expression analyses with the data from the recount project. diff --git a/README.md b/README.md index 4b41cbd..26f9978 100644 --- a/README.md +++ b/README.md @@ -6,17 +6,11 @@ [![Lifecycle: -stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://www.tidyverse.org/lifecycle/#stable) +stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable) [![Bioc release status](http://www.bioconductor.org/shields/build/release/bioc/recount.svg)](https://bioconductor.org/checkResults/release/bioc-LATEST/recount) [![Bioc devel status](http://www.bioconductor.org/shields/build/devel/bioc/recount.svg)](https://bioconductor.org/checkResults/devel/bioc-LATEST/recount) -[![Codecov test -coverage](https://codecov.io/gh/leekgroup/recount/branch/master/graph/badge.svg)](https://codecov.io/gh/leekgroup/recount?branch=master) -[![R build -status](https://github.com/leekgroup/recount/workflows/R-CMD-check-bioc/badge.svg)](https://github.com/leekgroup/recount/actions) -[![GitHub -issues](https://img.shields.io/github/issues/leekgroup/recount)](https://github.com/leekgroup/recount/issues) [![Bioc downloads rank](https://bioconductor.org/shields/downloads/release/recount.svg)](http://bioconductor.org/packages/stats/bioc/recount/) [![Bioc @@ -27,6 +21,14 @@ history](https://bioconductor.org/shields/years-in-bioc/recount.svg)](https://bi commit](https://bioconductor.org/shields/lastcommit/devel/bioc/recount.svg)](http://bioconductor.org/checkResults/devel/bioc-LATEST/recount/) [![Bioc dependencies](https://bioconductor.org/shields/dependencies/release/recount.svg)](https://bioconductor.org/packages/release/bioc/html/recount.html#since) +[![Codecov test +coverage](https://codecov.io/gh/leekgroup/recount/branch/devel/graph/badge.svg)](https://codecov.io/gh/leekgroup/recount?branch=devel) +[![R build +status](https://github.com/leekgroup/recount/workflows/R-CMD-check-bioc/badge.svg)](https://github.com/leekgroup/recount/actions) +[![GitHub +issues](https://img.shields.io/github/issues/leekgroup/recount)](https://github.com/leekgroup/recount/issues) +[![GitHub +pulls](https://img.shields.io/github/issues-pr/leekgroup/recount)](https://github.com/leekgroup/recount/pulls) Explore and download data from the recount project available at the @@ -69,7 +71,6 @@ Please run this yourself to check for any updates on how to cite ``` r print(citation("recount"), bibtex = TRUE) -#> #> To cite package 'recount' in publications use: #> #> Collado-Torres L, Nellore A, Kammers K, Ellis SE, Taub MA, Hansen KD, @@ -128,7 +129,7 @@ print(citation("recount"), bibtex = TRUE) #> Jaffe AE, Langmead B, Leek JT (2023). _Explore and download data from #> the recount project_. doi:10.18129/B9.bioc.recount #> , -#> https://github.com/leekgroup/recount - R package version 1.25.1, +#> https://github.com/leekgroup/recount - R package version 1.27.0, #> . #> #> A BibTeX entry for LaTeX users is @@ -138,7 +139,7 @@ print(citation("recount"), bibtex = TRUE) #> author = {Leonardo Collado-Torres and Abhinav Nellore and Kai Kammers and Shannon E. Ellis and Margaret A. Taub and Kasper D. Hansen and Andrew E. Jaffe and Ben Langmead and Jeffrey T. Leek}, #> year = {2023}, #> url = {http://www.bioconductor.org/packages/recount}, -#> note = {https://github.com/leekgroup/recount - R package version 1.25.1}, +#> note = {https://github.com/leekgroup/recount - R package version 1.27.0}, #> doi = {10.18129/B9.bioc.recount}, #> } #> @@ -218,7 +219,7 @@ By contributing to this project, you agree to abide by its terms. *[rcmdcheck](https://CRAN.R-project.org/package=rcmdcheck)* customized to use [Bioconductor’s docker containers](https://www.bioconductor.org/help/docker/) and - *[BiocCheck](https://bioconductor.org/packages/3.16/BiocCheck)*. + *[BiocCheck](https://bioconductor.org/packages/3.17/BiocCheck)*. - Code coverage assessment is possible thanks to [codecov](https://codecov.io/gh) and *[covr](https://CRAN.R-project.org/package=covr)*. @@ -234,7 +235,7 @@ By contributing to this project, you agree to abide by its terms. For more details, check the `dev` directory. This package was developed using -*[biocthis](https://bioconductor.org/packages/3.16/biocthis)*. +*[biocthis](https://bioconductor.org/packages/3.17/biocthis)*. ## Teams involved diff --git a/dev/02_git_github_setup.R b/dev/02_git_github_setup.R index ae70cf8..91ea4f6 100644 --- a/dev/02_git_github_setup.R +++ b/dev/02_git_github_setup.R @@ -34,7 +34,7 @@ rstudioapi::restartSession() ## Now run use_github() usethis::use_github() ## Follow any prompts, such as running on the terminal: -## git push --set-upstream origin master +## git push --set-upstream origin devel ## Move to the next step: setting up your package core files diff --git a/dev/03_core_files.R b/dev/03_core_files.R index b136031..a0c605f 100644 --- a/dev/03_core_files.R +++ b/dev/03_core_files.R @@ -9,7 +9,7 @@ rstudioapi::navigateToFile(usethis::proj_path("dev", "02_git_github_setup.R")) ## Check http://r-pkgs.had.co.nz/description.html for details ## as well as http://bioconductor.org/developers/package-guidelines/#description -## Check https://github.com/lcolladotor/biocthis/blob/master/DESCRIPTION +## Check https://github.com/lcolladotor/biocthis/blob/devel/DESCRIPTION ## for an example. ## You'll at least want to edit the version to 0.99.0 (or lower) since that's diff --git a/man/recount-package.Rd b/man/recount-package.Rd index 553b286..7d5401a 100644 --- a/man/recount-package.Rd +++ b/man/recount-package.Rd @@ -6,18 +6,9 @@ \alias{recount-package} \title{recount: Explore and download data from the recount project} \description{ -\if{html}{\figure{logo.png}{options: align='right' alt='logo' width='120'}} +\if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}} -Explore and download data from the recount project available at - https://jhubiostatistics.shinyapps.io/recount/. Using the recount package you can - download RangedSummarizedExperiment objects at the gene, exon or exon-exon junctions level, - the raw counts, the phenotype metadata used, the urls to the sample coverage - bigWig files or the mean coverage bigWig file for a particular study. The - RangedSummarizedExperiment objects can be used by different packages for - performing differential expression analysis. Using - http://bioconductor.org/packages/derfinder you can perform - annotation-agnostic differential expression analyses with the data from the - recount project as described at http://www.nature.com/nbt/journal/v35/n4/full/nbt.3838.html. +Explore and download data from the recount project available at https://jhubiostatistics.shinyapps.io/recount/. Using the recount package you can download RangedSummarizedExperiment objects at the gene, exon or exon-exon junctions level, the raw counts, the phenotype metadata used, the urls to the sample coverage bigWig files or the mean coverage bigWig file for a particular study. The RangedSummarizedExperiment objects can be used by different packages for performing differential expression analysis. Using http://bioconductor.org/packages/derfinder you can perform annotation-agnostic differential expression analyses with the data from the recount project as described at http://www.nature.com/nbt/journal/v35/n4/full/nbt.3838.html. } \seealso{ Useful links: diff --git a/man/reproduce_ranges.Rd b/man/reproduce_ranges.Rd index 9593aec..09e8612 100644 --- a/man/reproduce_ranges.Rd +++ b/man/reproduce_ranges.Rd @@ -44,7 +44,6 @@ Bioconductor support forum details how to obtain the latest gene symbol mappings: \url{https://support.bioconductor.org/p/126148/#126173}. } \examples{ - \dontrun{ ## Reproduce gene level information genes <- reproduce_ranges() diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R index 7e17cd2..2bab781 100644 --- a/tests/testthat/test-data.R +++ b/tests/testthat/test-data.R @@ -155,7 +155,6 @@ if (.Platform$OS.type != "windows") { ) ) }) - } } @@ -212,7 +211,6 @@ if (!is.null(snap)) { expect_equal(snap_gtex$type == "GTEx:I", TRUE) expect_equal(snap_tcga$type == "TCGA:I", TRUE) }) - } else { warning("Snaptron_query() is not working! See https://github.com/ChristopherWilks/snaptron/issues/17 for more details.") }