make vcfstack example further smaller

Bioconductor · Dec 12, 2018 · 55e61c2 · 55e61c2
1 parent 6e93575
commit 55e61c2
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: VCFArray
 Title: Representing on-disk / remote VCF files as array-like objects
-Version: 0.99.16
+Version: 0.99.17
 Authors@R: c(
     person("Qian", "Liu", email = "[email protected]", role = c("aut", "cre")),	
     person("Martin", "Morgan", role = "aut"))	       

diff --git a/R/VCFArray-classes.R b/R/VCFArray-classes.R
@@ -260,7 +260,7 @@ setMethod(
 #' \dontrun{
 #' ## RangedVcfStack class
 #' extdata <- system.file(package = "GenomicFiles", "extdata")
-#' files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:3]
+#' files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:2]
 #' names(files) <- sub(".*_([0-9XY]+).*", "\\1", basename(files))
 #' seqinfo <- as(readRDS(file.path(extdata, "seqinfo.rds")), "Seqinfo")
 #' stack <- GenomicFiles::VcfStack(files, seqinfo)

diff --git a/man/VCFArray-classes.Rd b/man/VCFArray-classes.Rd
diff --git a/tests/testthat/test_VCFArray.R b/tests/testthat/test_VCFArray.R
@@ -60,7 +60,7 @@ test_that("VCFArraySeed and VCFArray constructor works", {
     ##----------------
 
     extdata <- system.file(package = "GenomicFiles", "extdata")
-    files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:3]
+    files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:2]
     names(files) <- sub(".*_([0-9XY]+).*", "\\1", basename(files))
     seqinfo <- as(readRDS(file.path(extdata, "seqinfo.rds")), "Seqinfo")
     stack <- GenomicFiles::VcfStack(files, seqinfo)

diff --git a/vignettes/VCFArray.Rmd b/vignettes/VCFArray.Rmd
@@ -119,7 +119,7 @@ be used to construct a `VCFArray`.
 
 ```{r rgstack}
 extdata <- system.file(package = "GenomicFiles", "extdata")
-files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:3]
+files <- dir(extdata, pattern="^CEUtrio.*bgz$", full=TRUE)[1:2]
 names(files) <- sub(".*_([0-9XY]+).*", "\\1", basename(files))
 seqinfo <- as(readRDS(file.path(extdata, "seqinfo.rds")), "Seqinfo")
 stack <- GenomicFiles::VcfStack(files, seqinfo)