comment out an example

averissimo · Jul 24, 2018 · 8b75d20 · 8b75d20
1 parent 5a51f3d
commit 8b75d20
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 6 deletions.
diff --git a/R/coding.genes.R b/R/coding.genes.R
@@ -7,7 +7,8 @@
 #' @return a table with gene information
 #' @export
 #' @examples
-#' coding.genes()
+#' # This can take a few minutes depending on the connection
+#' # coding.genes()
 coding.genes <- function (verbose = TRUE)
 {
   ensembl <- biomaRt::useMart("ensembl", host = 'http://www.ensembl.org')

diff --git a/man/coding.genes.Rd b/man/coding.genes.Rd
diff --git a/tests/testthat/test-coding.genes.R b/tests/testthat/test-coding.genes.R
@@ -1,9 +1,6 @@
 context("coding.genes")
 
-loose.rock::show.message(FALSE)
-loose.rock::run.cache(coding.genes, verbose = FALSE)
-
 test_that("coding genes retrieves some genes", {
-  genes <- loose.rock::run.cache(coding.genes, verbose = FALSE)
+  genes <- coding.genes(verbose = FALSE)
   expect_true(all(c('BRCA1', 'BRCA2', 'CHADL', 'BTBD8', 'BCAS2', 'AGAP1') %in% genes$external_gene_name))
 })