[Bugs-r-devel] SF.net SVN: bugs-r:[243] trunk/BRugs/R/internal.R

[<li...@us...>]

Revision: 243
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=243&view=rev
Author:   ligges
Date:     2011-12-30 19:37:41 +0000 (Fri, 30 Dec 2011)
Log Message:
-----------
final glitch for 64-bit: file has .exe ending (wonder why it worked before?)

Modified Paths:
--------------
    trunk/BRugs/R/internal.R

Modified: trunk/BRugs/R/internal.R
===================================================================
--- trunk/BRugs/R/internal.R	2011-12-30 19:00:48 UTC (rev 242)
+++ trunk/BRugs/R/internal.R	2011-12-30 19:37:41 UTC (rev 243)
@@ -50,7 +50,7 @@
     trashDir <- paste(tempDir, "_trash", sep="")
     extFile <- getOption("BRugsExtFile")
     cmdFile <- paste(tempDir, "cmds.txt", sep="/")
-    bugsPath <- system.file("exec", "BugsHelper", package="BRugs")
+    bugsPath <- system.file("exec", paste("BugsHelper", if(.Platform$OS.type == "windows") ".exe", sep=""), package="BRugs")
     shcmd <- paste(dquote(bugsPath), dquote(tempDir), dquote(trashDir), dquote(extFile), dquote(cmdFile), dquote(ncmds))
     for (i in 1:ncmds) {
         if (cmdtypes[i] %in% c("CharArray","RealArray"))
@@ -85,7 +85,7 @@
         buf <- readLines(file.path(tempdir(), "buffer.txt"))
         trap <- grep("Sorry something went wrong", buf, value=TRUE)
         if(length(trap) > 0) message(trap[1])
-        stop(errors[res])#, "\nPlease report this bug to ", maintainer)
+        stop(errors[res], "\nPlease report this bug to ", maintainer)
     }
 }
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.