更改来自服务器的闪亮输入值

我有一个操作按钮id=do，我希望在单击操作按钮时更改名为 rhm_clic 的值和输入。我现在有这个。

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

有一个使用 JS 的替代方案，我发现它在某些情况下非常有用。这使您不必使用update***input功能。此外，输入甚至不需要事先定义。

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)

这是一个很好的文章作者：乔城阐述如何使用这个框架。