[Bugs-r-devel] SF.net SVN: bugs-r:[167] trunk

[<chr...@us...>]

Revision: 167
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=167&view=rev
Author:   chris-jackson
Date:     2010-08-18 14:45:01 +0000 (Wed, 18 Aug 2010)

Log Message:
-----------
Ignore the warning about the last line of the log file not ending with a newline.

Modified Paths:
--------------
    trunk/R2OpenBUGS/R/bugs.log.R
    trunk/R2WinBUGS/R/bugs.log.R

Modified: trunk/R2OpenBUGS/R/bugs.log.R
===================================================================
--- trunk/R2OpenBUGS/R/bugs.log.R	2010-08-16 22:30:16 UTC (rev 166)
+++ trunk/R2OpenBUGS/R/bugs.log.R	2010-08-18 14:45:01 UTC (rev 167)
@@ -8,7 +8,7 @@
 
   if(!file.exists(file))
     stop("Log file", file, "does not exist")
-  log.txt <- readLines(file)
+  log.txt <- readLines(file, warn=FALSE)
   extract <- function (m, line.match, skip=0, empty.left.col=TRUE) {
     start <- (skip + which(m == line.match)[1])
     if(is.na(start)) return(NA)

Modified: trunk/R2WinBUGS/R/bugs.log.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.log.R	2010-08-16 22:30:16 UTC (rev 166)
+++ trunk/R2WinBUGS/R/bugs.log.R	2010-08-18 14:45:01 UTC (rev 167)
@@ -8,7 +8,7 @@
 
   if(!file.exists(file))
     stop("Log file", file, "does not exist")
-  log.txt <- readLines(file)
+  log.txt <- readLines(file, warn=FALSE)
   extract <- function (m, line.match, skip=0, empty.left.col=TRUE) {
     start <- (skip + which(m == line.match)[1])
     if(is.na(start)) return(NA)


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