Change the input value in shiny from server

Question

I have an action botton with id=do, i would want change the value of and input called rhm_clic when the acction boton is clicked. I have this at the moment.

 observeEvent(input$do,{
   input$rhm_clic<-NULL
 })

Answer 1

There is an alternative to this which uses JS which I found to be very useful in some cases. This allows you to not have to use the update***input functions. Additionally, the input doesn't even need to have been previously defined.

library(shiny)

ui <- fluidPage(
  tags$script("
    Shiny.addCustomMessageHandler('rhm_clic', function(value) {
    Shiny.setInputValue('rhm_clic', value);
    });
  ")

# additional UI code
)

server <- function(input, output, session) {
  observeEvent(input$do, {
    session$sendCustomMessage("rhm_clic", 'null')
  })
# Additional server code
}

shinyApp(ui, server)

This is a good article by Joe Cheng laying out how to use this framework.