[Seqinr-commits] r1617 - pkg/man

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

Author: lobry
Date: 2009-06-24 11:06:59 +0200 (Wed, 24 Jun 2009)
New Revision: 1617

Modified:
   pkg/man/readBins.Rd
Log:
new quality test with test file with trailling tabulations

Modified: pkg/man/readBins.Rd
===================================================================
--- pkg/man/readBins.Rd	2009-06-24 09:06:14 UTC (rev 1616)
+++ pkg/man/readBins.Rd	2009-06-24 09:06:59 UTC (rev 1617)
@@ -45,4 +45,12 @@
 # Show alleles expected sizes for a given marker:
 #
 resbin1[["Identifiler_v1"]][["D8S1179"]]
+#
+# Simple quality check since seqinr 2.0-4 with a configuration file
+# containing trailling tabulations:
+#
+path3 <- system.file("abif/Prototype_PowerPlex_EP01_Bins.txt", package = "seqinr")
+resbin3 <- readBins(path3)
+ncols <- sapply(resbin3[[2]], ncol)
+stopifnot(all(ncols == 4))
 }