Add setValue() method to sidebar input binding (needed for shinytest …

…to set it's value) (#495)
rstudio · Mar 6, 2023 · 5f90b6e · 5f90b6e
1 parent 6b7bbc1
commit 5f90b6e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/inst/components/sidebar.min.js b/inst/components/sidebar.min.js
diff --git a/inst/components/sidebar.min.js.map b/inst/components/sidebar.min.js.map
diff --git a/srcts/src/components/sidebar.ts b/srcts/src/components/sidebar.ts
@@ -20,6 +20,11 @@ class SidebarInputBinding extends InputBinding {
     return !$(el).parent().hasClass(COLLAPSE_CLASS);
   }
 
+  setValue(el: HTMLElement, value: boolean): void {
+    const method = value ? "open" : "close";
+    this.receiveMessage(el, { method });
+  }
+
   subscribe(el: HTMLElement, callback: (x: boolean) => void) {
     $(el).on(
       "toggleCollapse.sidebarInputBinding",