final wrap for ape 3.0

[ape.git] / R / clustal.R

diff --git a/R/clustal.R b/R/clustal.R
index 3cfd1c0373667aa4abf1ae66414975c069c825e8..656ecb2244e193d5f652bff4b13757d691e524bb 100644 (file)
--- a/R/clustal.R
+++ b/R/clustal.R
@@ -1,8 +1,8 @@
-## clustal.R (2011-03-16)
+## clustal.R (2012-01-12)
 
 ##   Multiple Sequence Alignment with External Applications
 
-## Copyright 2011 Emmanuel Paradis
+## Copyright 2011-2012 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -15,7 +15,7 @@ clustal <- function(x, pw.gapopen = 10, pw.gapext = 0.1,
     if (is.null(exec)) {
         if (os == "Linux") exec <- "clustalw"
         if (os == "Darwin") exec <- "clustalw2"
-        if (os == "Windows") exec <- "C:/Program Files/ClustalW2/clustalw2"
+        if (os == "Windows") shortPathName("C:/Program Files/ClustalW2/clustalw2.exe")
     }
 
     if (missing(x)) {