Permalink
Browse files

Just call RweaveEvalWithOpt if caching is turned off

  • Loading branch information...
rdpeng committed Jun 29, 2011
1 parent 80edc0f commit 6bd411db0b86ccb35da0f5adc4f28f1732210816
Showing with 1 addition and 6 deletions.
  1. +1 −6 R/SweaveCache.R
View
@@ -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
}

0 comments on commit 6bd411d

Please sign in to comment.