‘Reset inputs’ button in shiny app

by

First of all, your use of the observer is correct, but there is another way that’s slightly nicer. Instead of 

observe({
  input$reset_input
  updateNumericInput(session, "mynumber", value = 20)
  updateTextInput(session, "mytext", value = "test")
})

You can change it to

observeEvent(input$reset_input, {
  updateNumericInput(session, "mynumber", value = 20)
  updateTextInput(session, "mytext", value = "test")
})

Also note that you don’t need to explicitly “return” from a renderText function, the last statement will automatically be used.

Regarding the main question: Matthew’s solution is great, but there’s also a way to achieve what you want without having to move all your UI into the server. I think it’s better practice to keep your UI in the UI file just because separation of structure and logic is generally a good idea.

Full disclaimer: my solution involves using a package that I wrote. My package shinyjs has a reset function that allows you to reset an input or an HTML section back to its original value. Here is how to tweak your original code to your desired behaviour in a way that will scale to any number of inputs without having to add any code. All I had to do is add a call to useShinyjs() in the UI, add an “id” attribute to the form, and call reset(id) on the form.

library(shiny)

runApp(list(

  ui = pageWithSidebar(

    headerPanel("'Reset inputs' button example"),

    sidebarPanel(
      shinyjs::useShinyjs(),
      id = "side-panel",
      numericInput("mynumber", "Enter a number", 20),
      textInput("mytext", "Enter a text", "test"),
      tags$hr(),
      actionButton("reset_input", "Reset inputs")
    ),

    mainPanel(
      h4("Summary"),
      verbatimTextOutput("summary")
    )

  ),

  server = function(input, output, session) {

    output$summary <- renderText({
      return(paste(input$mytext, input$mynumber))
    })

    observeEvent(input$reset_input, {
      shinyjs::reset("side-panel")
    })
  }

))

More Related Contents:

  1. R shiny passing reactive to selectInput choices
  2. R Shiny: Handle Action Buttons in Data Table
  3. shiny 4 small textInput boxes side-by-side
  4. Shiny: what is the difference between observeEvent and eventReactive?
  5. how to insert new line in R shiny string
  6. Rtools is not being detected from RStudio
  7. how to create two independent drill down plot using Highcharter?
  8. Is it possible to stop executing of R code inside shiny (without stopping the shiny process)?
  9. Formatting reactive data.frames in Shiny
  10. Advantages of reactive vs. observe vs. observeEvent
  11. Adding a company Logo to ShinyDashboard header
  12. What is “object of type ‘closure’ is not subsettable” error in Shiny?
  13. Deploying R shiny app as a standalone application [closed]
  14. Shiny: passing input$var to aes() in ggplot2
  15. How to embed an image in a cell a table using DT, R and Shiny
  16. Show content for menuItem when menuSubItems exist in Shiny Dashboard
  17. How to listen for more than one event expression within a Shiny observeEvent
  18. Downloading png from Shiny (R)
  19. Passing data within Shiny Modules from Module 1 to Module 2
  20. Shiny renderUI selectInput returned NULL
  21. Are there global variables in R Shiny?
  22. ToolTip when you mouseover a ggplot on shiny
  23. How to pass environment variables to shinyapps
  24. Get selected rows of Rhandsontable
  25. Set global object in Shiny
  26. Shiny – observe() triggered by dynamicaly generated inputs
  27. How to convert docx to PDF?
  28. How to get a warning on “shiny app will not work if the same output is used twice”
  29. Get the size of the window in Shiny
  30. RStudio Shiny list from checking rows in dataTables

Leave a Comment