Add a test for setInputValue(..., {priority: "event"})

175-setInputValue/app.R

@@ -0,0 +1,35 @@
+library(shiny)
+
+ui <- fluidPage(
+  includeScript("script.js"),
+  p("This test exercises Shiny.setInputValue() with different priorities."),
+  p("The word 'Pass' should appear below within a couple of seconds."),
+  uiOutput("result")
+)
+
+server <- function(input, output, session) {
+  test_evt_count <- reactiveVal(0)
+  observeEvent(input$test_evt, {
+    test_evt_count(test_evt_count() + 1)
+  })
+
+  test_val_count <- reactiveVal(0)
+  observeEvent(input$test_val, {
+    test_val_count(test_val_count() + 1)
+  })
+
+  o <- observeEvent(invalidateLater(2000), {
+    o$destroy()
+    output$result <- renderUI({
+      if (identical(test_evt_count(), 5) && identical(test_val_count(), 1)) {
+        tags$h1(class = "alert alert-success", "Pass")
+      } else {
+        tags$h1(class = "alert alert-danger", "fail")
+        message("test_evt_count() == ", test_evt_count())
+        message("test_val_count() == ", test_val_count())
+      }
+    })
+  }, ignoreNULL = FALSE, ignoreInit = TRUE)
+}
+
+shinyApp(ui, server)

175-setInputValue/script.js

@@ -0,0 +1,15 @@
+$(function() {
+  setTimeout(function() {
+    Shiny.setInputValue("test_evt", 1, {priority: "event"});
+    Shiny.setInputValue("test_evt", 1, {priority: "event"});
+    Shiny.setInputValue("test_evt", 1, {priority: "event"});
+    Shiny.setInputValue("test_evt", 1, {priority: "event"});
+    Shiny.setInputValue("test_evt", 1, {priority: "event"});
+
+    Shiny.setInputValue("test_val", 1, {priority: "immediate"});
+    Shiny.setInputValue("test_val", 1, {priority: "deferred"});
+    Shiny.setInputValue("test_val", 1, {priority: "immediate"});
+    Shiny.setInputValue("test_val", 1);
+    Shiny.setInputValue("test_val", 1);
+  }, 1000);
+});