look up function by name (for R CMD check --as-cran)

trestletech · Oct 8, 2013 · 347e44f · 347e44f
1 parent d10cbc9
commit 347e44f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/shinywrappers.R b/R/shinywrappers.R
@@ -222,7 +222,7 @@ renderImage <- function(expr, env=parent.frame(), quoted=FALSE,
   installExprFunction(expr, "func", env, quoted)
 
   return(function(shinysession, name, ...) {
-    imageinfo <- func()
+    imageinfo <- get("func")()
     # Should the file be deleted after being sent? If .deleteFile not set or if
     # TRUE, then delete; otherwise don't delete.
     if (deleteFile) {