r - Is it possible for reset (actionButton) and submitButton to work independently in Shiny app?

Question

I have a reset (actionButton) and update button (submitButton) in my Shiny app. The problem is that to reset the app, I have to click on the reset button followed by the update button. Is it possible to reset the app without having to click on update?

EDIT: I do want the app to update only after the user explicitly clicks update. This is because in my app they will have the option to select several selectors to filter the data. Happy to use something else other than submitbutton, but so far this has been the only function that worked for the purpose.

In the example below, I have to click on update twice to get the whole app to reset :

library(shiny)
shinyApp(
  ui = basicPage(
    numericInput("num", label = "Make changes", value = 1),
    submitButton("Update", icon("refresh")),
    shinyjs::useShinyjs(),
    actionButton("reset", "Reset"),
    helpText(
      "When you click the button above, you should see",
      "the output below update to reflect the value you",
      "entered at the top:"
    ),
    verbatimTextOutput("value")
  ),
  server = function(input, output) {
    # submit buttons do not have a value of their own,
    # they control when the app accesses values of other widgets.
    # input$num is the value of the number widget.
    output$value <- renderPrint({
      input$num
    })
    
    observeEvent(input$reset, {
      shinyjs::reset("num")
    })
    
  }
)

I hope someone can enlighten me!

question from:https://stackoverflow.com/questions/65854940/is-it-possible-for-reset-actionbutton-and-submitbutton-to-work-independently-i

Answer 1

Perhaps actionButton in combination with updateNumericInput() will meet your needs. Try this

library(shiny)
shinyApp(
  ui = basicPage(
    numericInput("num", label = "Make changes", value = 1),
    actionButton("Update",  "refresh"),
    shinyjs::useShinyjs(),
    actionButton("reset", "Reset"),
    helpText(
      "When you click the button above, you should see",
      "the output below update to reflect the value you",
      "entered at the top:"
    ),
    verbatimTextOutput("value")
  ),
  server = function(input, output,session) {
    
    # submit buttons do not have a value of their own,
    # they control when the app accesses values of other widgets.
    # input$num is the value of the number widget. 
    
    
    observeEvent(input$Update, {
      output$value <- renderPrint({
        isolate(input$num)
      })
    })
    
    
    observeEvent(input$reset, {
      #shinyjs::reset("num")
      updateNumericInput(session,"num",value=1)
      
    })
    
  }
)