Tweaks. By Michael Chirico.

git-svn-id: https://svn.r-project.org/R/trunk@88262 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/tools/R/utils.R

@@ -2735,6 +2735,8 @@ R <-
 function(fun, args = list(), opts = "--no-save --no-restore",
          env = character(), arch = "", drop = TRUE, timeout = 0)
 {
+    stopifnot(is.list(args))
+    
     .safe_repositories <- function() {
         x <- getOption("repos")
         y <- .get_standard_repository_URLs()
@@ -2775,7 +2777,9 @@ function(fun, args = list(), opts = "--no-save --no-restore",
         val <- readRDS(tfo)
         if (inherits(val, "condition")) {
             ## maybe wrap in a classed error and include some of res
-            msg <- paste0("error in inferior call:\n  ", conditionMessage(val))
+            msg <- gettextf("error in inferior call:\n  %s",
+                            conditionMessage(val),
+                            domain = NA)
             stop(do.call(errorCondition,
                          c(list(message = msg, 
                                 class = "inferiorCallError",
@@ -2794,7 +2798,8 @@ function(fun, args = list(), opts = "--no-save --no-restore",
         ## again maybe wrap in a classed error  and include some of res
         ## might want to distinguish two errors by sub-classes
         stop(do.call(errorCondition,
-                     c(list(message = "inferior call failed",
+                     c(list(message = gettext("inferior call failed",
+                                              domain = NA),
                             class = "inferiorCallError"),
                        res = res)))
 }