more corrections for ape 3.0-7

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

diff --git a/R/read.dna.R b/R/read.dna.R
index 4b2ddd8e2a65dd7b664071251fd17824320a160e..f898f3bc8a2df3c28dc3697d8edf18edb70b76f6 100644 (file)
--- a/R/read.dna.R
+++ b/R/read.dna.R
@@ -16,6 +16,7 @@ read.FASTA <- function(file)
         x <- x[-icr]
     }
     res <- .Call("rawStreamToDNAbin", x, PACKAGE = "ape")
+    names(res) <- sub("^ +", "", names(res)) # to permit phylosim
     class(res) <- "DNAbin"
     res
 }