picker choicesOpt : accept tokens

srmatth · Nov 17, 2019 · 68a73f6 · 68a73f6
1 parent 6b0034c
commit 68a73f6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/input-selectpicker.R b/R/input-selectpicker.R
@@ -267,6 +267,7 @@ pickerSelectOptions <- function(choices, selected = NULL, choicesOpt = NULL, max
         `data-icon` = choicesOpt$icon[i],
         `data-subtext` = choicesOpt$subtext[i],
         `data-content` = choicesOpt$content[i],
+        `data-tokens` = choicesOpt$tokens[i],
         disabled = if (!is.null(choicesOpt$disabled[i]) && choicesOpt$disabled[i]) "disabled",
         selected = if (choice %in% selected) "selected" else NULL
       )