Modify a Shiny reactive expression with two forms of user input

Question

I want to use a reactive expression that can be updated in either of two ways. Below is a very simple example with either numeric input or a reset button to set the expression back to its original state (in practice the expression is more complex, so can't use reactive values). It seems that only the second definition of num is recognised, so in the example the numeric input is ignored).
What am I missing?
Many thanks!

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

Edit:

We can use observeEvent() with each input to update 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)