R中的闪亮：单击按钮后如何将输入值设置为NULL？

Question

我的情况如下：我有一个操作按钮（下一步）和一些单选按钮。每次，我单击操作按钮，不应该选择单选按钮和输入值，例如input$radio 应重置为 NULL（如开头那样）。 我在服务器文件中的方法如下：

observeEvent(input$Next, {
   updateRadioButtons(session, "choice", label = "", choices = list("A" = 1, "B" = 2, "C" = 3), selected = FALSE)
})

这很好用，我们称之为布局。每次我按下按钮时，之前的选择都不再显示。但是，input$choice（来自单选按钮的输入）仍然具有与以前相同的值。但是，我想将其重置为 NULL，因为我在单选按钮后面有一些条件面板，这些条件面板仅在 input$choice != null 时触发。 我非常感谢任何帮助！

Answer 1

您可以从客户端（浏览器）端自己覆盖该值。

有一个内置函数用于将各种值分配给input 变量，称为Shiny.onInputChange。这是一个 JavaScript 函数，用于将数据（在浏览器中选择的内容）发送到 R 会话。这样，您可以将 null（JavaScript 等效于 R NULL）分配给您想要的 input 变量，从而“重置”它。

当然，您需要从 R 服务器触发客户端，这是由 customMessageHandler 完成的，类似于 onInputChange 的对应项。它在客户端安装了一个监听器，它可以处理您发送给客户端的消息。

您需要了解的有关这些概念的所有信息都可以在here 找到。

下面是一个简短的例子：

library(shiny)

ui <- fluidPage(
  actionButton("Next", "Next"),
  radioButtons("choice", label = "", choices = list("A" = 1, "B" = 2, "C" = 3), selected = character(0)),
  textOutput("status"),
  tags$script("
    Shiny.addCustomMessageHandler('resetValue', function(variableName) {
      Shiny.onInputChange(variableName, null);
    });
  ")
)

server <- function(input, output, session){

  output$status <- renderText({input$choice})

  observeEvent(input$Next, {
    updateRadioButtons(session, "choice", selected = character(0))
    session$sendCustomMessage(type = "resetValue", message = "choice")
  })
}

shinyApp(ui, server)