Just call RweaveEvalWithOpt if caching is turned off

rdpeng · Jun 29, 2011 · 6bd411d · 6bd411d
1 parent 80edc0f
commit 6bd411d
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/R/SweaveCache.R b/R/SweaveCache.R
@@ -209,12 +209,7 @@ cacheSweaveEvalWithOpt <- function (expr, options) {
         else {
                 ## If caching is turned off, just evaluate the expression
                 ## in the global environment
-                res <- try(withVisible(eval(expr, .GlobalEnv)),
-                           silent=TRUE)
-                if(inherits(res, "try-error"))
-                        return(res)
-                if(options$print | (options$term & res$visible))
-                        print(res$value)
+                res <- utils::RweaveEvalWithOpt(expr, options)
         }
         res
 }