From fc2849a8ff0cbb836ec6013bc8dfd8e7adf475d6 Mon Sep 17 00:00:00 2001
From: Winston Chang <winston@stdout.org>
Date: Fri, 20 Jul 2018 16:10:15 -0500
Subject: [PATCH] Remove env and quoted arguments

---
 R/render-cached-plot.R  | 4 ++--
 man/renderCachedPlot.Rd | 7 +------
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/R/render-cached-plot.R b/R/render-cached-plot.R
index 83e17995a..ddb15a5d7 100644
--- a/R/render-cached-plot.R
+++ b/R/render-cached-plot.R
@@ -289,12 +289,12 @@ renderCachedPlot <- function(expr,
   res = 72,
   cache = "app",
   ...,
-  env = parent.frame(), quoted = FALSE, outputArgs = list()
+  outputArgs = list()
 ) {
 
   # This ..stacktraceon is matched by a ..stacktraceoff.. when plotFunc
   # is called
-  installExprFunction(expr, "func", env, quoted, ..stacktraceon = TRUE)
+  installExprFunction(expr, "func", parent.frame(), quoted = FALSE, ..stacktraceon = TRUE)
   # This is so that the expr doesn't re-execute by itself; it needs to be
   # triggered by the cache key (or width/height) changing.
   isolatedFunc <- function() isolate(func())
diff --git a/man/renderCachedPlot.Rd b/man/renderCachedPlot.Rd
index 4ef5900be..2c107634a 100644
--- a/man/renderCachedPlot.Rd
+++ b/man/renderCachedPlot.Rd
@@ -6,7 +6,7 @@
 \usage{
 renderCachedPlot(expr, cacheKeyExpr, sizePolicy = sizeGrowthRatio(width = 400,
   height = 400, growthRate = 1.2), res = 72, cache = "app", ...,
-  env = parent.frame(), quoted = FALSE, outputArgs = list())
+  outputArgs = list())
 }
 \arguments{
 \item{expr}{An expression that generates a plot.}
@@ -32,11 +32,6 @@ information.}
 \item{...}{Arguments to be passed through to \code{\link[grDevices]{png}}.
 These can be used to set the width, height, background color, etc.}
 
-\item{env}{The environment in which to evaluate \code{expr}.}
-
-\item{quoted}{Is \code{expr} a quoted expression (with \code{quote()})? This
-is useful if you want to save an expression in a variable.}
-
 \item{outputArgs}{A list of arguments to be passed through to the implicit
 call to \code{\link{plotOutput}} when \code{renderPlot} is used in an
 interactive R Markdown document.}