From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 13 Sep 2008 13:24:04 +0000 (+0000)
Subject: build: make things a little more robust.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ead62ca73b732cdeeffcbdce9160d65d6ac2cbe3;p=cran2deb.git

build: make things a little more robust.

turns out c(1,'lala') -> makes 1 a string. use list() instead. also
catch the exception when build_new_version fails.

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@104 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---

diff --git a/pkg/trunk/R/build.R b/pkg/trunk/R/build.R
index 84d80ef..320e953 100644
--- a/pkg/trunk/R/build.R
+++ b/pkg/trunk/R/build.R
@@ -6,7 +6,11 @@ build <- function(name,extra_deps,force=F) {
     }
     log_clear()
     dir <- setup()
-    version <- new_build_version(name)
+    version <- try(new_build_version(name))
+    if (inherits(version,'try-error')) {
+        error('failed to build',name)
+        return(NA)
+    }
     result <- try((function() {
         if (!force && !needs_build(name,version)) {
             notice('skipping build of',name)
diff --git a/pkg/trunk/R/db.R b/pkg/trunk/R/db.R
index 8c26c15..1ddcf8a 100644
--- a/pkg/trunk/R/db.R
+++ b/pkg/trunk/R/db.R
@@ -325,7 +325,7 @@ db_latest_build_status <- function(pkgname) {
     if (is.null(build)) {
         return(NULL)
     }
-    return(c(build$success,build$log))
+    return(list(build$success,build$log))
 }
 
 db_outdated_packages <- function() {