X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fclustal.R;h=656ecb2244e193d5f652bff4b13757d691e524bb;hb=1ad48c7a70983375138a6500372db588c8a3a134;hp=3cfd1c0373667aa4abf1ae66414975c069c825e8;hpb=453ad4ce9e573998f28185d92c8d71367dd32f23;p=ape.git

diff --git a/R/clustal.R b/R/clustal.R
index 3cfd1c0..656ecb2 100644
--- 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)) {