r - 从服务器更改 Shiny 的输入值

Question

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

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

Answer 1

有一种替代方法，它使用 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)

这个不错 article by Joe Cheng 阐述如何使用这个框架。