Always evaluate renderDT()'s ... in the parent.frame() (#1130)

Close #1129. Always evaluate renderDT()'s ... in the parent.frame()
rstudio · Mar 14, 2024 · 63517cb · 63517cb
1 parent b256b83
commit 63517cb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,8 @@
 
 - Added `outputArgs` parameter to `renderDataTable`, to allow width and height to be set when using interactive R Markdown documents.
 
+- Fixed a bug in `renderDT()`'s evaluation of `...` arguments when `quoted = TRUE` (#1130). 
+
 # CHANGES IN DT VERSION 0.32
 
 - Fixed a bug that caused the column used for grouping with the RowGroup extension to change when relocated by the ColReorder extension (thanks, @isthisthat, @mikmart, #1109).

diff --git a/R/shiny.R b/R/shiny.R
@@ -99,7 +99,7 @@ renderDataTable = function(
   outputInfoEnv[["session"]] = NULL
 
   exprFunc = shiny::exprToFunction(expr, env, quoted = TRUE)
-  argFunc = shiny::exprToFunction(list(..., server = server), env, quoted = FALSE)
+  argFunc = shiny::exprToFunction(list(..., server = server), parent.frame(), quoted = FALSE)
   widgetFunc = function() {
     opts = options(DT.datatable.shiny = TRUE); on.exit(options(opts), add = TRUE)
     instance = exprFunc()