[Seqinr-commits] r1891 - pkg/man

[noreply at r-forge.r-project.org]

Author: jeanlobry
Date: 2016-06-02 13:27:24 +0200 (Thu, 02 Jun 2016)
New Revision: 1891

Modified:
   pkg/man/read.fasta.Rd
Log:
example with a gzipped file

Modified: pkg/man/read.fasta.Rd
===================================================================
--- pkg/man/read.fasta.Rd	2016-06-02 11:24:50 UTC (rev 1890)
+++ pkg/man/read.fasta.Rd	2016-06-02 11:27:24 UTC (rev 1891)
@@ -95,6 +95,12 @@
   mySmallProtein <- read.fasta(file = smallFastaFile, as.string = TRUE, seqtype = "AA")[[1]]
   stopifnot(mySmallProtein == "SEQINRSEQINRSEQINRSEQINR*")
 #
+# Simple sanity check with the gzipped version of the same small FASTA file:
+#
+  smallFastaFile <- system.file("sequences/smallAA.fasta.gz", package = "seqinr")
+  mySmallProtein <- read.fasta(file = smallFastaFile, as.string = TRUE, seqtype = "AA")[[1]]
+  stopifnot(mySmallProtein == "SEQINRSEQINRSEQINRSEQINR*")
+#
 # Example of a DNA file in FASTA format:
 #
   dnafile <- system.file("sequences/malM.fasta", package = "seqinr")