在 Shiny 中观察多个事件的正确方法是什么？

Question

每次用户选择不同的日期范围、要显示的小数位数或通用变量与所有变量集时，我都需要一个数据表来更新。下面的代码有效，但我认为它不“正确”。我需要代码响应的三个变量（input$descr_daterange、input$descr_radio 和 input$descr_decimals）位于 renderDataTable 函数中。这似乎不是正确的做法。

    observeEvent(input$descr_daterange, {
            descr_date_inds <- reactiveValues()
            descr_date_inds$begin_ind <- min(which(substr(inputData$qcdata$LDT,1,10) == input$descr_daterange[1]))
            descr_date_inds$end_ind <- max(which(substr(inputData$qcdata$LDT,1,10) == input$descr_daterange[2]))
            
            output$data_descr <- renderDataTable({
                    description <- descr(inputData$qcdata[descr_date_inds$begin_ind:descr_date_inds$end_ind,],transpose = TRUE, stats = input$descr_radio)
                    description <- description[-which(row.names(description) == 'RecNum'),]
                    
                    if ('N.Valid' %in% colnames(description) & 'Pct.Valid' %in% colnames(description)){
                            description <- description[,-which(colnames(description) == 'N.Valid' | colnames(description) == 'Pct.Valid')]}
                    
                    description <- round2(description[,2:ncol(description)],input$descr_decimals)
                    return(description)
                    autoWidth = TRUE
                    options=list(pageLength = 50)
            })
    })

我见过列出如下变量的代码示例：

  observeEvent(c(input$descr_daterange, input$descr_decimals, input$descr_radio),  
{...})

但是，我收到警告说只有列表中的第一个正在被使用。我该如何编写代码以使其正常工作？

Answer 1

你很接近：将所有反应输入放在括号内以触发触发器。

试试这个：

observeEvent({
  input$descr_daterange
  input$descr_decimals
  input$descr_radio
}, {
  descr_date_inds <- reactiveValues()
  descr_date_inds$begin_ind <- min(which(substr(inputData$qcdata$LDT,1,10) == input$descr_daterange[1]))
  descr_date_inds$end_ind <- max(which(substr(inputData$qcdata$LDT,1,10) == input$descr_daterange[2]))
  
  output$data_descr <- renderDataTable({
    description <- descr(inputData$qcdata[descr_date_inds$begin_ind:descr_date_inds$end_ind,],transpose = TRUE, stats = input$descr_radio)
    description <- description[-which(row.names(description) == 'RecNum'),]
    
    if ('N.Valid' %in% colnames(description) & 'Pct.Valid' %in% colnames(description)){
      description <- description[,-which(colnames(description) == 'N.Valid' | colnames(description) == 'Pct.Valid')]}
    
    description <- round2(description[,2:ncol(description)],input$descr_decimals)
    return(description)
    autoWidth = TRUE
    options=list(pageLength = 50)
  })
})

顺便说一句：

1. reactiveValues() 往往属于 在反应块之外，并在其中使用/引用。我不知道您的应用程序的其余部分，也不知道您打算如何使用它们，因此您可能根本不需要它（并且只是在使用它的列表/环境功能），在这种情况下，您携带的是不需要的这样做的开销。

2. 你不应该在if 条件中使用& 或|，除非它包含在any 或all 或一些聚合函数中。 if 要求它的条件恰好是长度 1，而 &/| 是矢量化逻辑与/或，这意味着它们的长度可以是 0 或更多。

   即使&的两边都是length-1，还是有原因的：&&短路，&没有。

   ### short-circuiting
   TRUE || stop("hello")
   # [1] TRUE
   
   ### not
   TRUE | stop("hello")
   # Error: hello
   

   最后，它有点声明性，因为通过强迫自己使用&&，你必须考虑条件的长度。通过使用&，您暗示（对于正在阅读/使用您的代码的任何人）您将接受长度不是 1 的结果......这并不总是对 @ 有效987654337@.