使用两种形式的用户输入修改 Shiny 反应式表达式

Question

我想使用可以通过两种方式之一更新的反应式表达式。下面是一个非常简单的示例，使用数字输入或重置按钮将表达式设置回其原始状态（实际上表达式更复杂，因此不能使用反应值）。似乎只识别了 num 的第二个定义，因此在示例中忽略了数字输入）。
我错过了什么？
非常感谢！

ui <- fluidPage(
  numericInput("number", "Input", 1),
  actionButton("button", "Reset"),
  textOutput("check")
)
server <- function(input, output){
  num <- reactive({
    input$number
  })
  num <- eventReactive(input$button, {
    1
  })
  output$check <- renderText({
    num()
  })
}
shinyApp(ui, server)

Answer 1

编辑：

我们可以对每个输入使用observeEvent() 来更新num()。

library(shiny)

ui <- fluidPage(
  numericInput("number", "Input", 1),
  actionButton("button", "Reset"),
  textOutput("check")
)
server <- function(input, output) {
  num <- reactiveVal()

  observeEvent(input$number, {
    num(input$number)
  })

  observeEvent(input$button, {
    num(1)
  })

  observeEvent(c(input$button, input$number), {
    output$check <- renderText({
      num()
    })
  })
}
shinyApp(ui, server)