Greg filter select default

DESCRIPTION

@@ -41,4 +41,4 @@ Imports:
     ggplot2
 URL: https://rstudio.github.io/crosstalk/
 BugReports: https://github.com/rstudio/crosstalk/issues
-RoxygenNote: 6.1.1
+RoxygenNote: 7.1.0

NEWS.md

@@ -1,6 +1,7 @@
 ## crosstalk 1.0.1.9000
 
-* Add `selected` parameter to `filter_select`, to specify default selection.
+* Add `selected` parameter to `filter_select`, `filter_checkbox`, to
+  specify default selection.
 
 ## crosstalk 1.0.1
 

R/controls.R

@@ -190,7 +190,7 @@ columnize <- function(columnCount, elements) {
 #'
 #' @rdname filter_select
 #' @export
-filter_checkbox <- function(id, label, sharedData, group, allLevels = FALSE, inline = FALSE, columns = 1) {
+filter_checkbox <- function(id, label, sharedData, group, allLevels = FALSE, inline = FALSE, columns = 1, selected=NULL) {
   options <- makeGroupOptions(sharedData, group, allLevels)
 
   labels <- options$items$label
@@ -205,7 +205,7 @@ filter_checkbox <- function(id, label, sharedData, group, allLevels = FALSE, inl
       tags$div(class = "crosstalk-options-group",
         columnize(columns,
           mapply(labels, values, FUN = function(label, value) {
-            makeCheckbox(id, value, label)
+            makeCheckbox(id, value, label, value %in% selected)
           }, SIMPLIFY = FALSE, USE.NAMES = FALSE)
         )
       ),
@@ -218,18 +218,25 @@ filter_checkbox <- function(id, label, sharedData, group, allLevels = FALSE, inl
   ))
 }
 
-blockCheckbox <- function(id, value, label) {
+blockCheckbox <- function(id, value, label, checked) {
+  ifelse(checked,
+    cbox <- tags$input(type = "checkbox", name = id, value = value, checked=NA),
+    cbox <- tags$input(type = "checkbox", name = id, value = value))
   tags$div(class = "checkbox",
     tags$label(
-      tags$input(type = "checkbox", name = id, value = value),
+      cbox,
       tags$span(label)
     )
   )
 }
 
-inlineCheckbox <- function(id, value, label) {
+inlineCheckbox <- function(id, value, label, checked) {
+  ifelse(checked,
+    cbox <- tags$input(type = "checkbox", name = id, value = value, checked=NA),
+    cbox <- tags$input(type = "checkbox", name = id, value = value))
+
   tags$label(class = "checkbox-inline",
-    tags$input(type = "checkbox", name = id, value = value),
+    cbox,
     tags$span(label)
   )
 }

javascript/src/input_checkboxgroup.js

@@ -15,7 +15,7 @@ input.register({
 
     let lastKnownKeys;
     let $el = $(el);
-    $el.on("change", "input[type='checkbox']", function() {
+    function updateFilter() {
       let checked = $el.find("input[type='checkbox']:checked");
       if (checked.length === 0) {
         lastKnownKeys = null;
@@ -32,6 +32,11 @@ input.register({
         lastKnownKeys = keyArray;
         ctHandle.set(keyArray);
       }
+    }
+    $el.on("change", "input[type='checkbox']", updateFilter);
+    // https://stackoverflow.com/a/2926235/1527747
+    $(window).on("load", function() {
+      updateFilter();
     });
 
     return {

javascript/src/input_selectize.js

@@ -49,7 +49,10 @@ input.register({
       }
     }
     selectize.on("change", updateFilter);
-    updateFilter();
+    // https://stackoverflow.com/a/2926235/1527747
+    $(window).on("load", function() {
+      updateFilter();
+    });
 
     return {
       suspend: function() {