final commit for ape 3.0-8

[ape.git] / R / read.dna.R

diff --git a/R/read.dna.R b/R/read.dna.R
index fb8b54b7c7cc70746686ce6b5b8c8272b06f3509..ab8051e023afeb2c48c4613348fe360c4dce224c 100644 (file)
--- a/R/read.dna.R
+++ b/R/read.dna.R
@@ -1,4 +1,4 @@
-## read.dna.R (2013-01-31)
+## read.dna.R (2013-04-02)
 
 ##   Read DNA Sequences in a File
 
@@ -12,7 +12,7 @@ read.FASTA <- function(file)
     sz <- file.info(file)$size
     x <- readBin(file, "raw", sz)
     icr <- which(x == as.raw(0x0d)) # CR
-    x <- x[-icr]
+    if (length(icr)) x <- x[-icr]
     res <- .Call("rawStreamToDNAbin", x, PACKAGE = "ape")
     names(res) <- sub("^ +", "", names(res)) # to permit phylosim
     class(res) <- "DNAbin"