Debug code to see what is going on inside selectInput. Trying to set a value contained on server

Add link to Rook spec from docs

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 1.7.2
+Version: 1.7.2.9000
 Authors@R: c(
     person("Winston", "Chang", role = c("aut", "cre"), email = "winston@rstudio.com", comment = c(ORCID = "0000-0002-1576-2126")),
     person("Joe", "Cheng", role = "aut", email = "joe@rstudio.com"),

NEWS.md

@@ -1,3 +1,8 @@
+shiny 1.7.2.9000
+================
+
+
+
 shiny 1.7.2
 ===========
 

R/shiny.R

@@ -185,9 +185,11 @@ workerId <- local({
 #'   session is actually connected.
 #' }
 #' \item{request}{
-#'   An environment that implements the Rook specification for HTTP requests.
-#'   This is the request that was used to initiate the websocket connection
-#'   (as opposed to the request that downloaded the web page for the app).
+#'   An environment that implements the [Rook
+#'   specification](https://github.com/jeffreyhorner/Rook#the-environment) for
+#'   HTTP requests. This is the request that was used to initiate the websocket
+#'   connection (as opposed to the request that downloaded the web page for the
+#'   app).
 #' }
 #' \item{userData}{
 #'   An environment for app authors and module/package authors to store whatever

inst/www/shared/shiny-showcase.css

@@ -1,2 +1,2 @@
-/*! shiny 1.7.2 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.2.9000 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
 #showcase-well{border-radius:0}.shiny-code{background-color:#fff;margin-bottom:0}.shiny-code code{font-family:Menlo,Consolas,"Courier New",monospace}.shiny-code-container{margin-top:20px;clear:both}.shiny-code-container h3{display:inline;margin-right:15px}.showcase-header{font-size:16px;font-weight:normal}.showcase-code-link{text-align:right;padding:15px}#showcase-app-container{vertical-align:top}#showcase-code-tabs{margin-right:15px}#showcase-code-tabs pre{border:none;line-height:1em}#showcase-code-tabs .nav{margin-bottom:0}#showcase-code-tabs ul{margin-bottom:0}#showcase-code-tabs .tab-content{border-style:solid;border-color:#e5e5e5;border-width:0px 1px 1px 1px;overflow:auto;border-bottom-right-radius:4px;border-bottom-left-radius:4px}#showcase-app-code{width:100%}#showcase-code-position-toggle{float:right}#showcase-sxs-code{padding-top:20px;vertical-align:top}.showcase-code-license{display:block;text-align:right}#showcase-code-content pre{background-color:#fff}

inst/www/shared/shiny-testmode.js

@@ -1,3 +1,3 @@
-/*! shiny 1.7.2 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.2.9000 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
 (function(){var a=eval;window.addEventListener("message",function(i){var e=i.data;e.code&&a(e.code)});})();
 //# sourceMappingURL=shiny-testmode.js.map

inst/www/shared/shiny.js

@@ -1,4 +1,4 @@
-/*! shiny 1.7.2 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.2.9000 | (c) 2012-2022 RStudio, PBC. | License: GPL-3 | file LICENSE */
 (function() {
   var __create = Object.create;
   var __defProp = Object.defineProperty;
@@ -6715,12 +6715,28 @@
       value: function setValue(el, value) {
         if (!isSelectize(el)) {
           (0, import_jquery16.default)(el).val(value);
-        } else {
-          var selectize = this._selectize(el);
-          if (selectize) {
-            selectize.setValue(value);
-          }
+          return;
         }
+        var selectize = this._selectize(el);
+        if (!selectize)
+          return;
+        if (!selectize.settings.load) {
+          selectize.setValue(value);
+          return;
+        }
+        window.console.log("Querying server side value:", value);
+        var callbackFn = function callbackFn2(res) {
+          if (!res)
+            return;
+          window.console.log("Received server side value:", res);
+          if (hasOwnProperty(res, "value")) {
+            selectize.setValue(res.value);
+          } else if (selectize.settings.maxItems === 1) {
+            selectize.setValue(res[0].value);
+          }
+        };
+        selectize.clearOptions();
+        selectize.settings.load.apply(selectize, ["", callbackFn]);
       }
     }, {
       key: "getState",
@@ -12982,7 +12998,7 @@
   var windowShiny2;
   function setShiny(windowShiny_) {
     windowShiny2 = windowShiny_;
-    windowShiny2.version = "1.7.2";
+    windowShiny2.version = "1.7.2.9000";
     var _initInputBindings = initInputBindings(), inputBindings = _initInputBindings.inputBindings, fileInputBinding2 = _initInputBindings.fileInputBinding;
     var _initOutputBindings = initOutputBindings(), outputBindings = _initOutputBindings.outputBindings;
     setFileInputBinding(fileInputBinding2);

man/session.Rd

@@ -96,9 +96,10 @@ The equivalent of hitting the browser's Reload button. Only works if the
 session is actually connected.
 }
 \item{request}{
-An environment that implements the Rook specification for HTTP requests.
-This is the request that was used to initiate the websocket connection
-(as opposed to the request that downloaded the web page for the app).
+An environment that implements the \href{https://github.com/jeffreyhorner/Rook#the-environment}{Rook specification} for
+HTTP requests. This is the request that was used to initiate the websocket
+connection (as opposed to the request that downloaded the web page for the
+app).
 }
 \item{userData}{
 An environment for app authors and module/package authors to store whatever

package.json

@@ -3,7 +3,7 @@
   "homepage": "https://shiny.rstudio.com",
   "repository": "github:rstudio/shiny",
   "name": "@types/rstudio-shiny",
-  "version": "1.7.2",
+  "version": "1.7.2-alpha.9000",
   "license": "GPL-3.0-only",
   "main": "",
   "browser": "",

srcts/src/bindings/input/selectInput.ts

@@ -64,13 +64,33 @@ class SelectInputBinding extends InputBinding {
   setValue(el: SelectHTMLElement, value: string): void {
     if (!isSelectize(el)) {
       $(el).val(value);
-    } else {
-      const selectize = this._selectize(el);
-
-      if (selectize) {
-        selectize.setValue(value);
-      }
+      return;
     }
+    const selectize = this._selectize(el);
+
+    if (!selectize) return;
+    if (!selectize.settings.load) {
+      selectize.setValue(value);
+      return;
+    }
+
+    window.console.log("Querying server side value:", value);
+
+    const callbackFn = (res) => {
+      if (!res) return;
+      window.console.log("Received server side value:", res);
+
+      if (hasOwnProperty(res, "value")) {
+        selectize.setValue(res.value);
+      } else if (selectize.settings.maxItems === 1) {
+        // first item selected by default only for single-select
+        selectize.setValue(res[0].value);
+      }
+    };
+
+    // Server side filtering
+    selectize.clearOptions();
+    selectize.settings.load.apply(selectize, ["", callbackFn]);
   }
   getState(el: SelectHTMLElement): {
     label: JQuery<HTMLElement>;