Close #369: don't statically copy shiny::renderUI() at build time

rstudio · Sep 29, 2021 · 67afa4b · 67afa4b
1 parent dc1e15b
commit 67afa4b
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/menuOutput.R b/R/menuOutput.R
@@ -141,7 +141,13 @@ menuItemOutput <- function(outputId) {
 #'
 #' shinyApp(ui, server)
 #' }
-renderMenu <- shiny::renderUI
+renderMenu <- function(expr, env = parent.frame(), quoted = FALSE, outputArgs = list()) {
+  if (!quoted) {
+    expr <- substitute(expr)
+    quoted <- TRUE
+  }
+  shiny::renderUI(expr, env = env, quoted = quoted, outputArgs = outputArgs)
+}
 
 # R CMD check thinks that shiny::renderUI has an undeclared global variable
 # called "func".