use a check hint (globalVariables()) in favor of modifying code in re…

…nderImage
trestletech · Oct 9, 2013 · 6452f62 · 6452f62
1 parent 347e44f
commit 6452f62
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/shinywrappers.R b/R/shinywrappers.R
@@ -2,6 +2,7 @@ suppressPackageStartupMessages({
   library(caTools)
   library(xtable)
 })
+globalVariables('func')
 
 #' Plot Output
 #' 
@@ -222,7 +223,7 @@ renderImage <- function(expr, env=parent.frame(), quoted=FALSE,
   installExprFunction(expr, "func", env, quoted)
 
   return(function(shinysession, name, ...) {
-    imageinfo <- get("func")()
+    imageinfo <- func()
     # Should the file be deleted after being sent? If .deleteFile not set or if
     # TRUE, then delete; otherwise don't delete.
     if (deleteFile) {