From: <li...@us...> - 2009-11-04 18:56:56
|
Revision: 124 http://bugs-r.svn.sourceforge.net/bugs-r/?rev=124&view=rev Author: ligges Date: 2009-11-04 18:56:49 +0000 (Wed, 04 Nov 2009) Log Message: ----------- fix for model file path locations with backslash Modified Paths: -------------- trunk/R2WinBUGS/R/bugs.script.R Modified: trunk/R2WinBUGS/R/bugs.script.R =================================================================== --- trunk/R2WinBUGS/R/bugs.script.R 2009-11-04 17:10:23 UTC (rev 123) +++ trunk/R2WinBUGS/R/bugs.script.R 2009-11-04 18:56:49 UTC (rev 124) @@ -14,7 +14,7 @@ model <- if (length(grep("\\\\", model.file)) || length(grep("/", model.file))) { - model.file + gsub("\\\\", "/", model.file) } else file.path(working.directory, model.file) model <- native2win(model, useWINE=useWINE, newWINE=newWINE, WINEPATH=WINEPATH) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |