[Bugs-r-devel] SF.net SVN: bugs-r: [85] trunk/R2WinBUGS

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

Revision: 85
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=85&view=rev
Author:   ligges
Date:     2008-02-01 01:42:28 -0800 (Fri, 01 Feb 2008)

Log Message:
-----------
bugfix if DIC is not available ...

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

Modified: trunk/R2WinBUGS/DESCRIPTION
===================================================================
--- trunk/R2WinBUGS/DESCRIPTION	2008-01-22 12:27:56 UTC (rev 84)
+++ trunk/R2WinBUGS/DESCRIPTION	2008-02-01 09:42:28 UTC (rev 85)
@@ -1,7 +1,7 @@
 Package: R2WinBUGS
 Title: Running WinBUGS and OpenBUGS from R / S-PLUS
-Date: 2008-01-18
-Version: 2.1-7
+Date: 2008-02-01
+Version: 2.1-8
 Author: originally written by Andrew Gelman <ge...@st...>;
  changes and packaged by Sibylle Sturtz <st...@st...>
  and Uwe Ligges <li...@st...>.

Modified: trunk/R2WinBUGS/R/bugs.log.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.log.R	2008-01-22 12:27:56 UTC (rev 84)
+++ trunk/R2WinBUGS/R/bugs.log.R	2008-02-01 09:42:28 UTC (rev 85)
@@ -11,10 +11,11 @@
   log.txt <- readLines(file)
   extract <- function (m, line.match, skip=0, empty.left.col=TRUE) {
     start <- (skip + which(m == line.match)[1])
-    if(is.na(start)) return(NULL)
-    if(length(start) < 1) return(NULL)
+    if(is.na(start)) return(NA)
+    if(length(start) < 1) return(NA)
     mx <- strsplit(m[-(1:start)], "\t")
     n.cols <- length(mx[[1]])
+    if(n.cols < 1) return(NA)
     mxlen <- sapply(mx, length)
     end <- which(mxlen!=n.cols)[1] - 1
     mx <- mx[1:end]


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