[Seqinr-commits] r1991 - pkg/R

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

Author: simonpenel
Date: 2016-09-01 15:02:59 +0200 (Thu, 01 Sep 2016)
New Revision: 1991

Modified:
   pkg/R/read.alignment.R
Log:
improved read.alignment function thanks  to Matthew Krause

Modified: pkg/R/read.alignment.R
===================================================================
--- pkg/R/read.alignment.R	2016-09-01 13:02:24 UTC (rev 1990)
+++ pkg/R/read.alignment.R	2016-09-01 13:02:59 UTC (rev 1991)
@@ -5,7 +5,8 @@
 {
   #
   # Check that we have read permission on the file:
-  #
+  # 
+  file <- path.expand(file) 
   if(file.access(file, mode = 4) != 0) stop(paste("File", file, "is not readable"))
   
   ali <- switch( format,