如何将 R Shiny 反应式表达式作为自定义 function 中的默认参数传递

Question

我正在尝试将input$myInput文本字段作为预定义参数传递给自定义 function。 这对于将来控制文档 (roxygen2) 的功能 arguments 很重要。

这是一个最小的工作示例：应用程序应将输入字段绑定到 mtcars 数据集，并将自定义 function my_DTarguments与两个 arguments（1. 数据，2. 输入）一起应用：

library(shiny)
library(DT)


#function
my_DTarguments <- function(data, input=input$myInput) {
  
  DT::datatable(
    rownames = FALSE,
    data,
    extensions = 'Buttons',
    options = list(
      dom = 'frtipB',
      buttons = list(
        list(
          extend = 'csv',
          filename = paste0("mydesiredname-", "cyl-", input, "-", Sys.Date())
        ),
      )
    )
  )
}

shinyApp(
  ui <- fluidPage(
    textInput(inputId = "myInput", label = "My Input", placeholder = "a"),
    DT::dataTableOutput("table")
  ),
  
  server <- function(input, output) {

  #  combine mtcars with input field 
   mtcars1 <- reactive({ 
     cbind(mtcars, input$myInput)
     })
   
   # apply function to mtcars1 
    output$table <- DT::renderDataTable(
    my_DTarguments(mtcars1())
    )
    })    
  }
)

多次尝试后的最后一个错误是： promise already under evaluation: recursive default argument reference or earlier problems?

Answer 1

反应式表达式的事情是 Shiny 将它们添加到反应式链中，然后将链中的所有反应式表达式一一求值。 我们不知道 Shiny 执行此操作的顺序。

在您的情况下， Shiny 尝试评估renderDataTable并通过这样做调用my_DTarguments() 。 但是， myInput尚未被评估，因此出现错误。

当您使用反应式表达式作为默认 function 参数时，您应该始终在req(...)调用中添加一个（示例： req(input$myInput) ）。 但是您仍然必须在从 renderDataTable 调用my_DTarguments()时添加input$myInput renderDataTable 。 但是如果input$myInput仍然是空的，你会得到一个空列。

或者，您可以在调用my_DTarguments之前确保input$myInput为真。 在这种情况下，只有当input$myInput不为空并且 Shiny 已经对其求值时，该表才会显示。

我个人认为第二种方法更简洁。 我建议我们一般不要将反应式表达式用作函数的默认 arguments 。 当调用者无论如何都必须添加它时，它不仅违反了默认参数的想法。 反应式表达式的工作方式使它们仅在需要时在运行时环境中可用。 但是，只要调用 function，默认参数就应该可用。 这就像在我们的代码中添加一个预定的断点……当然，我们不希望这样。

library(shiny)
library(DT)


#function
my_DTarguments <- function(data, input=req(input$myInput)) {
  DT::datatable(
    rownames = FALSE,
    data,
    extensions = 'Buttons',
    options = list(
      dom = 'frtipB',
      buttons = list(
        #list(
          extend = 'csv',
          filename = paste0("mydesiredname-", "cyl-", input, "-", Sys.Date())
        #),
      )
    )
  )
}

shinyApp(
  ui <- fluidPage(
    textInput(inputId = "myInput", label = "My Input", placeholder = "a"),
    DT::dataTableOutput("table")
  ),
  
  server <- function(input, output) {
    
    #  combine mtcars with input field 
    mtcars1 <- reactive({ 
      cbind(mtcars, input$myInput)
    })
    
    # apply function to mtcars1 
    output$table <- DT::renderDataTable({
      my_DTarguments(mtcars1())
      # Alternative approach: call req() here
      # my_DTarguments(mtcars1(), req(input$myInput))
    })
  }
)

顺便说一句，按钮选项似乎有问题。 我注释掉了 2 行，以便代码运行。