R Shiny：eventReactive 输出的初始渲染答案

【问题标题】：R Shiny: initial rendering of eventReactive outputR Shiny：eventReactive 输出的初始渲染
【发布时间】：2019-09-09 19:47:11
【问题描述】：

我想要实现的是在执行应用程序时正确呈现初始表。但是，仅在执行操作时更新表。

示例如下：

library(shiny)
library(data.table)

dt <- data.table(x = c("a", "b"), y = c(0,0))

ui <- fluidPage(

  sidebarLayout(

    sidebarPanel(
      selectInput(inputId = "inSelect", 
                  label = "Select:", 
                  choices = dt[,unique(x)]), 

      actionButton(inputId = "trigger",
                   label = "Trigger", 
                   icon = icon("refresh"))
    ),

    mainPanel(
      tableOutput("outTable")
    )

  )

)



server <- function(input, output){

  re <- eventReactive(input$trigger, {
    dt[x == input$inSelect, y := y + 1]
  })

  output$outTable <- renderTable({
    re()
  })

}

shinyApp(ui, server)

所以问题是在renderTable() 下我可以在dt 下显示初始表格或re() 在第一次按下“触发器”按钮后显示每个更新。

【问题讨论】：

ignoreNULL = FALSE eventReactive() 的参数

标签： r shiny

【解决方案1】：

做

  re <- eventReactive(input$trigger, {
    dt[x == input$inSelect, y := y + 1]
  }, ignoreNULL = FALSE)

来自?eventReactive：

observeEvent 和 eventReactive 都带有一个 ignoreNULL 参数影响 eventExpr 评估为 NULL 时的行为（或在 actionButton 的特殊情况，0)。

【讨论】：