X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2Fread.dna.R;h=ab8051e023afeb2c48c4613348fe360c4dce224c;hp=fb8b54b7c7cc70746686ce6b5b8c8272b06f3509;hb=refs%2Fheads%2Fmaster;hpb=c488b74490ee3d9d200de0e471881f002a18fe4f

diff --git a/R/read.dna.R b/R/read.dna.R
index fb8b54b..ab8051e 100644
--- 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"