Add function in pkgdown and rename method

Co-authored-by: Carson Sievert <cpsievert1@gmail.com>

.yarnrc.yml

@@ -7,3 +7,4 @@ plugins:
     spec: "@yarnpkg/plugin-interactive-tools"
 
 yarnPath: .yarn/releases/yarn-3.2.3.cjs
+checksumBehavior: update

DESCRIPTION

@@ -1,19 +1,19 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 1.7.4.9002
+Version: 1.7.5.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"),
-    person("JJ", "Allaire", role = "aut", email = "jj@rstudio.com"),
-    person("Carson", "Sievert", role = "aut", email = "carson@rstudio.com", comment = c(ORCID = "0000-0002-4958-2844")),
-    person("Barret", "Schloerke", role = "aut", email = "barret@rstudio.com", comment = c(ORCID = "0000-0001-9986-114X")),
-    person("Yihui", "Xie", role = "aut", email = "yihui@rstudio.com"),
-    person("Jeff", "Allen", role = "aut", email = "jeff@rstudio.com"),
-    person("Jonathan", "McPherson", role = "aut", email = "jonathan@rstudio.com"),
+    person("Winston", "Chang", role = c("aut", "cre"), email = "winston@posit.co", comment = c(ORCID = "0000-0002-1576-2126")),
+    person("Joe", "Cheng", role = "aut", email = "joe@posit.co"),
+    person("JJ", "Allaire", role = "aut", email = "jj@posit.co"),
+    person("Carson", "Sievert", role = "aut", email = "carson@posit.co", comment = c(ORCID = "0000-0002-4958-2844")),
+    person("Barret", "Schloerke", role = "aut", email = "barret@posit.co", comment = c(ORCID = "0000-0001-9986-114X")),
+    person("Yihui", "Xie", role = "aut", email = "yihui@posit.co"),
+    person("Jeff", "Allen", role = "aut"),
+    person("Jonathan", "McPherson", role = "aut", email = "jonathan@posit.co"),
     person("Alan", "Dipert", role = "aut"),
     person("Barbara", "Borges", role = "aut"),
-    person(family = "RStudio", role = "cph"),
+    person("Posit Software, PBC", role = c("cph", "fnd")),
     person(family = "jQuery Foundation", role = "cph",
     comment = "jQuery library and jQuery UI library"),
     person(family = "jQuery contributors", role = c("ctb", "cph"),
@@ -111,7 +111,8 @@ Suggests:
     ragg,
     showtext,
     sass
-URL: https://shiny.rstudio.com/
+URL: https://shiny.posit.co/,
+    https://github.com/rstudio/shiny
 BugReports: https://github.com/rstudio/shiny/issues
 Collate:
     'globals.R'
@@ -175,6 +176,7 @@ Collate:
     'render-cached-plot.R'
     'render-plot.R'
     'render-table.R'
+    'run-example.R'
     'run-url.R'
     'runapp.R'
     'serializers.R'

NAMESPACE

@@ -43,11 +43,13 @@ S3method(bindEvent,reactiveExpr)
 S3method(bindEvent,shiny.render.function)
 S3method(format,reactiveExpr)
 S3method(format,reactiveVal)
+S3method(format,shiny_available_examples)
 S3method(names,reactivevalues)
 S3method(print,reactive)
 S3method(print,reactivevalues)
 S3method(print,shiny.appobj)
 S3method(print,shiny.render.function)
+S3method(print,shiny_available_examples)
 S3method(print,shiny_runtests)
 S3method(str,reactivevalues)
 export("conditionStackTrace<-")
@@ -65,6 +67,7 @@ export(addResourcePath)
 export(animationOptions)
 export(appendTab)
 export(as.shiny.appobj)
+export(availableExamples)
 export(basicPage)
 export(bindCache)
 export(bindEvent)

NEWS.md

@@ -1,21 +1,57 @@
-# shiny 1.7.4.9002
+# shiny (development version)
 
-## Full changelog
+## New features and improvements
 
-### Breaking changes
+* Updated `selectizeInput()`'s selectize.js dependency from v0.12.4 to v0.15.2. In addition to many bug fixes and improvements, this update also adds several new [plugin options](https://selectize.dev/docs/demos/plugins). (#3875)
 
-### New features and improvements
+* Shiny's CSS styling for things like `showNotification()`, `withProgress()`, `inputPanel()`, etc., now looks better with `{bslib}`'s upcoming CSS-only dark mode. (#3882)
 
-* Closed #789: Dynamic UI is now rendered asynchronously, thanks in part to the newly exported `Shiny.renderDependenciesAsync()`, `Shiny.renderHtmlAsync()`, and `Shiny.renderContentAsync()`. Importantly, this means `<script>` tags are now loaded asynchronously (the old way used `XMLHttpRequest`, which is synchronous). In addition, `Shiny` now manages a queue of async tasks (exposed via `Shiny.shinyapp.taskQueue`) so that order of execution is preserved. (#3666)
+## Bug fixes
+
+* `fileInput()` no longer has unwanted round corners applied to the `buttonLabel`. (#3879)
+
+* Fixed #3898: `wrapFunctionLabel()` no longer throws an error if the `name` is longer than 10000 bytes. (#3903)
+
+# shiny 1.7.5.1
+
+## Bug fixes
+
+* On r-devel (R > 4.3.1), `isTruthy(NULL)` now returns `FALSE` (as it does with older versions of R). (#3906)
+
+# shiny 1.7.5
+
+## Possibly breaking changes
 
 * For `reactiveValues()` objects, whenever the `$names()` or `$values()` methods are called, the keys are now returned in the order that they were inserted. (#3774)
 
+* The value provided to `options(shiny.json.digits)` is now interpreted as number of _digits after the decimal_ instead of _significant digits_. To treat the value as significant digits, wrap it in `I()` (e.g., `options(shiny.json.digits = I(4))`). This new default behavior not only helps with reducing digits in testing snapshots, but is also more consistent with `{jsonlite}`'s default behavior. (#3819)
+
+## New features and improvements
+
+* Closed #789: Dynamic UI is now rendered asynchronously, thanks in part to the newly exported `Shiny.renderDependenciesAsync()`, `Shiny.renderHtmlAsync()`, and `Shiny.renderContentAsync()`. Importantly, this means `<script>` tags are now loaded asynchronously (the old way used `XMLHttpRequest`, which is synchronous). In addition, `Shiny` now manages a queue of async tasks (exposed via `Shiny.shinyapp.taskQueue`) so that order of execution is preserved. (#3666)
+
+* Fixes #3840: `updateSliderInput()` now warns when attempting to set invalid `min`, `max`, or `value` values. Sending an invalid update message to an input no longer causes other update messages to fail. (#3843)
+
+* `sliderInput()` now has a larger target area for clicking or tapping on the slider handle or range. (#3859)
+
+* Closed #2956: Component authors can now prevent Shiny from creating an input binding on specific elements by adding the `data-shiny-no-bind-input` attribute to the element. The attribute may have any or no value; its presence will prevent binding. This feature is primarily useful for input component authors who want to use standard HTML input elements without causing Shiny to create an input binding for them. Additionally, Shiny now adds custom classes to its inputs. For example, `checkboxInput()` now has a `shiny-input-checkbox` class. These custom classes may be utilized in future updates to Shiny's input binding logic. (#3861)
+
 * `Map` objects are now initialized at load time instead of build time. This avoids potential problems that could arise from storing `fastmap` objects into the built Shiny package. (#3775)
 
-### Bug fixes
+## Bug fixes
 
 * Fixed #3771: Sometimes the error `ion.rangeSlider.min.js: i.stopPropagation is not a function` would appear in the JavaScript console. (#3772)
 
+* Fixed #3833: When `width` is provided to `textAreaInput()`, we now correctly set the width of the `<textarea>` element. (#3838)
+
+
+# shiny 1.7.4.1
+
+## Full changelog
+
+* Closed #3849: In R-devel, a warning was raised when Shiny was loaded because `as.numeric_version()` was called with a number instead of a string. (#3850)
+
+
 # shiny 1.7.4
 
 ## Full changelog
@@ -165,7 +201,7 @@ This release focuses on improvements in three main areas:
 
 1. Better theming (and Bootstrap 4) support:
   * The `theme` argument of `fluidPage()`, `navbarPage()`, and `bootstrapPage()` all now understand `bslib::bs_theme()` objects, which can be used to opt-into Bootstrap 4, use any Bootswatch theme, and/or implement custom themes without writing any CSS.
-  * The `session` object now includes `$setCurrentTheme()` and `$getCurrentTheme()` methods to dynamically update (or obtain) the page's `theme` after initial load, which is useful for things such as [adding a dark mode switch to an app](https://rstudio.github.io/bslib/articles/bslib.html#dynamic) or some other "real-time" theming tool like `bslib::bs_themer()`.
+  * The `session` object now includes `$setCurrentTheme()` and `$getCurrentTheme()` methods to dynamically update (or obtain) the page's `theme` after initial load, which is useful for things such as [adding a dark mode switch to an app](https://rstudio.github.io/bslib/articles/theming.html#dynamic) or some other "real-time" theming tool like `bslib::bs_themer()`.
   * For more details, see [`{bslib}`'s website](https://rstudio.github.io/bslib/)
 
 2. Caching of `reactive()` and `render*()` (e.g. `renderText()`, `renderTable()`, etc) expressions.
@@ -558,7 +594,7 @@ This is a significant release for Shiny, with a major new feature that was nearl
 
 * Fixed #1600: URL-encoded bookmarking did not work with sliders that had dates or date-times. (#1961)
 
-* Fixed #1962: [File dragging and dropping](https://www.rstudio.com/blog/shiny-1-0-4/) broke in the presence of jQuery version 3.0 as introduced by the [rhandsontable](https://jrowen.github.io/rhandsontable/) [htmlwidget](https://www.htmlwidgets.org/). (#2005)
+* Fixed #1962: [File dragging and dropping](https://posit.co/blog/shiny-1-0-4/) broke in the presence of jQuery version 3.0 as introduced by the [rhandsontable](https://jrowen.github.io/rhandsontable/) [htmlwidget](https://www.htmlwidgets.org/). (#2005)
 
 * Improved the error handling inside the `addResourcePath()` function, to give end users more informative error messages when the `directoryPath` argument cannot be normalized. This is especially useful for `runtime: shiny_prerendered` Rmd documents, like `learnr` tutorials. (#1968)
 

R/app-state.R

@@ -7,17 +7,6 @@ NULL
 
 .globals$appState <- NULL
 
-#' Check whether a Shiny application is running
-#'
-#' This function tests whether a Shiny application is currently running.
-#'
-#' @return `TRUE` if a Shiny application is currently running. Otherwise,
-#'   `FALSE`.
-#' @export
-isRunning <- function() {
-  !is.null(getCurrentAppState())
-}
-
 initCurrentAppState <- function(appobj) {
   if (!is.null(.globals$appState)) {
     stop("Can't initialize current app state when another is currently active.")
@@ -32,14 +21,6 @@ getCurrentAppState <- function() {
   .globals$appState
 }
 
-getCurrentAppStateOptions <- function() {
-  .globals$appState$options
-}
-setCurrentAppStateOptions <- function(options) {
-  stopifnot(isRunning())
-  .globals$appState$options <- options
-}
-
 clearCurrentAppState <- function() {
   .globals$appState <- NULL
 }

R/bind-cache.R

@@ -159,8 +159,8 @@ utils::globalVariables(".GenericCallEnv", add = TRUE)
 #'   ```
 #'
 #'   To use different settings for a session-scoped cache, you can set
-#'   `self$cache` at the top of your server function. By default, it will create
-#'   a 200 MB memory cache for each session, but you can replace it with
+#'   `session$cache` at the top of your server function. By default, it will
+#'   create a 200 MB memory cache for each session, but you can replace it with
 #'   something different. To use the session-scoped cache, you must also call
 #'   `bindCache()` with `cache="session"`. This will create a 100 MB cache for
 #'   the session:

R/bootstrap.R

@@ -374,8 +374,7 @@ collapseSizes <- function(padding) {
 #' @param inverse `TRUE` to use a dark background and light text for the
 #'   navigation bar
 #' @param collapsible `TRUE` to automatically collapse the navigation
-#'   elements into a menu when the width of the browser is less than 940 pixels
-#'   (useful for viewing on smaller touchscreen device)
+#'   elements into an expandable menu on mobile devices or narrow window widths.
 #' @param fluid `TRUE` to use a fluid layout. `FALSE` to use a fixed
 #'   layout.
 #' @param windowTitle the browser window title (as a character string). The

R/globals.R

@@ -16,12 +16,6 @@
   s3_register("knitr::knit_print", "reactive")
   s3_register("knitr::knit_print", "shiny.appobj")
   s3_register("knitr::knit_print", "shiny.render.function")
-
-  # Shiny 1.4.0 bumps jQuery 1.x to 3.x, which caused a problem
-  # with static-rendering of htmlwidgets, and htmlwidgets 1.5
-  # includes a fix for this problem
-  # https://github.com/rstudio/shiny/issues/2630
-  register_upgrade_message("htmlwidgets", 1.5)
 }
 
 

R/input-checkbox.R

@@ -31,7 +31,7 @@ checkboxInput <- function(inputId, label, value = FALSE, width = NULL) {
 
   value <- restoreInput(id = inputId, default = value)
 
-  inputTag <- tags$input(id = inputId, type="checkbox")
+  inputTag <- tags$input(id = inputId, type="checkbox", class = "shiny-input-checkbox")
   if (!is.null(value) && value)
     inputTag$attribs$checked <- "checked"
 

R/input-file.R

@@ -2,8 +2,13 @@
 #'
 #' Create a file upload control that can be used to upload one or more files.
 #'
-#' Whenever a file upload completes, the corresponding input variable is set
-#' to a dataframe. See the `Server value` section.
+#' Whenever a file upload completes, the corresponding input variable is set to
+#' a dataframe. See the `Server value` section.
+#'
+#' Each time files are uploaded, they are written to a new random subdirectory
+#' inside of R's process-level temporary directory. The Shiny user session keeps
+#' track of all uploads in the session, and when the session ends, Shiny deletes
+#' all of the subdirectories where files where uploaded to.
 #'
 #' @family input elements
 #'
@@ -11,21 +16,21 @@
 #' @param multiple Whether the user should be allowed to select and upload
 #'   multiple files at once. **Does not work on older browsers, including
 #'   Internet Explorer 9 and earlier.**
-#' @param accept A character vector of "unique file type specifiers" which
-#'   gives the browser a hint as to the type of file the server expects.
-#'   Many browsers use this prevent the user from selecting an invalid file.
+#' @param accept A character vector of "unique file type specifiers" which gives
+#'   the browser a hint as to the type of file the server expects. Many browsers
+#'   use this prevent the user from selecting an invalid file.
 #'
 #'   A unique file type specifier can be:
 #'   * A case insensitive extension like `.csv` or `.rds`.
 #'   * A valid MIME type, like `text/plain` or `application/pdf`
 #'   * One of `audio/*`, `video/*`, or `image/*` meaning any audio, video,
-#'     or image type, respectively.
+#'   or image type, respectively.
 #' @param buttonLabel The label used on the button. Can be text or an HTML tag
 #'   object.
 #' @param placeholder The text to show before a file has been uploaded.
 #' @param capture What source to use for capturing image, audio or video data.
-#'   This attribute facilitates user access to a device's media capture 
-#'   mechanism, such as a camera, or microphone, from within a file upload 
+#'   This attribute facilitates user access to a device's media capture
+#'   mechanism, such as a camera, or microphone, from within a file upload
 #'   control.
 #'
 #'   A value of `user` indicates that the user-facing camera and/or microphone
@@ -67,7 +72,9 @@
 #' }
 #'
 #' @section Server value:
-#' A `data.frame` that contains one row for each selected file, and following columns:
+#'
+#'   A `data.frame` that contains one row for each selected file, and following
+#'   columns:
 #' \describe{
 #'   \item{`name`}{The filename provided by the web browser. This is
 #'   **not** the path to read to get at the actual data that was uploaded
@@ -101,6 +108,7 @@ fileInput <- function(inputId, label, multiple = FALSE, accept = NULL,
 
   inputTag <- tags$input(
     id = inputId,
+    class = "shiny-input-file",
     name = inputId,
     type = "file",
     # Don't use "display: none;" style, which causes keyboard accessibility issue; instead use the following workaround: https://css-tricks.com/places-its-tempting-to-use-display-none-but-dont/

R/input-numeric.R

@@ -35,7 +35,7 @@ numericInput <- function(inputId, label, value, min = NA, max = NA, step = NA,
   value <- restoreInput(id = inputId, default = value)
 
   # build input tag
-  inputTag <- tags$input(id = inputId, type = "number", class="form-control",
+  inputTag <- tags$input(id = inputId, type = "number", class="shiny-input-number form-control",
                          value = formatNoSci(value))
   if (!is.na(min))
     inputTag$attribs$min = min

R/input-password.R

@@ -35,7 +35,7 @@ passwordInput <- function(inputId, label, value = "", width = NULL,
   div(class = "form-group shiny-input-container",
     style = css(width = validateCssUnit(width)),
     shinyInputLabel(inputId, label),
-    tags$input(id = inputId, type="password", class="form-control", value=value,
+    tags$input(id = inputId, type="password", class="shiny-input-password form-control", value=value,
                placeholder = placeholder)
   )
 }

R/input-select.R

@@ -4,7 +4,7 @@
 #' from a list of values.
 #'
 #' By default, `selectInput()` and `selectizeInput()` use the JavaScript library
-#' \pkg{selectize.js} (<https://github.com/selectize/selectize.js>) instead of
+#' \pkg{selectize.js} (<https://selectize.dev/>) instead of
 #' the basic select input element. To use the standard HTML select input
 #' element, use `selectInput()` with `selectize=FALSE`.
 #'
@@ -106,6 +106,7 @@ selectInput <- function(inputId, label, choices, selected = NULL,
   # create select tag and add options
   selectTag <- tags$select(
     id = inputId,
+    class = "shiny-input-select",
     class = if (!selectize) "form-control",
     size = size,
     selectOptions(choices, selected, inputId, selectize)
@@ -172,7 +173,7 @@ needOptgroup <- function(choices) {
 
 #' @rdname selectInput
 #' @param ... Arguments passed to `selectInput()`.
-#' @param options A list of options. See the documentation of \pkg{selectize.js}
+#' @param options A list of options. See the documentation of \pkg{selectize.js}(<https://selectize.dev/docs/usage>)
 #'   for possible options (character option values inside [base::I()] will
 #'   be treated as literal JavaScript code; see [renderDataTable()]
 #'   for details).
@@ -287,7 +288,7 @@ selectizeStaticDependency <- function(version) {
 #'
 #' By default, `varSelectInput()` and `selectizeInput()` use the
 #' JavaScript library \pkg{selectize.js}
-#' (<https://github.com/selectize/selectize.js>) to instead of the basic
+#' (<https://selectize.dev/>) to instead of the basic
 #' select input element. To use the standard HTML select input element, use
 #' `selectInput()` with `selectize=FALSE`.
 #'
@@ -383,7 +384,7 @@ varSelectInput <- function(
 
 #' @rdname varSelectInput
 #' @param ... Arguments passed to `varSelectInput()`.
-#' @param options A list of options. See the documentation of \pkg{selectize.js}
+#' @param options A list of options. See the documentation of \pkg{selectize.js}(<https://selectize.dev/docs/usage>)
 #'   for possible options (character option values inside [base::I()] will
 #'   be treated as literal JavaScript code; see [renderDataTable()]
 #'   for details).

R/input-text.R

@@ -42,7 +42,7 @@ textInput <- function(inputId, label, value = "", width = NULL,
   div(class = "form-group shiny-input-container",
     style = css(width = validateCssUnit(width)),
     shinyInputLabel(inputId, label),
-    tags$input(id = inputId, type="text", class="form-control", value=value,
+    tags$input(id = inputId, type="text", class="shiny-input-text form-control", value=value,
       placeholder = placeholder)
   )
 }

R/input-textarea.R

@@ -52,7 +52,7 @@ textAreaInput <- function(inputId, label, value = "", width = NULL, height = NUL
 
   style <- css(
     # The width is specified on the parent div.
-    width = if (!is.null(width)) "width: 100%;",
+    width = if (!is.null(width)) "100%",
     height = validateCssUnit(height),
     resize = resize
   )
@@ -62,7 +62,7 @@ textAreaInput <- function(inputId, label, value = "", width = NULL, height = NUL
     style = if (!is.null(width)) paste0("width: ", validateCssUnit(width), ";"),
     tags$textarea(
       id = inputId,
-      class = "form-control",
+      class = "shiny-input-textarea form-control",
       placeholder = placeholder,
       style = style,
       rows = rows,

R/map.R

@@ -48,9 +48,9 @@ Map <- R6Class(
   )
 )
 
-as.list.Map <- function(map) {
-  map$values()
+as.list.Map <- function(x, ...) {
+  x$values()
 }
-length.Map <- function(map) {
-  map$size()
+length.Map <- function(x) {
+  x$size()
 }

R/mock-session.R

@@ -274,7 +274,7 @@ MockShinySession <- R6Class(
       self$token <- createUniqueId(16)
 
       # Copy app-level options
-      self$options <- getCurrentAppStateOptions()
+      self$options <- getCurrentAppState()$options
 
       self$cache <- cachem::cache_mem()
       self$appcache <- cachem::cache_mem()

R/reactives.R

@@ -2187,8 +2187,8 @@ maskReactiveContext <- function(expr) {
 #' @param autoDestroy If `TRUE` (the default), the observer will be
 #'   automatically destroyed when its domain (if any) ends.
 #' @param ignoreNULL Whether the action should be triggered (or value
-#'   calculated, in the case of `eventReactive`) when the input is
-#'   `NULL`. See Details.
+#'   calculated, in the case of `eventReactive`) when the input event expression
+#'   is `NULL`. See Details.
 #' @param ignoreInit If `TRUE`, then, when this `observeEvent` is
 #'   first created/initialized, ignore the `handlerExpr` (the second
 #'   argument), whether it is otherwise supposed to run or not. The default is

R/run-example.R

@@ -0,0 +1,174 @@
+#' Function to get the path of a Shiny example in a package
+#'
+#' @param package A character string specifying the name of the package
+#' @param name A character string specifying the name of the example
+#'
+#' @return A character string specifying the path of the example
+#' OR a data frame containing information about all available Shiny examples
+#'
+#' @noRd
+runExampleAppDir <- function(package = NULL, name = NULL) {
+    # arg checking
+    if (is.null(package)) {
+        if (is.null(name)) {
+            # neither package nor name is specified
+            return(availableExamples(package = NULL))
+        } else {
+            stop("Please provide a package name
+            when specifying an example name.")
+        }
+    } else {
+        stopifnot(length(package) == 1 && is.character(package))
+        # Search for a Shiny example with a given name in a package
+        if (!is.null(name)) {
+            examples <- availableExamples(package = package)
+            example_path <- examples[examples$name == name, "source_directory"]
+            if (length(example_path) > 0) {
+                return(example_path)
+            } else {
+                stop("No matching example found within the package")
+            }
+        }
+        # only package is specified
+        return(availableExamples(package = package))
+    }
+}
+
+#' Function to get a data frame of all available Shiny examples
+#'
+#' @param package A character string specifying the name of the package
+#'
+#' @return A data frame containing information
+#' about all available Shiny examples
+#'
+#' @export
+availableExamples <- function(package = NULL) {
+    info <-
+        if (is.null(package)) {
+            allAvailableExamples()
+        } else {
+            availableExamplesForPackage(package)
+        }
+    if (!is.null(info$error)) {
+        stop(info$error, call. = FALSE)
+    }
+    examples <- info$examples
+    return(examples)
+}
+
+#' Function to get a data frame of all available Shiny examples for a package
+#'
+#' @param package A character string specifying the name of the package
+#'
+#' @return A data frame containing information about all
+#'  available Shiny examples for the package
+#' @noRd
+availableExamplesForPackage <- function(package) {
+    an_error <- function(...) {
+        list(
+            examples = NULL,
+            error = paste0(...)
+        )
+    }
+
+    if (!nzchar(system.file(package = package))) {
+        return(an_error(
+            "No package found with name: \"", package, "\""
+        ))
+    }
+
+    examples_dir <- system.file("shiny-examples", package = package)
+    if (!nzchar(examples_dir)) {
+        return(an_error(
+            "No Shiny examples found for package: \"", package, "\""
+        ))
+    }
+
+    example_folders <- list.dirs(
+        examples_dir,
+        full.names = TRUE,
+        recursive = FALSE
+    )
+    names(example_folders) <- basename(example_folders)
+
+    example_info <- lapply(example_folders, function(example_dir) {
+        data.frame(
+            package = package,
+            name = basename(example_dir),
+            source_directory = example_dir,
+            stringsAsFactors = FALSE,
+            row.names = FALSE
+        )
+    })
+
+    examples <- do.call(rbind, example_info)
+    class(examples) <- c("shiny_available_examples", class(examples))
+
+    list(
+        examples = examples,
+        error = NULL
+    )
+}
+
+#' Function to get a data frame of all available Shiny examples
+#'  for all installed packages
+#'
+#' @return A data frame containing information about
+#'  all available Shiny examples for all installed packages
+#' @noRd
+allAvailableExamples <- function() {
+    ret <- list()
+    all_pkgs <- installed.packages()[, "Package"]
+
+    for (pkg in all_pkgs) {
+        info <- availableExamplesForPackage(pkg)
+        if (!is.null(info$examples)) {
+            ret[[length(ret) + 1]] <- info$examples
+        }
+    }
+
+    # combines the data frames into a single data frame
+    examples <- do.call(rbind, ret)
+
+    list(
+        examples = examples, # will maintain class
+        error = NULL
+    )
+}
+
+#' @export
+format.shiny_available_examples <- function(x, ...) {
+    examples <- x
+    split_examples <- split(examples, examples$package)
+
+    pkg_examples <- vapply(
+        split_examples,
+        function(examples_sub) {
+            paste0(
+                "* ", examples_sub$package[1], "\n",
+                paste0("  - ", examples_sub$name, collapse = "\n")
+            )
+        },
+        character(1)
+    )
+
+    paste0(
+        "Available Shiny examples:\n",
+        paste0(pkg_examples, collapse = "\n")
+    )
+}
+
+#' @export
+print.shiny_available_examples <- function(x, ...) {
+    cat(format(x, ...), "\n", sep = "")
+}
+
+# runExampleAppDir()
+# runExampleAppDir(package = "shiny")
+# runExampleAppDir(package = "tidyverse")
+
+# runExampleAppDir(package = c("shiny", "tidyverse"))
+# runExampleAppDir(package = "shuny")
+# runExampleAppDir(name = "01_hello")
+# runExampleAppDir(package = "shiny", name = "01_hello")
+# runExampleAppDir(package = "shiny", name = "05_hello")

R/server.R

@@ -495,6 +495,16 @@ serviceApp <- function() {
 
 .shinyServerMinVersion <- '0.3.4'
 
+#' Check whether a Shiny application is running
+#'
+#' This function tests whether a Shiny application is currently running.
+#'
+#' @return `TRUE` if a Shiny application is currently running. Otherwise,
+#'   `FALSE`.
+#' @export
+isRunning <- function() {
+  !is.null(getCurrentAppState())
+}
 
 
 # Returns TRUE if we're running in Shiny Server or other hosting environment,

R/shiny-options.R

@@ -19,10 +19,10 @@ getShinyOption <- function(name, default = NULL) {
   }
 
   # Check if there's a current app
-  if (isRunning()) {
-    app_state_options <- getCurrentAppStateOptions()
-    if (name %in% names(app_state_options)) {
-      return(app_state_options[[name]])
+  app_state <- getCurrentAppState()
+  if (!is.null(app_state)) {
+    if (name %in% names(app_state$options)) {
+      return(app_state$options[[name]])
     } else {
       return(default)
     }
@@ -90,8 +90,9 @@ getShinyOption <- function(name, default = NULL) {
 #' \item{shiny.jquery.version (defaults to `3`)}{The major version of jQuery to use.
 #'   Currently only values of `3` or `1` are supported. If `1`, then jQuery 1.12.4 is used. If `3`,
 #'   then jQuery `r version_jquery` is used.}
-#' \item{shiny.json.digits (defaults to `16`)}{The number of digits to use when converting
-#'   numbers to JSON format to send to the client web browser.}
+#' \item{shiny.json.digits (defaults to `I(16)`)}{Max number of digits to use when converting
+#'   numbers to JSON format to send to the client web browser. Use [I()] to specify significant digits.
+#'   Use `NA` for max precision.}
 #' \item{shiny.launch.browser (defaults to `interactive()`)}{A boolean which controls the default behavior
 #'   when an app is run. See [runApp()] for more information.}
 #' \item{shiny.mathjax.url (defaults to `"https://mathjax.rstudio.com/latest/MathJax.js"`)}{
@@ -199,12 +200,11 @@ shinyOptions <- function(...) {
 
     # If not in a session, but we have a currently running app, modify options
     # at the app level.
-    if (isRunning()) {
+    app_state <- getCurrentAppState()
+    if (!is.null(app_state)) {
       # Modify app-level options
-      setCurrentAppStateOptions(
-        dropNulls(mergeVectors(getCurrentAppStateOptions(), newOpts))
-      )
-      return(invisible(getCurrentAppStateOptions()))
+      app_state$options <- dropNulls(mergeVectors(app_state$options, newOpts))
+      return(invisible(app_state$options))
     }
 
     # If no currently running app, modify global options and return them.
@@ -219,8 +219,9 @@ shinyOptions <- function(...) {
     return(session$options)
   }
 
-  if (isRunning()) {
-    return(getCurrentAppStateOptions())
+  app_state <- getCurrentAppState()
+  if (!is.null(app_state)) {
+    return(app_state$options)
   }
 
   return(.globals$options)

R/shiny-package.R

@@ -34,3 +34,11 @@ NULL
 # since we call require(shiny) as part of loading the app.
 #' @import methods
 NULL
+
+
+# For usethis::use_release_issue()
+release_bullets <- function() {
+  c(
+    "Update static imports: `staticimports::import()`"
+  )
+}

R/shiny.R

@@ -33,8 +33,12 @@ createUniqueId <- function(bytes, prefix = "", suffix = "") {
 }
 
 toJSON <- function(x, ...,  dataframe = "columns", null = "null", na = "null",
-  auto_unbox = TRUE, digits = getOption("shiny.json.digits", 16),
-  use_signif = TRUE, force = TRUE, POSIXt = "ISO8601", UTC = TRUE,
+  auto_unbox = TRUE,
+  # Shiny has had a legacy value of 16 significant digits
+  # We can use `I(16)` mixed with the default behavior in jsonlite's `use_signif=`
+  # https://github.com/jeroen/jsonlite/commit/728efa9
+  digits = getOption("shiny.json.digits", I(16)), use_signif = is(digits, "AsIs"),
+  force = TRUE, POSIXt = "ISO8601", UTC = TRUE,
   rownames = FALSE, keep_vec_names = TRUE, strict_atomic = TRUE) {
 
   if (strict_atomic) {
@@ -738,7 +742,7 @@ ShinySession <- R6Class(
       private$.outputOptions <- list()
 
       # Copy app-level options
-      self$options <- getCurrentAppStateOptions()
+      self$options <- getCurrentAppState()$options
 
       self$cache <- cachem::cache_mem(max_size = 200 * 1024^2)
 

R/staticimports.R

@@ -42,36 +42,20 @@ get_package_version <- function(pkg) {
 
 is_installed <- function(pkg, version = NULL) {
   installed <- isNamespaceLoaded(pkg) || nzchar(system_file_cached(package = pkg))
+
   if (is.null(version)) {
     return(installed)
   }
-  installed && isTRUE(get_package_version(pkg) >= version)
-}
 
-register_upgrade_message <- function(pkg, version, error = FALSE) {
+  if (!is.character(version) && !inherits(version, "numeric_version")) {
+    # Avoid https://bugs.r-project.org/show_bug.cgi?id=18548
+    alert <- if (identical(Sys.getenv("TESTTHAT"), "true")) stop else warning
+    alert("`version` must be a character string or a `package_version` or `numeric_version` object.")
 
-  msg <- sprintf(
-    "This version of '%s' is designed to work with '%s' >= %s.
-    Please upgrade via install.packages('%s').",
-    environmentName(environment(register_upgrade_message)),
-    pkg, version, pkg
-  )
-
-  cond <- if (error) stop else packageStartupMessage
-
-  if (pkg %in% loadedNamespaces() && !is_installed(pkg, version)) {
-    cond(msg)
+    version <- numeric_version(sprintf("%0.9g", version))
   }
 
-  # Always register hook in case pkg is loaded at some
-  # point the future (or, potentially, but less commonly,
-  # unloaded & reloaded)
-  setHook(
-    packageEvent(pkg, "onLoad"),
-    function(...) {
-      if (!is_installed(pkg, version)) cond(msg)
-    }
-  )
+  installed && isTRUE(get_package_version(pkg) >= version)
 }
 
 # Simplified version rlang:::s3_register() that just uses
@@ -190,11 +174,9 @@ system_file <- function(..., package = "base") {
   normalizePath(files, winslash = "/")
 }
 
-# A wrapper for `system.file()`, which caches the results, because
-# `system.file()` can be slow. Note that because of caching, if
-# `system_file_cached()` is called on a package that isn't installed, then the
-# package is installed, and then `system_file_cached()` is called again, it will
-# still return "".
+# A wrapper for `system.file()`, which caches the package path because
+# `system.file()` can be slow. If a package is not installed, the result won't
+# be cached.
 system_file_cached <- local({
   pkg_dir_cache <- character()
 
@@ -206,7 +188,9 @@ system_file_cached <- local({
     not_cached <- is.na(match(package, names(pkg_dir_cache)))
     if (not_cached) {
       pkg_dir <- system.file(package = package)
-      pkg_dir_cache[[package]] <<- pkg_dir
+      if (nzchar(pkg_dir)) {
+        pkg_dir_cache[[package]] <<- pkg_dir
+      }
     } else {
       pkg_dir <- pkg_dir_cache[[package]]
     }

R/update-input.R

@@ -423,6 +423,23 @@ updateSliderInput <- function(session = getDefaultReactiveDomain(), inputId, lab
 {
   validate_session_object(session)
 
+  if (!is.null(value)) {
+    if (!is.null(min) && !is.null(max)) {
+      # Validate value/min/max together if all three are provided
+      tryCatch(
+        validate_slider_value(min, max, value, "updateSliderInput"),
+        error = function(err) warning(conditionMessage(err), call. = FALSE)
+      )
+    } else if (length(value) <  1 || length(value) > 2 || any(is.na(value))) {
+      # Otherwise ensure basic assumptions about value are met
+      warning(
+        "In updateSliderInput(): value must be a single value or a length-2 ",
+        "vector and cannot contain NA values.",
+        call. = FALSE
+      )
+    }
+  }
+
   # If no min/max/value is provided, we won't know the
   # type, and this will return an empty string
   dataType <- getSliderType(min, max, value)

R/utils.R

@@ -4,7 +4,7 @@ NULL
 
 # @staticimports pkg:staticimports
 #   is_installed get_package_version system_file
-#   s3_register register_upgrade_message
+#   s3_register
 #   any_named any_unnamed
 
 #' Make a random number generator repeatable
@@ -1240,14 +1240,12 @@ dotloop <- function(fun_, ...) {
 #' @param x An expression whose truthiness value we want to determine
 #' @export
 isTruthy <- function(x) {
-  if (inherits(x, 'try-error'))
-    return(FALSE)
-
-  if (!is.atomic(x))
-    return(TRUE)
-
   if (is.null(x))
     return(FALSE)
+  if (inherits(x, 'try-error'))
+    return(FALSE)
+  if (!is.atomic(x))
+    return(TRUE)
   if (length(x) == 0)
     return(FALSE)
   if (all(is.na(x)))
@@ -1431,6 +1429,12 @@ wrapFunctionLabel <- function(func, name, ..stacktraceon = FALSE, dots = TRUE) {
   if (name == "name" || name == "func" || name == "relabelWrapper") {
     stop("Invalid name for wrapFunctionLabel: ", name)
   }
+  if (nchar(name, "bytes") > 10000) {
+    # Max variable length in R is 10000 bytes. Truncate to a shorter number of
+    # chars because some characters could be multi-byte.
+    name <- substr(name, 1, 5000)
+  }
+
   assign(name, func, environment())
   registerDebugHook(name, environment(), name)
 

R/version_selectize.R

@@ -1,2 +1,2 @@
 # Generated by tools/updateSelectize.R; do not edit by hand
-version_selectize <- "0.12.4"
+version_selectize <- "0.15.2"

README.md

@@ -16,7 +16,7 @@ Easily build rich and productive interactive web apps in R — no HTML/CSS/J
 * A prebuilt set of highly sophisticated, customizable, and easy-to-use widgets (e.g., plots, tables, sliders, dropdowns, date pickers, and more).
 * An attractive default look based on [Bootstrap](https://getbootstrap.com/) which can also be easily customized with the [bslib](https://github.com/rstudio/bslib) package or avoided entirely with more direct R bindings to HTML/CSS/JavaScript.
 * Seamless integration with [R Markdown](https://shiny.rstudio.com/articles/interactive-docs.html), making it easy to embed numerous applications natively within a larger dynamic document.
-* Tools for improving and monitoring performance, including native support for [async programming](https://www.rstudio.com/blog/shiny-1-1-0/), [caching](https://talks.cpsievert.me/20201117), [load testing](https://rstudio.github.io/shinyloadtest/), and more.
+* Tools for improving and monitoring performance, including native support for [async programming](https://posit.co/blog/shiny-1-1-0/), [caching](https://talks.cpsievert.me/20201117), [load testing](https://rstudio.github.io/shinyloadtest/), and more.
 * [Modules](https://shiny.rstudio.com/articles/modules.html): a framework for reducing code duplication and complexity.
 * An ability to [bookmark application state](https://shiny.rstudio.com/articles/bookmarking-state.html) and/or [generate code to reproduce output(s)](https://github.com/rstudio/shinymeta).
 * A rich ecosystem of extension packages for more [custom widgets](http://www.htmlwidgets.org/), [input validation](https://github.com/rstudio/shinyvalidate), [unit testing](https://github.com/rstudio/shinytest), and more.
@@ -45,6 +45,10 @@ For more examples and inspiration, check out the [Shiny User Gallery](https://sh
 
 For help with learning fundamental Shiny programming concepts, check out the [Mastering Shiny](https://mastering-shiny.org/) book and the [Shiny Tutorial](https://shiny.rstudio.com/tutorial/). The former is currently more up-to-date with modern Shiny features, whereas the latter takes a deeper, more visual, dive into fundamental concepts.
 
+## Join the conversation
+
+If you want to chat about Shiny, meet other developers, or help us decide what to work on next, [join us on Discord](https://discord.com/invite/yMGCamUMnS).
+
 ## Getting Help
 
 To ask a question about Shiny, please use the [RStudio Community website](https://community.rstudio.com/new-topic?category=shiny&tags=shiny).

inst/www/shared/ionrangeslider/css/ion.rangeSlider.css

@@ -1,5 +1,6 @@
 @charset "UTF-8";
 /* 'shiny' skin for Ion.RangeSlider, largely based on the 'big' skin, but with smaller dimensions, grayscale grid text, and without gradients
+© Posit, PBC, 2023
 © RStudio, Inc, 2014
 © Denis Ineshin, 2014  https://github.com/IonDen
 © guybowden, 2014  https://github.com/guybowden
@@ -174,6 +175,18 @@
   background-color: #ededed;
   border: 1px solid #cccccc;
   border-radius: 8px;
+  overflow: visible;
+}
+
+.irs--shiny .irs-line::before {
+  content: "";
+  display: block;
+  position: relative;
+  cursor: s-resize;
+  width: 100%;
+  height: 22px;
+  top: -9px;
+  z-index: 1;
 }
 
 .irs--shiny .irs-bar {
@@ -182,12 +195,24 @@
   border-top: 1px solid #428bca;
   border-bottom: 1px solid #428bca;
   background: #428bca;
+  cursor: s-resize;
+  z-index: 2;
 }
 
 .irs--shiny .irs-bar--single {
   border-radius: 8px 0 0 8px;
 }
 
+.irs--shiny .irs-bar::before {
+  content: "";
+  display: block;
+  position: relative;
+  width: 100%;
+  height: 22px;
+  top: -9px;
+  z-index: 2;
+}
+
 .irs--shiny .irs-shadow {
   top: 38px;
   height: 2px;
@@ -207,6 +232,7 @@
   background-color: #dedede;
   box-shadow: 1px 1px 3px rgba(255, 255, 255, 0.3);
   border-radius: 22px;
+  z-index: 2;
 }
 
 .irs--shiny .irs-handle.state_hover, .irs--shiny .irs-handle:hover {

inst/www/shared/ionrangeslider/scss/shiny.scss

@@ -1,4 +1,5 @@
 /* 'shiny' skin for Ion.RangeSlider, largely based on the 'big' skin, but with smaller dimensions, grayscale grid text, and without gradients
+© Posit, PBC, 2023
 © RStudio, Inc, 2014
 © Denis Ineshin, 2014  https://github.com/IonDen
 © guybowden, 2014  https://github.com/guybowden
@@ -79,6 +80,19 @@ $font-family: $font-family-base !default;
     background-color: $line_bg_color;
     border: $line_border;
     @include border-radius-shim($line_height);
+
+    // Increase the touch target area of the slider line
+    overflow: visible;
+    &::before {
+      content: "";
+      display: block;
+      position: relative;
+      cursor: s-resize; // downward arrow
+      width: 100%;
+      height: $handle_height;
+      top: -(($handle_height - $line_height / 2) / 2);
+      z-index: 1; // raise touch area above grid
+    }
   }
 
   .#{$name}-bar {
@@ -87,10 +101,23 @@ $font-family: $font-family-base !default;
     border-top: 1px solid $bar_color;
     border-bottom: 1px solid $bar_color;
     background: $bar_color;
+    cursor: s-resize; // downard arrow, overwritten when a range
+    z-index: 2;
 
     &--single {
       @include border-radius-shim($line_height 0 0 $line_height);
     }
+
+    // Increase the touch target area of the slider bar
+    &::before {
+      content: "";
+      display: block;
+      position: relative;
+      width: 100%;
+      height: $handle_height;
+      top: -(($handle_height - $line_height / 2) / 2);
+      z-index: 2; // raise touch area above line touch target
+    }
   }
 
   // sliderInput() doesn't currently support from_min/from_max, so this isn't relevant
@@ -114,6 +141,7 @@ $font-family: $font-family-base !default;
     background-color: $handle_color;
     box-shadow: $handle_box_shadow;
     border-radius: $handle_width;
+    z-index: 2;
 
     &.state_hover,
     &:hover {

inst/www/shared/selectize/scss/plugins/auto_position.scss

@@ -0,0 +1,16 @@
+.#{selectize}-dropdown.plugin-auto_position.#{$selectize}-position-top {
+  border-top: 1px solid $select-color-border;
+  border-bottom: 0 none;
+  border-radius: 3px 3px 0 0;
+  box-shadow: 0 -6px 12px rgba(var(--bs-body-color-rgb, 0,0,0), .18);
+}
+
+.#{selectize}-control.plugin-auto_position .#{selectize}-input.#{$selectize}-position-top.dropdown-active {
+  border-radius: 0 0 3px 3px;
+  border-top: 0 none;
+
+  &::before {
+    top: 0;
+    bottom: unset;
+  }
+}

inst/www/shared/selectize/scss/plugins/clear_button.scss

@@ -0,0 +1,29 @@
+.#{$selectize}-control.plugin-clear_button {
+    .clear {
+        text-decoration: none;
+        display: flex;
+        position: absolute;
+        height: 100%;
+        width: 25px;
+        top: 0;
+        right: calc(#{$select-padding-x} - #{$select-padding-item-x});
+        color: var(--bs-body-color, black);
+        opacity: 0.4;
+        font-weight: bold;
+        border: none;
+        cursor: pointer;
+        z-index: 1;
+        font-size: 21px;
+        justify-content: center;
+        align-items: center;
+    }
+
+    .clear:hover {
+        opacity: 1;
+    }
+
+    &.single .clear {
+        right: calc(#{$select-padding-x} - #{$select-padding-item-x} + 1.5rem);
+    }
+
+}

inst/www/shared/selectize/scss/plugins/drag_drop.scss

@@ -1,16 +1,19 @@
-.selectize-control.plugin-drag_drop {
-  &.multi > .selectize-input > div.ui-sortable-placeholder {
-	visibility: visible !important;
-	background: #f2f2f2 !important;
-	background: rgba(0,0,0,0.06) !important;
-	border: 0 none !important;
-	@include selectize-box-shadow(inset 0 0 12px 4px #fff);
+.#{$selectize}-control.plugin-drag_drop {
+  &.multi > .#{$selectize}-input.dragging {
+    overflow: visible;
+  }
+  &.multi > .#{$selectize}-input > div.ui-sortable-placeholder {
+    visibility: visible !important;
+    background: #f2f2f2 !important;
+    background: rgba(0, 0, 0, 0.06) !important;
+    border: 0 none !important;
+    box-shadow: inset 0 0 12px 4px #fff;
   }
   .ui-sortable-placeholder::after {
-	content: '!';
-	visibility: hidden;
+    content: "!";
+    visibility: hidden;
   }
   .ui-sortable-helper {
-	@include selectize-box-shadow(0 2px 5px rgba(0,0,0,0.2));
+    box-shadow: 0 2px 5px rgba(0, 0, 0, 0.2);
   }
-}
+}

inst/www/shared/selectize/scss/plugins/dropdown_header.scss

@@ -1,20 +1,24 @@
-.selectize-dropdown-header {
-  position: relative;
-  padding: $selectize-padding-dropdown-item-y $selectize-padding-dropdown-item-x;
-  border-bottom: 1px solid $selectize-color-border;
-  background: mix($selectize-color-dropdown, $selectize-color-border, 85%);
-  @include selectize-border-radius($selectize-border-radius $selectize-border-radius 0 0);
+.#{$selectize}-dropdown.plugin-dropdown_header {
+  .#{$selectize}-dropdown-header {
+    position: relative;
+    padding: ($select-padding-dropdown-item-y * 2)
+      $select-padding-dropdown-item-x;
+    border-bottom: 1px solid $select-color-border;
+    background: RGBA($select-color-dropdown, 0.15);
+    border-radius: $select-border-radius $select-border-radius 0 0;
+  }
+  .#{$selectize}-dropdown-header-close {
+    position: absolute;
+    right: $select-padding-dropdown-item-x;
+    top: 50%;
+    color: $select-color-text;
+    opacity: 0.4;
+    margin-top: -12px;
+    line-height: 20px;
+    font-size: 20px !important;
+    text-decoration: none;
+  }
+  .#{$selectize}-dropdown-header-close:hover {
+    color: RGB($select-color-rgb);
+  }
 }
-.selectize-dropdown-header-close {
-  position: absolute;
-  right: $selectize-padding-dropdown-item-x;
-  top: 50%;
-  color: $selectize-color-text;
-  opacity: 0.4;
-  margin-top: -12px;
-  line-height: 20px;
-  font-size: 20px !important;
-}
-.selectize-dropdown-header-close:hover {
-  color: darken($selectize-color-text, 25%);
-}

inst/www/shared/selectize/scss/plugins/optgroup_columns.scss

@@ -1,17 +1,22 @@
-.selectize-dropdown.plugin-optgroup_columns {
+.#{$selectize}-dropdown.plugin-optgroup_columns {
+  .#{$selectize}-dropdown-content {
+    display: flex;
+  }
+
   .optgroup {
-	border-right: 1px solid #f2f2f2;
-	border-top: 0 none;
-	float: left;
-	@include selectize-box-sizing(border-box);
+    border-right: 1px solid #f2f2f2;
+    border-top: 0 none;
+    flex-grow: 1;
+    flex-basis: 0;
+    min-width: 0;
   }
   .optgroup:last-child {
-	border-right: 0 none;
+    border-right: 0 none;
   }
   .optgroup:before {
-	display: none;
+    display: none;
   }
   .optgroup-header {
-	border-top: 0 none;
+    border-top: 0 none;
   }
-}
+}

inst/www/shared/selectize/scss/plugins/remove_button.scss

@@ -1,43 +1,38 @@
-.selectize-control.plugin-remove_button {
-  [data-value] {
-	position: relative;
-	padding-right: 24px !important;
+.#{$selectize}-control.plugin-remove_button {
+  .item {
+    display: inline-flex;
+    align-items: center;
+    padding-right: 0 !important;
   }
-  [data-value] .remove {
-	z-index: 1; /* fixes ie bug (see #392) */
-	position: absolute;
-	top: 0;
-	right: 0;
-	bottom: 0;
-	width: 17px;
-	text-align: center;
-	font-weight: bold;
-	font-size: 12px;
-	color: inherit;
-	text-decoration: none;
-	vertical-align: middle;
-	display: inline-block;
-	padding: $selectize-padding-item-y 0 0 0;
-	border-left: 1px solid $selectize-color-item-border;
-	@include selectize-border-radius(0 2px 2px 0);
-	@include selectize-box-sizing(border-box);
+
+  .item .remove {
+    color: inherit;
+    text-decoration: none;
+    vertical-align: middle;
+    display: inline-block;
+    padding: $select-padding-item-y $select-padding-item-x;
+    border-left: 1px solid $select-color-item-border;
+    border-radius: 0 2px 2px 0;
+    box-sizing: border-box;
+    margin-left: $select-padding-item-x;
   }
-  [data-value] .remove:hover {
-	background: rgba(0,0,0,0.05);
+
+  .item .remove:hover {
+    background: rgba(0, 0, 0, 0.05);
   }
-  [data-value].active .remove {
-	border-left-color: $selectize-color-item-active-border;
+
+  .item.active .remove {
+    border-left-color: $select-color-item-active-border;
   }
-  .disabled [data-value] .remove:hover {
-	background: none;
+
+  .disabled .item .remove:hover {
+    background: none;
   }
-  .disabled [data-value] .remove {
-	border-left-color: lighten(desaturate($selectize-color-item-border, 100%), $selectize-lighten-disabled-item-border);
-  }
-  .remove-single {
-	position: absolute;
-	right: 0;
-	top: 0;
-	font-size: 23px;
+
+  .disabled .item .remove {
+    border-left-color: lighten(
+      desaturate($select-color-item-border, 100%),
+      $select-lighten-disabled-item-border
+    );
   }
 }

inst/www/shared/selectize/scss/selectize.bootstrap3.scss

@@ -1,158 +1,136 @@
-/**
- * selectize.bootstrap3.css (v0.12.3) - Bootstrap 3 Theme
- * Copyright (c) 2013–2015 Brian Reavis & contributors
- *
- * Licensed under the Apache License, Version 2.0 (the "License"); you may not use this
- * file except in compliance with the License. You may obtain a copy of the License at:
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software distributed under
- * the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
- * ANY KIND, either express or implied. See the License for the specific language
- * governing permissions and limitations under the License.
- *
- * @author Brian Reavis <brian@thirdroute.com>
- */
 
-$selectize-font-family: inherit !default;
-$selectize-font-size: inherit !default;
-$selectize-line-height: $line-height-computed !default;
+$select-font-family: inherit;
+$select-font-size: inherit;
+$select-line-height: $line-height-computed;
 
-$selectize-color-text: $input-color !default;
-$selectize-color-highlight: rgba(255,237,40,0.4) !default;
-$selectize-color-input: $input-bg !default;
-$selectize-color-input-full: $input-bg !default;
-$selectize-color-input-error: $state-danger-text !default;
-$selectize-color-input-error-focus: darken($selectize-color-input-error, 10%) !default;
-$selectize-color-disabled: $input-bg !default;
-$selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
-$selectize-color-item-border: rgba(black, 0) !default;
-$selectize-color-item-active: $component-active-bg !default;
-$selectize-color-item-active-text: color-contrast($selectize-color-item-active) !default;
-$selectize-color-item-active-border: rgba(black, 0) !default;
-$selectize-color-optgroup: $dropdown-bg !default;
-$selectize-color-optgroup-text: $dropdown-header-color !default;
-$selectize-color-optgroup-border: $dropdown-divider-bg !default;
-$selectize-color-dropdown: $dropdown-bg !default;
-$selectize-color-dropdown-text: $dropdown-link-color !default;
-$selectize-color-dropdown-border-top: mix($input-border, $input-bg, 0.8) !default;
-$selectize-color-dropdown-item-active: $dropdown-link-hover-bg !default;
-$selectize-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
-$selectize-color-dropdown-item-create-active-text: $dropdown-link-hover-color !default;
-$selectize-opacity-disabled: 0.5 !default;
-$selectize-shadow-input: none !default;
-$selectize-shadow-input-focus: inset 0 1px 2px rgba(black, 0.15) !default;
-$selectize-shadow-input-error: inset 0 1px 1px rgba(black, .075) !default;
-$selectize-shadow-input-error-focus: inset 0 1px 1px rgba(black, .075), 0 0 6px lighten($selectize-color-input-error, 20%) !default;
-$selectize-border: 1px solid $input-border !default;
-$selectize-border-radius: $input-border-radius !default;
+$select-color-text: $text-color;
+$select-color-highlight: rgba(255, 237, 40, 0.4);
+$select-color-input: $input-bg;
+$select-color-input-full: $input-bg;
+$select-color-input-error: $state-danger-text;
+$select-color-input-error-focus: darken($select-color-input-error, 10%);
+$select-color-disabled: $input-bg;
+$select-color-item: RGBA($select-color-text, 0.1);
+$select-color-item-border: rgba(0, 0, 0, 0);
+$select-color-item-active: $component-active-bg;
+$select-color-item-active-text: color-contrast($select-color-item-active);
+$select-color-item-active-border: rgba(0, 0, 0, 0);
+$select-color-optgroup: $dropdown-bg;
+$select-color-optgroup-text: $dropdown-header-color;
+$select-color-optgroup-border: $dropdown-divider-bg;
+$select-color-dropdown: $dropdown-bg;
+$select-color-dropdown-border-top: mix($input-border, $input-bg, 80%);
+$select-color-dropdown-item-active: $dropdown-link-hover-bg;
+$select-color-dropdown-item-active-text: $dropdown-link-hover-color;
+$select-color-dropdown-item-create-active-text: $dropdown-link-hover-color;
+$select-opacity-disabled: 0.5;
+$select-shadow-input: none;
+$select-shadow-input-focus: inset 0 1px 2px rgba(0, 0, 0, 0.15);
+$select-shadow-input-error: inset 0 1px 1px rgba(0, 0, 0, 0.075);
+$select-shadow-input-error-focus: inset 0 1px 1px rgba(0, 0, 0, 0.075),
+  0 0 6px lighten($select-color-input-error, 20%);
+$select-border: 1px solid $input-border;
+$select-border-radius: $input-border-radius;
 
-$selectize-width-item-border: 0 !default;
-$selectize-padding-x: $padding-base-horizontal !default;
-$selectize-padding-y: $padding-base-vertical !default;
-$selectize-padding-dropdown-item-x: $padding-base-horizontal !default;
-$selectize-padding-dropdown-item-y: 3px !default;
-$selectize-padding-item-x: 3px !default;
-$selectize-padding-item-y: 1px !default;
-$selectize-margin-item-x: 3px !default;
-$selectize-margin-item-y: 3px !default;
-$selectize-caret-margin: 0 !default;
+$select-width-item-border: 0px;
+$select-padding-x: $padding-base-horizontal;
+$select-padding-y: $padding-base-vertical;
+$select-padding-dropdown-item-x: $padding-base-horizontal;
+$select-padding-dropdown-item-y: 3px;
+$select-padding-item-x: 5px;
+$select-padding-item-y: 1px;
+$select-margin-item-x: 3px;
+$select-margin-item-y: 3px;
 
-$selectize-arrow-size: 5px !default;
-$selectize-arrow-color: $selectize-color-text !default;
-$selectize-arrow-offset: $selectize-padding-x + 5px !default;
+$select-arrow-size: 5px;
+$select-arrow-color: $select-color-text;
+$select-arrow-offset: $select-padding-x + 5px;
 
 @import "selectize";
 
-//Import Plugins
-@import "plugins/drag_drop";
-@import "plugins/dropdown_header";
-@import "plugins/optgroup_columns";
-@import "plugins/remove_button";
-
-.selectize-dropdown, .selectize-dropdown.form-control {
-    height: auto;
-    padding: 0;
-    margin: 2px 0 0 0;
-    z-index: $zindex-dropdown;
-    background: $selectize-color-dropdown;
-    color: $selectize-color-dropdown-text;
-    border: 1px solid $dropdown-fallback-border;
-    border: 1px solid $dropdown-border;
-    @include selectize-border-radius ($border-radius-base);
-    @include selectize-box-shadow (0 6px 12px rgba(black, .175));
+.#{$selectize}-dropdown,
+.#{$selectize}-dropdown.form-control {
+  height: auto;
+  padding: 0;
+  margin: 2px 0 0 0;
+  z-index: $zindex-dropdown;
+  background: $select-color-dropdown;
+  border: 1px solid $dropdown-fallback-border;
+  border: 1px solid $dropdown-border;
+  border-radius: $border-radius-base;
+  box-shadow: 0 6px 12px rgba(0, 0, 0, 0.175);
 }
 
-.selectize-dropdown {
-    .optgroup-header {
-        font-size: $font-size-small;
-        line-height: $line-height-base;
-    }
-    .optgroup:first-child:before {
-        display: none;
-    }
-    .optgroup:before {
-        content: ' ';
-        display: block;
-        @include nav-divider;
-        margin-left: $selectize-padding-dropdown-item-x * -1;
-        margin-right: $selectize-padding-dropdown-item-x * -1;
-    }
+.#{$selectize}-dropdown {
+  .optgroup-header {
+    font-size: $font-size-small;
+    line-height: $line-height-base;
+  }
+  .optgroup:first-child:before {
+    display: none;
+  }
+  .optgroup:before {
+    content: " ";
+    display: block;
+    @include nav-divider();
+    margin-left: $select-padding-dropdown-item-x * -1;
+    margin-right: $select-padding-dropdown-item-x * -1;
+  }
 }
 
-.selectize-dropdown-content {
-    padding: 5px 0;
+.#{$selectize}-dropdown-content {
+  padding: 5px 0;
 }
 
-.selectize-dropdown-header {
-    padding: $selectize-padding-dropdown-item-y * 2 $selectize-padding-dropdown-item-x;
+.#{$selectize}-dropdown-emptyoptionlabel {
+	text-align: center;
 }
 
-.selectize-input {
-    min-height: $input-height-base;
+.#{$selectize}-input {
+  min-height: $input-height-base;
 
-    &.dropdown-active {
-        @include selectize-border-radius ($selectize-border-radius);
+  &.dropdown-active {
+    border-radius: $select-border-radius;
+  }
+  &.dropdown-active::before {
+    display: none;
+  }
+  &.focus {
+    $color: $input-border-focus;
+    $color-rgba: rgba(red($color), green($color), blue($color), 0.6);
+    border-color: $color;
+    outline: 0;
+    box-shadow: inset 0 1px 1px rgba(0, 0, 0, 0.075), 0 0 8px $color-rgba;
+  }
+}
+
+.has-error .#{$selectize}-input {
+  border-color: $select-color-input-error;
+  box-shadow: $select-shadow-input-error;
+
+  &:focus {
+    border-color: $select-color-input-error-focus;
+    box-shadow: $select-shadow-input-error-focus;
+  }
+}
+
+.#{$selectize}-control {
+  &.multi {
+    .#{$selectize}-input.has-items {
+      padding-left: $select-padding-x - $select-padding-item-x;
+      padding-right: $select-padding-x - $select-padding-item-x;
     }
-    &.dropdown-active::before {
-        display: none;
-    }
-    &.focus {
-        $color: $input-border-focus;
-        $color-rgba: rgba(red($color), green($color), blue($color), .6);
-        border-color: $color;
-        outline: 0;
-        @include selectize-box-shadow ("inset 0 1px 1px rgba(black, .075), 0 0 8px #{$color-rgba}");
+    .#{$selectize}-input > div {
+      border-radius: $select-border-radius - 1px;
     }
+  }
 }
 
-.has-error .selectize-input {
-    border-color: $selectize-color-input-error;
-    @include selectize-box-shadow ($selectize-shadow-input-error);
-
-    &:focus {
-        border-color: $selectize-color-input-error-focus;
-        @include selectize-box-shadow ($selectize-shadow-input-error-focus);
-    }
-}
-
-.selectize-control {
-    &.multi {
-        .selectize-input.has-items {
-            padding-left: $selectize-padding-x - $selectize-padding-item-x;
-            padding-right: $selectize-padding-x - $selectize-padding-item-x;
-        }
-        .selectize-input > div {
-            @include selectize-border-radius ($selectize-border-radius - 1px);
-        }
-    }
-}
-
-.form-control.selectize-control {
-    padding: 0;
-    height: auto;
-    border: none;
-    background: none;
-    @include selectize-box-shadow (none);
-    @include selectize-border-radius (0);
+.form-control.#{$selectize}-control {
+  padding: 0;
+  height: auto;
+  border: none;
+  background: none;
+  box-shadow: none;
+  border-radius: 0;
 }

inst/www/shared/selectize/scss/selectize.bootstrap4.scss

@@ -1,118 +1,112 @@
-/**
- * Selectize bootstrap 4
- */
-
-//Import Boostrap 4 functions and variables
 
 $enable-shadows: true !default;
-$selectize-font-family: inherit !default;
-$selectize-font-size: inherit !default;
-$selectize-line-height: $input-btn-line-height !default; //formerly line-height-computed
+$select-font-family: inherit !default;
+$select-font-size: inherit !default;
+$select-line-height: $input-btn-line-height !default; //formerly line-height-computed
 
-$selectize-color-text: $input-color !default;
-$selectize-color-highlight: rgba(255,237,40,0.4) !default;
-$selectize-color-input: $input-bg !default;
-$selectize-color-input-full: $input-bg !default;
-$selectize-color-input-error: $danger !default;
-$selectize-color-input-error-focus: darken($selectize-color-input-error, 10%) !default;
-$selectize-color-disabled: $input-bg !default;
-$selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
-$selectize-color-item-border: $input-border-color !default;
-$selectize-color-item-active: $component-active-bg !default;
-$selectize-color-item-active-text: color-contrast($selectize-color-item-active) !default;
-$selectize-color-item-active-border: rgba(0,0,0,0) !default;
-$selectize-color-optgroup: $dropdown-bg !default;
-$selectize-color-optgroup-text: $dropdown-header-color !default;
-$selectize-color-optgroup-border: $dropdown-divider-bg !default;
-$selectize-color-dropdown: $dropdown-bg !default;
-$selectize-color-dropdown-text: $dropdown-link-color !default;
-$selectize-color-dropdown-border-top: mix($input-border-color, $input-bg, 0.8) !default;
-$selectize-color-dropdown-item-active: $dropdown-link-hover-bg !default;
-$selectize-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
-$selectize-color-dropdown-item-create-active-text: $dropdown-link-hover-color !default;
-$selectize-opacity-disabled: 0.5 !default;
-$selectize-shadow-input: none !default;
-$selectize-shadow-input-focus: inset 0 1px 2px rgba(0,0,0,0.15) !default;
-$selectize-shadow-input-error: inset 0 1px 1px rgba(0, 0, 0, .075) !default;
-$selectize-shadow-input-error-focus: inset 0 1px 1px rgba(0, 0, 0, .075), 0 0 6px lighten($selectize-color-input-error, 20%) !default;
-$selectize-border: 1px solid $input-border-color !default;
-$selectize-border-radius: $input-border-radius !default;
+$select-color-text: gray("800") !default; //$gray-800
+$select-color-highlight: rgba(255, 237, 40, 0.4) !default;
+$select-color-input: $input-bg !default;
+$select-color-input-full: $input-bg !default;
+$select-color-input-error: theme-color("danger") !default;
+$select-color-input-error-focus: darken(
+  $select-color-input-error,
+  10%
+) !default;
+$select-color-disabled: $input-bg !default;
+$select-color-item: RGBA($select-color-text, 0.1) !default;
+$select-color-item-border: $border-color !default;
+$select-color-item-active: $component-active-bg !default;
+$select-color-item-active-text: color-contrast($select-color-item-active) !default;
+$select-color-item-active-border: rgba(0, 0, 0, 0) !default;
+$select-color-optgroup: $dropdown-bg !default;
+$select-color-optgroup-text: $dropdown-header-color !default;
+$select-color-optgroup-border: $dropdown-divider-bg !default;
+$select-color-dropdown: $dropdown-bg !default;
+$select-color-dropdown-border-top: mix(
+  $input-border-color,
+  $input-bg,
+  80%
+) !default;
+$select-color-dropdown-item-active: $dropdown-link-hover-bg !default;
+$select-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
+$select-color-dropdown-item-create-active-text: $dropdown-link-hover-color !default;
+$select-opacity-disabled: 0.5 !default;
+$select-shadow-input: none !default;
+$select-shadow-input-focus: inset 0 1px 2px rgba(0, 0, 0, 0.15) !default;
+$select-shadow-input-error: inset 0 1px 1px rgba(0, 0, 0, 0.075) !default;
+$select-shadow-input-error-focus: inset 0 1px 1px rgba(0, 0, 0, 0.075),
+  0 0 6px lighten($select-color-input-error, 20%) !default;
+$select-border: 1px solid $input-border-color !default;
+$select-border-radius: $input-border-radius !default;
 
-$selectize-width-item-border: 0px !default;
-$selectize-padding-x: $input-btn-padding-x !default;
-$selectize-padding-y: $input-btn-padding-y !default;
-$selectize-padding-dropdown-item-x: $input-btn-padding-x !default;
-$selectize-padding-dropdown-item-y: 3px !default;
-$selectize-padding-item-x: 3px !default;
-$selectize-padding-item-y: 1px !default;
-$selectize-margin-item-x: 3px !default;
-$selectize-margin-item-y: 3px !default;
-$selectize-caret-margin: 0 !default;
-
-$selectize-arrow-size: 5px !default;
-$selectize-arrow-color: $selectize-color-text !default;
-$selectize-arrow-offset: calc(#{$selectize-padding-x} + 5px) !default;
+$select-width-item-border: 0px !default;
+$select-padding-x: $input-btn-padding-x !default;
+$select-padding-y: $input-btn-padding-y !default;
+$select-padding-dropdown-item-x: $input-btn-padding-x !default;
+$select-padding-dropdown-item-y: 3px !default;
+$select-padding-item-x: 5px !default;
+$select-padding-item-y: 1px !default;
+$select-margin-item-x: 3px !default;
+$select-margin-item-y: 3px !default;
 
+$select-arrow-size: 5px !default;
+$select-arrow-color: $select-color-text !default;
+$select-arrow-offset: calc(#{$select-padding-x} + 5px) !default;
 
 @import "selectize";
 
-//Import Plugins
-@import "plugins/drag_drop";
-@import "plugins/dropdown_header";
-@import "plugins/optgroup_columns";
-@import "plugins/remove_button";
-
-.selectize-dropdown, .selectize-dropdown.form-control {
+.#{$selectize}-dropdown,
+.#{$selectize}-dropdown.form-control {
   height: auto;
   padding: 0;
   margin: 2px 0 0 0;
   z-index: $zindex-dropdown;
-  background: $selectize-color-dropdown;
-  color: $selectize-color-dropdown-text;
+  background: $select-color-dropdown;
   border: 1px solid $dropdown-border-color; //$dropdown-fallback-border
-  @include selectize-border-radius($border-radius);
-  @include selectize-box-shadow(0 6px 12px rgba(0,0,0,.175));
+  border-radius: $border-radius;
+  box-shadow: 0 6px 12px rgba(0, 0, 0, 0.175);
 }
 
-.selectize-dropdown {
+.#{$selectize}-dropdown {
   .optgroup-header {
-	font-size: $font-size-sm;
-	line-height: $line-height-base;
+    font-size: $font-size-sm;
+    line-height: $line-height-base;
   }
   .optgroup:first-child:before {
-	display: none;
+    display: none;
   }
   .optgroup:before {
-	content: ' ';
-	display: block;
-	height: 0;
-	margin: $dropdown-divider-margin-y 0;
-	overflow: hidden;
-	border-top: 1px solid $dropdown-divider-bg;
-	margin-left: $selectize-padding-dropdown-item-x * -1;
-	margin-right: $selectize-padding-dropdown-item-x * -1;
+    content: " ";
+    display: block;
+    height: 0;
+    margin: $dropdown-divider-margin-y 0;
+    overflow: hidden;
+    border-top: 1px solid $dropdown-divider-bg;
+    margin-left: $select-padding-dropdown-item-x * -1;
+    margin-right: $select-padding-dropdown-item-x * -1;
   }
 
   .create {
-	padding-left: $selectize-padding-dropdown-item-x;
+    padding-left: $select-padding-dropdown-item-x;
   }
 }
 
-.selectize-dropdown-content {
+.#{$selectize}-dropdown-content {
   padding: 5px 0;
 }
 
-.selectize-dropdown-header {
-  padding: $selectize-padding-dropdown-item-y * 2 $selectize-padding-dropdown-item-x;
+.#{$selectize}-dropdown-emptyoptionlabel {
+	text-align: center;
 }
 
-.selectize-input {
+.#{$selectize}-input {
   min-height: $input-height;
   @include box-shadow($input-box-shadow);
   @include transition($input-transition);
 
   &.dropdown-active {
-    @include selectize-border-radius($selectize-border-radius);
+    border-radius: $select-border-radius;
   }
   &.dropdown-active::before {
     display: none;
@@ -128,22 +122,21 @@ $selectize-arrow-offset: calc(#{$selectize-padding-x} + 5px) !default;
   }
 }
 
-.is-invalid .selectize-input {
-  border-color: $selectize-color-input-error;
-  @include selectize-box-shadow($selectize-shadow-input-error);
+.is-invalid .#{$selectize}-input {
+  border-color: $select-color-input-error;
+  box-shadow: $select-shadow-input-error;
 
   &:focus {
-	border-color: $selectize-color-input-error-focus;
-	// @include selectize-box-shadow(none)
-	@include selectize-box-shadow($selectize-shadow-input-error-focus);
+    border-color: $select-color-input-error-focus;
+    box-shadow: $select-shadow-input-error-focus;
   }
 }
 
-.selectize-control {
-  &.form-control-sm{
-    .selectize-input.has-items{
+.#{$selectize}-control {
+  &.form-control-sm {
+    .#{$selectize}-input.has-items {
       min-height: $input-height-sm !important;
-      height: $input-height-sm !important;
+      height: $input-height-sm;
       padding: $input-padding-y-sm $input-padding-x-sm !important;
       font-size: $input-font-size-sm;
       line-height: $input-line-height-sm;
@@ -151,26 +144,53 @@ $selectize-arrow-offset: calc(#{$selectize-padding-x} + 5px) !default;
   }
 
   &.multi {
-	.selectize-input.has-items {
-	  padding-left: calc(#{$selectize-padding-x} - #{$selectize-padding-item-x});
-	  padding-right: calc(#{$selectize-padding-x} - #{$selectize-padding-item-x});
-	}
-	.selectize-input > div {
-	  @include selectize-border-radius(calc(#{$selectize-border-radius} - 1px));
-	}
+    .#{$selectize}-input.has-items {
+      height: auto;
+      padding-left: calc(#{$select-padding-x} - #{$select-padding-item-x});
+      padding-right: calc(#{$select-padding-x} - #{$select-padding-item-x});
+    }
+    .#{$selectize}-input > div {
+      border-radius: calc(#{$select-border-radius} - 1px);
+    }
   }
 }
 
-.form-control.selectize-control {
+.form-control.#{$selectize}-control {
   padding: 0;
   height: auto;
   border: none;
   background: none;
-  @include selectize-box-shadow(none);
-  @include selectize-border-radius(0);
+  box-shadow: none;
+  border-radius: 0;
 }
 
-.input-group .selectize-input {
-	overflow: unset;
-	@include selectize-border-radius(0 $selectize-border-radius $selectize-border-radius 0);
+.input-group .#{$selectize}-control:not(:last-child) {
+  .#{$selectize}-input{
+    overflow: unset;
+    border-top-right-radius: 0;
+    border-bottom-right-radius: 0;
+  }
+}
+
+.input-group .#{$selectize}-control:not(:first-child) {
+  .#{$selectize}-input{
+    overflow: unset;
+    border-top-left-radius: 0;
+    border-bottom-left-radius: 0;
+  }
+}
+
+// .input-group .#{$selectize}-input {
+//   overflow: unset;
+//   border-radius: 0 $select-border-radius $select-border-radius 0;
+// }
+
+.#{selectize}-dropdown.plugin-auto_position.#{$selectize}-position-top {
+  border-top: $select-border!important;
+  border-bottom: $select-border!important;
+  border-radius: $select-border-radius!important;
+}
+.#{selectize}-control.plugin-auto_position .#{selectize}-input.#{$selectize}-position-top.dropdown-active {
+  border-radius: $select-border-radius!important;
+  border-top: $select-border!important;
 }

inst/www/shared/selectize/scss/selectize.bootstrap5.scss

@@ -1,3 +1,200 @@
-$input-line-height-sm: $form-select-line-height !default;
-@import 'selectize.bootstrap4';
-.selectize-control{padding:0;}
+
+$enable-shadows: true !default;
+$select-font-family: if($input-btn-font-family, $input-btn-font-family, inherit) !default;
+$select-font-size: $input-btn-font-size !default;
+$select-line-height: $input-btn-line-height !default; //formerly line-height-computed
+
+$select-color-rgb: var(--bs-emphasis-color-rgb, 0, 0, 0) !default;
+$select-color-text: RGBA($select-color-rgb, 0.83) !default;
+$select-color-highlight: rgba(255, 237, 40, 0.4) !default;
+$select-color-input: $input-bg !default;
+$select-color-input-full: $input-bg !default;
+$select-color-input-error: $danger !default;
+$select-color-input-error-focus: darken(
+  $select-color-input-error,
+  10%
+) !default;
+$select-color-disabled: $input-bg !default;
+$select-color-item: RGBA($select-color-rgb, 0.05) !default;
+$select-color-item-border: $border-color !default;
+$select-color-item-active: $component-active-bg !default;
+$select-color-item-active-text: color-contrast($select-color-item-active) !default;
+$select-color-item-active-border: rgba(0, 0, 0, 0) !default;
+$select-color-optgroup: $dropdown-bg !default;
+$select-color-optgroup-text: $dropdown-header-color !default;
+$select-color-optgroup-border: $dropdown-divider-bg !default;
+$select-color-dropdown: $dropdown-bg !default;
+$select-color-dropdown-border-top: rgba($input-border-color, 0.8) !default;
+$select-color-dropdown-item-active: $dropdown-link-hover-bg !default;
+$select-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
+$select-color-dropdown-item-create-active-text: $dropdown-link-hover-color !default;
+$select-opacity-disabled: 0.5 !default;
+$select-shadow-input: none !default;
+$select-shadow-input-focus: inset 0 1px 2px rgba(0, 0, 0, 0.15) !default;
+$select-shadow-input-error: inset 0 1px 1px rgba(0, 0, 0, 0.075) !default;
+$select-shadow-input-error-focus: inset 0 1px 1px rgba(0, 0, 0, 0.075),
+  0 0 6px lighten($select-color-input-error, 20%) !default;
+$select-border: 1px solid $input-border-color !default;
+$select-border-radius: $input-border-radius !default;
+
+$select-width-item-border: 0px !default;
+$select-padding-x: $input-btn-padding-x !default;
+$select-padding-y: $input-btn-padding-y !default;
+$select-padding-dropdown-item-x: $input-btn-padding-x !default;
+$select-padding-dropdown-item-y: 3px !default;
+$select-padding-item-x: 5px !default;
+$select-padding-item-y: 1px !default;
+$select-margin-item-x: 3px !default;
+$select-margin-item-y: 3px !default;
+
+$select-arrow-size: 5px !default;
+$select-arrow-color: $select-color-text !default;
+$select-arrow-offset: calc(#{$select-padding-x} + 5px) !default;
+
+@import "selectize";
+
+.#{$selectize}-dropdown,
+.#{$selectize}-dropdown.form-control {
+  height: auto;
+  padding: 0;
+  margin: 2px 0 0 0;
+  z-index: $zindex-dropdown;
+  background: $select-color-dropdown;
+  border: 1px solid $dropdown-border-color; //$dropdown-fallback-border
+  border-radius: $border-radius;
+  box-shadow: 0 6px 12px rgba(0, 0, 0, 0.175);
+}
+
+.#{$selectize}-dropdown {
+  .optgroup-header {
+    font-size: $font-size-sm;
+    line-height: $line-height-base;
+  }
+  .optgroup:first-child:before {
+    display: none;
+  }
+  .optgroup:before {
+    content: " ";
+    display: block;
+    height: 0;
+    margin: $dropdown-divider-margin-y 0;
+    overflow: hidden;
+    border-top: 1px solid $dropdown-divider-bg;
+    margin-left: $select-padding-dropdown-item-x * -1;
+    margin-right: $select-padding-dropdown-item-x * -1;
+  }
+
+  .create {
+    padding-left: $select-padding-dropdown-item-x;
+  }
+}
+
+.#{$selectize}-dropdown-content {
+  padding: 5px 0;
+}
+
+.#{$selectize}-dropdown-emptyoptionlabel {
+	text-align: center;
+}
+
+.#{$selectize}-input {
+  min-height: $input-height;
+  @include box-shadow($input-box-shadow);
+  @include transition($input-transition);
+
+  &.dropdown-active {
+    border-radius: $select-border-radius;
+  }
+  &.dropdown-active::before {
+    display: none;
+  }
+  &.focus {
+    border-color: $input-focus-border-color;
+    outline: 0;
+    @if $enable-shadows {
+      box-shadow: $input-box-shadow, $input-focus-box-shadow;
+    } @else {
+      box-shadow: $input-focus-box-shadow;
+    }
+  }
+}
+
+.is-invalid .#{$selectize}-input {
+  border-color: $select-color-input-error;
+  box-shadow: $select-shadow-input-error;
+
+  &:focus {
+    border-color: $select-color-input-error-focus;
+    box-shadow: $select-shadow-input-error-focus;
+  }
+}
+
+.#{$selectize}-control {
+  &.form-control-sm {
+    .#{$selectize}-input {
+      min-height: $input-height-sm !important;
+      height: $input-height-sm;
+      padding: $input-padding-y-sm $input-padding-x-sm !important;
+      font-size: $input-font-size-sm;
+      line-height: $line-height-sm;
+    }
+  }
+
+  &.multi {
+    .#{$selectize}-input {
+      height: auto;
+      padding-left: calc(#{$select-padding-x} - #{$select-padding-item-x});
+      padding-right: calc(#{$select-padding-x} - #{$select-padding-item-x});
+    }
+    .#{$selectize}-input > div {
+      border-radius: calc(#{$select-border-radius} - 1px);
+    }
+  }
+}
+
+.form-select.#{$selectize}-control,
+.form-control.#{$selectize}-control {
+  padding: 0;
+  height: auto;
+  border: none;
+  background: none;
+  box-shadow: none;
+  border-radius: 0;
+}
+
+.input-group>.input-group-append>.btn, .input-group>.form-control:not(:first-child) {
+  border-top-left-radius: 0;
+  border-bottom-left-radius: 0;
+}
+
+.input-group>.input-group-prepend>.btn {
+  border-top-right-radius: 0;
+  border-bottom-right-radius: 0;
+}
+
+
+.input-group .#{$selectize}-control:not(:last-child) {
+  .#{$selectize}-input{
+    overflow: unset;
+    border-top-right-radius: 0;
+    border-bottom-right-radius: 0;
+  }
+}
+
+.input-group .#{$selectize}-control:not(:first-child) {
+  .#{$selectize}-input{
+    overflow: unset;
+    border-top-left-radius: 0;
+    border-bottom-left-radius: 0;
+  }
+}
+
+.#{selectize}-dropdown.plugin-auto_position.#{$selectize}-position-top {
+  border-top: $select-border!important;
+  border-bottom: $select-border!important;
+  border-radius: $select-border-radius!important;
+}
+.#{selectize}-control.plugin-auto_position .#{selectize}-input.#{$selectize}-position-top.dropdown-active {
+  border-radius: $select-border-radius!important;
+  border-top: $select-border!important;
+}

inst/www/shared/selectize/scss/selectize.default.scss

@@ -1,84 +1,71 @@
-/**
- * selectize.default.css (v$$version) - Default Theme
- * Copyright (c) 2013–2015 Brian Reavis & contributors
- *
- * Licensed under the Apache License, Version 2.0 (the "License"); you may not use this
- * file except in compliance with the License. You may obtain a copy of the License at:
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software distributed under
- * the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
- * ANY KIND, either express or implied. See the License for the specific language
- * governing permissions and limitations under the License.
- *
- * $author Brian Reavis <brian$thirdroute.com>
- */
+$select-color-item: #1da7ee;
+$select-color-item-text: #fff;
+$select-color-item-active-text: #fff;
+$select-color-item-border: #0073bb;
+$select-color-item-active: #92c836;
+$select-color-item-active-border: #00578d;
+$select-width-item-border: 1px;
 
-@import "selectize";
+@import "selectize.scss";
 
-$selectize-color-item: #1da7ee;
-$selectize-color-item-text: #fff;
-$selectize-color-item-active-text: #fff;
-$selectize-color-item-border: #0073bb;
-$selectize-color-item-active: #92c836;
-$selectize-color-item-active-border: #00578d;
-$selectize-width-item-border: 1px;
-$selectize-caret-margin: 0 1px;
-
-.selectize-control {
+.#{$selectize}-control {
   &.multi {
-	.selectize-input {
-	  &.has-items {
-		$padding-x: $selectize-padding-x - 3px;
-		padding-left: $padding-x;
-		padding-right: $padding-x;
-	  }
-	  &.disabled [data-value] {
-		color: #999;
-		text-shadow: none;
-		background: none;
-		@include selectize-box-shadow(none);
+    .#{$selectize}-input {
+      &.has-items {
+        $padding-x: $select-padding-x - 3px;
+        padding-left: $padding-x;
+        padding-right: $padding-x;
+      }
+      &.disabled [data-value] {
+        color: #999;
+        text-shadow: none;
+        background: none;
+        box-shadow: none;
 
-		&, .remove {
-		  border-color: #e6e6e6;
-		}
-		.remove {
-		  background: none;
-		}
-	  }
-	  [data-value] {
-		text-shadow: 0 1px 0 rgba(0,51,83,0.3);
-		@include selectize-border-radius(3px);
-		@include selectize-vertical-gradient(#1da7ee, #178ee9);
-		@include selectize-box-shadow(#{"0 1px 0 rgba(0,0,0,0.2),inset 0 1px rgba(255,255,255,0.03)"});
-		&.active {
-		  @include selectize-vertical-gradient(#008fd8, #0075cf);
-		}
-	  }
-	}
+        &,
+        .remove {
+          border-color: #e6e6e6;
+        }
+        .remove {
+          background: none;
+        }
+      }
+      [data-value] {
+        text-shadow: 0 1px 0 rgba(0, 51, 83, 0.3);
+        border-radius: 3px;
+        @include selectize-vertical-gradient(#1da7ee, #178ee9);
+        box-shadow: 0 1px 0 rgba(0, 0, 0, 0.2),
+          inset 0 1px rgba(255, 255, 255, 0.03);
+        &.active {
+          @include selectize-vertical-gradient(#008fd8, #0075cf);
+        }
+      }
+    }
   }
   &.single {
-	.selectize-input {
-	  @include selectize-box-shadow(#{"0 1px 0 rgba(0,0,0,0.05), inset 0 1px 0 rgba(255,255,255,0.8)"});
-	  @include selectize-vertical-gradient(#fefefe, #f2f2f2);
-	}
+    .#{$selectize}-input {
+      box-shadow: 0 1px 0 rgba(0, 0, 0, 0.05),
+        inset 0 1px 0 rgba(255, 255, 255, 0.8);
+      @include selectize-vertical-gradient(#fefefe, #f2f2f2);
+    }
   }
 }
 
-.selectize-control.single .selectize-input, .selectize-dropdown.single {
+.#{$selectize}-control.single .#{$selectize}-input,
+.#{$selectize}-dropdown.single {
   border-color: #b8b8b8;
 }
 
-.selectize-dropdown {
+.#{$selectize}-dropdown {
   .optgroup-header {
-	padding-top: $selectize-padding-dropdown-item-y + 2px;
-	font-weight: bold;
-	font-size: 0.85em;
+    padding-top: $select-padding-dropdown-item-y + 2px;
+    font-weight: bold;
+    font-size: 0.85em;
   }
   .optgroup {
-	border-top: 1px solid $selectize-color-dropdown-border-top;
-	&:first-child {
-	  border-top: 0 none;
-	}
+    border-top: 1px solid $select-color-dropdown-border-top;
+    &:first-child {
+      border-top: 0 none;
+    }
   }
-}
+}

inst/www/shared/selectize/scss/selectize.scss

@@ -1,300 +1,364 @@
+@use "sass:math";
+
 // base styles
+$selectize: "selectize" !default;
+$select-font-family: inherit !default;
+$select-font-smoothing: inherit !default;
+$select-font-size: 13px !default;
+$select-line-height: 18px !default;
 
-$selectize-font-family: inherit !default;
-$selectize-font-smoothing: inherit !default;
-$selectize-font-size: 13px !default;
-$selectize-line-height: 18px !default;
+$select-color-rgb: 0,0,0 !default;
+$select-color-text: RGBA($select-color-rgb, 0.83) !default;
+$select-color-border: #d0d0d0 !default;
+$select-color-highlight: rgba(125, 168, 208, 0.2) !default;
+$select-color-input: #fff !default;
+$select-color-input-full: $select-color-input !default;
+$select-color-disabled: #fafafa !default;
+$select-color-item: #f2f2f2 !default;
+$select-color-item-text: $select-color-text !default;
+$select-color-item-border: #d0d0d0 !default;
+$select-color-item-active: #e8e8e8 !default;
+$select-color-item-active-text: $select-color-text !default;
+$select-color-item-active-border: #cacaca !default;
+$select-color-dropdown: #fff !default;
+$select-color-dropdown-border: $select-color-border !default;
+$select-color-dropdown-border-top: #f0f0f0 !default;
+$select-color-dropdown-item-active: #f5fafd !default;
+$select-color-dropdown-item-active-text: #495c68 !default;
+$select-color-dropdown-item-create-text: RGBA($select-color-rgb, 0.5) !default;
+$select-color-dropdown-item-create-active-text: $select-color-dropdown-item-active-text !default;
+$select-color-optgroup: $select-color-dropdown !default;
+$select-color-optgroup-text: $select-color-text !default;
+$select-lighten-disabled-item: 30% !default;
+$select-lighten-disabled-item-text: 30% !default;
+$select-lighten-disabled-item-border: 30% !default;
+$select-opacity-disabled: 0.5 !default;
 
-$selectize-color-text: #303030 !default;
-$selectize-color-border: #d0d0d0 !default;
-$selectize-color-highlight: rgba(125,168,208,0.2) !default;
-$selectize-color-input: #fff !default;
-$selectize-color-input-full: $selectize-color-input !default;
-$selectize-color-disabled: #fafafa !default;
-$selectize-color-item: #f2f2f2 !default;
-$selectize-color-item-text: $selectize-color-text !default;
-$selectize-color-item-border: #d0d0d0 !default;
-$selectize-color-item-active: #e8e8e8 !default;
-$selectize-color-item-active-text: $selectize-color-text !default;
-$selectize-color-item-active-border: #cacaca !default;
-$selectize-color-dropdown: #fff !default;
-$selectize-color-dropdown-border: $selectize-color-border !default;
-$selectize-color-dropdown-border-top: #f0f0f0 !default;
-$selectize-color-dropdown-item-active: #f5fafd !default;
-$selectize-color-dropdown-item-active-text: #495c68 !default;
-$selectize-color-dropdown-item-create-text: rgba(red($selectize-color-text), green($selectize-color-text), blue($selectize-color-text), 0.5) !default;
-$selectize-color-dropdown-item-create-active-text: $selectize-color-dropdown-item-active-text !default;
-$selectize-color-optgroup: $selectize-color-dropdown !default;
-$selectize-color-optgroup-text: $selectize-color-text !default;
-$selectize-lighten-disabled-item: 30% !default;
-$selectize-lighten-disabled-item-text: 30% !default;
-$selectize-lighten-disabled-item-border: 30% !default;
-$selectize-opacity-disabled: 0.5 !default;
+$select-shadow-input: inset 0 1px 1px rgba(0, 0, 0, 0.1) !default;
+$select-shadow-input-focus: inset 0 1px 2px rgba(0, 0, 0, 0.15) !default;
+$select-border: 1px solid $select-color-border !default;
+$select-dropdown-border: 1px solid $select-color-dropdown-border !default;
+$select-border-radius: 3px !default;
 
-$selectize-shadow-input: inset 0 1px 1px rgba(0,0,0,0.1) !default;
-$selectize-shadow-input-focus: inset 0 1px 2px rgba(0,0,0,0.15) !default;
-$selectize-border: 1px solid $selectize-color-border !default;
-$selectize-dropdown-border: 1px solid $selectize-color-dropdown-border !default;
-$selectize-border-radius: 3px !default;
+$select-width-item-border: 0px !default;
+$select-max-height-dropdown: 200px !default;
 
-$selectize-width-item-border: 0 !default;
-$selectize-max-height-dropdown: 200px !default;
+$select-padding-x: 8px !default;
+$select-padding-y: 8px !default;
+$select-padding-item-x: 6px !default;
+$select-padding-item-y: 2px !default;
+$select-padding-dropdown-item-x: $select-padding-x !default;
+$select-padding-dropdown-item-y: 5px !default;
+$select-margin-item-x: 3px !default;
+$select-margin-item-y: 3px !default;
 
-$selectize-padding-x: 8px !default;
-$selectize-padding-y: 8px !default;
-$selectize-padding-item-x: 6px !default;
-$selectize-padding-item-y: 2px !default;
-$selectize-padding-dropdown-item-x: $selectize-padding-x !default;
-$selectize-padding-dropdown-item-y: 5px !default;
-$selectize-margin-item-x: 3px !default;
-$selectize-margin-item-y: 3px !default;
+$select-arrow-size: 5px !default;
+$select-arrow-color: #808080 !default;
+$select-arrow-offset: 15px !default;
 
-$selectize-arrow-size: 5px !default;
-$selectize-arrow-color: #808080 !default;
-$selectize-arrow-offset: 15px !default;
+$select-caret-margin: 0 0px !default;
+$select-caret-margin-rtl: 0 4px 0 -2px !default;
 
-$selectize-caret-margin: 0 2px 0 0 !default;
-$selectize-caret-margin-rtl: 0 4px 0 -2px !default;
+$select-spinner-size: 30px;
+$select-spinner-border-size: 5px;
+$select-spinner-border-color: $select-color-border;
 
-@mixin selectize-border-radius($radii){
-  @if mixin-exists("border-radius") {
-    @include border-radius($radii)
-  } @else {
-    border-radius: $radii;
-  }
-}
-@mixin selectize-unselectable(){
-  -webkit-user-select: none;
-  -moz-user-select: none;
-  -ms-user-select: none;
-  user-select: none;
-}
-@mixin selectize-box-shadow($shadow){
-  -webkit-box-shadow: $shadow;
-  box-shadow: $shadow;
-}
-@mixin selectize-box-sizing($type: border-box){
-  -webkit-box-sizing: $type;
-  -moz-box-sizing: $type;
-  box-sizing: $type;
-}
-@mixin selectize-vertical-gradient($color-top, $color-bottom){
+@mixin selectize-vertical-gradient($color-top, $color-bottom) {
   background-color: mix($color-top, $color-bottom, 60%);
-  background-image: -moz-linear-gradient(top, $color-top, $color-bottom); // FF 3.6+
-  background-image: -webkit-gradient(linear, 0 0, 0 100%, from($color-top), to($color-bottom)); // Safari 4+, Chrome 2+
-  background-image: -webkit-linear-gradient(top, $color-top, $color-bottom); // Safari 5.1+, Chrome 10+
-  background-image: -o-linear-gradient(top, $color-top, $color-bottom); // Opera 11.10
-  background-image: linear-gradient(to bottom, $color-top, $color-bottom); // Standard, IE10
+  background-image: linear-gradient(to bottom, $color-top, $color-bottom);
   background-repeat: repeat-x;
-  //filter: e(%("progid:DXImageTransform.Microsoft@include gradient(startColorstr='%d', endColorstr='%d', GradientType=0)",argb($color-top),argb($color-bottom))); // IE9 and down
 }
 
-.selectize-control {
+@import "plugins/drag_drop.scss";
+@import "plugins/dropdown_header.scss";
+@import "plugins/optgroup_columns.scss";
+@import "plugins/remove_button.scss";
+@import "plugins/clear_button.scss";
+@import "plugins/auto_position.scss";
+
+.#{$selectize}-control {
   position: relative;
 }
 
-.selectize-dropdown, .selectize-input, .selectize-input input {
-  color: $selectize-color-text;
-  font-family: $selectize-font-family;
-  font-size: $selectize-font-size;
-  line-height: $selectize-line-height;
-  -webkit-font-smoothing: $selectize-font-smoothing;
+.#{$selectize}-dropdown,
+.#{$selectize}-input,
+.#{$selectize}-input input {
+  color: $select-color-text;
+  font-family: $select-font-family;
+  font-size: $select-font-size;
+  line-height: $select-line-height;
+  font-smoothing: $select-font-smoothing;
 }
 
-.selectize-input, .selectize-control.single .selectize-input.input-active {
-  background: $selectize-color-input;
+.#{$selectize}-input,
+.#{$selectize}-control.single .#{$selectize}-input.input-active {
+  background: $select-color-input;
   cursor: text;
   display: inline-block;
 }
 
-.selectize-input {
-  border: $selectize-border;
-  padding: $selectize-padding-y $selectize-padding-x;
+.#{$selectize}-input {
+  border: $select-border;
+  padding: $select-padding-y $select-padding-x;
   display: inline-block;
   width: 100%;
-  overflow: hidden;
+  // overflow: hidden;
   position: relative;
   z-index: 1;
-  @include selectize-box-sizing(border-box);
-  @include selectize-box-shadow($selectize-shadow-input);
-  @include selectize-border-radius($selectize-border-radius);
+  box-sizing: border-box;
+  box-shadow: $select-shadow-input;
+  border-radius: $select-border-radius;
 
-  .selectize-control.multi &.has-items {
-	$padding-x: $selectize-padding-x;
-	$padding-top: calc(#{$selectize-padding-y} - #{$selectize-padding-item-y} - #{$selectize-width-item-border});
-	$padding-bottom: calc(#{$selectize-padding-y} - #{$selectize-padding-item-y} - #{$selectize-margin-item-y} - #{$selectize-width-item-border});
-	padding: $padding-top $padding-x $padding-bottom;
+  .#{$selectize}-control.multi &.has-items {
+    $padding-x: $select-padding-x;
+    $padding-top: calc(
+      #{$select-padding-y} - #{$select-padding-item-y} - #{$select-width-item-border}
+    );
+    $padding-bottom: calc(
+      #{$select-padding-y} - #{$select-padding-item-y} - #{$select-margin-item-y} -
+        #{$select-width-item-border}
+    );
+    padding: $padding-top $padding-x $padding-bottom;
   }
 
   &.full {
-	background-color: $selectize-color-input-full;
+    background-color: $select-color-input-full;
   }
-  &.disabled, &.disabled * {
-	cursor: default !important;
+  &.disabled,
+  &.disabled * {
+    cursor: default !important;
   }
   &.focus {
-	@include selectize-box-shadow($selectize-shadow-input-focus);
+    box-shadow: $select-shadow-input-focus;
   }
   &.dropdown-active {
-	@include selectize-border-radius($selectize-border-radius $selectize-border-radius 0 0);
+    border-radius: $select-border-radius $select-border-radius 0 0;
   }
 
   > * {
-	vertical-align: baseline;
-	display: -moz-inline-stack;
-	display: inline-block;
-	zoom: 1;
-	*display: inline;
+    vertical-align: baseline;
+    display: inline-block;
+    zoom: 1;
   }
-  .selectize-control.multi & > div {
-	cursor: pointer;
-	margin: 0 $selectize-margin-item-x $selectize-margin-item-y 0;
-	padding: $selectize-padding-item-y $selectize-padding-item-x;
-	background: $selectize-color-item;
-	color: $selectize-color-item-text;
-	border: $selectize-width-item-border solid $selectize-color-item-border;
+  .#{$selectize}-control.multi & > div {
+    cursor: pointer;
+    margin: 0 $select-margin-item-x $select-margin-item-y 0;
+    padding: $select-padding-item-y $select-padding-item-x;
+    background: $select-color-item;
+    color: $select-color-item-text;
+    border: $select-width-item-border solid $select-color-item-border;
 
-	&.active {
-	  background: $selectize-color-item-active;
-	  color: $selectize-color-item-active-text;
-	  border: $selectize-width-item-border solid $selectize-color-item-active-border;
-	}
+    &.active {
+      background: $select-color-item-active;
+      color: $select-color-item-active-text;
+      border: $select-width-item-border solid $select-color-item-active-border;
+    }
   }
-  .selectize-control.multi &.disabled > div {
-	&, &.active {
-	  color: lighten(desaturate($selectize-color-item-text, 100%), $selectize-lighten-disabled-item-text);
-	  background: lighten(desaturate($selectize-color-item, 100%), $selectize-lighten-disabled-item);
-	  border: $selectize-width-item-border solid lighten(desaturate($selectize-color-item-border, 100%), $selectize-lighten-disabled-item-border);
-	}
+  .#{$selectize}-control.multi &.disabled > div {
+    &,
+    &.active {
+      color: lighten(gray, $select-lighten-disabled-item-text);
+      background: lighten(gray, $select-lighten-disabled-item);
+      border: $select-width-item-border solid
+        lighten(gray, $select-lighten-disabled-item-border);
+    }
   }
   > input {
-	&::-ms-clear {
-	  display: none;
-	}
-	display: inline-block !important;
-	padding: 0 !important;
-	min-height: 0 !important;
-	max-height: none !important;
-	max-width: 100% !important;
-	margin: $selectize-caret-margin !important;
-	text-indent: 0 !important;
-	border: 0 none !important;
-	background: none !important;
-	line-height: inherit !important;
-	-webkit-user-select: auto !important;
-	@include selectize-box-shadow(none);
-	&:focus { outline: none !important; }
+    &::-ms-clear {
+      display: none;
+    }
+    display: inline-block !important;
+    padding: 0 !important;
+    min-height: 0 !important;
+    max-height: none !important;
+    max-width: 100% !important;
+    margin: 0 !important;
+    text-indent: 0 !important;
+    border: 0 none !important;
+    background: none !important;
+    line-height: inherit !important;
+    user-select: auto !important;
+    box-shadow: none !important;
+    &:focus {
+      outline: none !important;
+    }
+
+    &[placeholder] {
+      box-sizing: initial;
+    }
+  }
+  &.has-items > input {
+    margin: $select-caret-margin !important;
   }
 }
 
-.selectize-input::after {
-  content: ' ';
+.#{$selectize}-input::after {
+  content: " ";
   display: block;
   clear: left;
 }
 
-.selectize-input.dropdown-active::before {
-  content: ' ';
+.#{$selectize}-input.dropdown-active::before {
+  content: " ";
   display: block;
   position: absolute;
-  background: $selectize-color-dropdown-border-top;
+  background: $select-color-dropdown-border-top;
   height: 1px;
   bottom: 0;
   left: 0;
   right: 0;
 }
 
-.selectize-dropdown {
+.#{$selectize}-dropdown {
   position: absolute;
+  top: 100%;
+  left: 0;
+  width: 100%;
   z-index: 10;
-  border: $selectize-dropdown-border;
-  background: $selectize-color-dropdown;
+
+  border: $select-dropdown-border;
+  background: $select-color-dropdown;
   margin: -1px 0 0 0;
   border-top: 0 none;
-  @include selectize-box-sizing(border-box);
-  @include selectize-box-shadow(0 1px 3px rgba(0,0,0,0.1));
-  @include selectize-border-radius(0 0 $selectize-border-radius $selectize-border-radius);
+  box-sizing: border-box;
+  box-shadow: 0 1px 3px rgba(0, 0, 0, 0.1);
+  border-radius: 0 0 $select-border-radius $select-border-radius;
 
   [data-selectable] {
-	cursor: pointer;
-	overflow: hidden;
-	.highlight {
-	  background: $selectize-color-highlight;
-	  @include selectize-border-radius(1px);
-	}
+    cursor: pointer;
+    overflow: hidden;
+    .highlight {
+      background: $select-color-highlight;
+      border-radius: 1px;
+    }
   }
-  .option, .optgroup-header {
-	padding: $selectize-padding-dropdown-item-y $selectize-padding-dropdown-item-x;
+  .option,
+  .optgroup-header,
+  .no-results,
+  .create {
+    padding: $select-padding-dropdown-item-y $select-padding-dropdown-item-x;
   }
-  .option, [data-disabled], [data-disabled] [data-selectable].option {
-	cursor: inherit;
-	opacity: 0.5;
+  .option,
+  [data-disabled],
+  [data-disabled] [data-selectable].option {
+    cursor: inherit;
+    opacity: 0.5;
   }
   [data-selectable].option {
-	opacity: 1;
+    opacity: 1;
+    cursor: pointer;
   }
   .optgroup:first-child .optgroup-header {
-	border-top: 0 none;
+    border-top: 0 none;
   }
   .optgroup-header {
-	color: $selectize-color-optgroup-text;
-	background: $selectize-color-optgroup;
-	cursor: default;
+    color: $select-color-optgroup-text;
+    background: $select-color-optgroup;
+    cursor: default;
   }
   .active {
-	background-color: $selectize-color-dropdown-item-active;
-	color: $selectize-color-dropdown-item-active-text;
-	&.create {
-	  color: $selectize-color-dropdown-item-create-active-text;
-	}
+    background-color: $select-color-item-active;
+    color: $select-color-item-active-text;
+    &.create {
+      color: $select-color-dropdown-item-create-active-text;
+    }
+  }
+
+  .selected {
+    background-color: $select-color-item-active;
+    color: $select-color-item-active-text;
   }
   .create {
-	color: $selectize-color-dropdown-item-create-text;
+    color: $select-color-dropdown-item-create-text;
+  }
+
+  .active:not(.selected) {
+    background: $select-color-dropdown-item-active;
+    color: $select-color-dropdown-item-active-text;
   }
 }
 
-.selectize-dropdown-content {
+.#{$selectize}-dropdown-content {
   overflow-y: auto;
   overflow-x: hidden;
-  max-height: $selectize-max-height-dropdown;
-  -webkit-overflow-scrolling: touch;
+  max-height: $select-max-height-dropdown;
+  overflow-scrolling: touch;
 }
 
-.selectize-control.single .selectize-input {
-  &, input { cursor: pointer; }
-  &.input-active, &.input-active input { cursor: text; }
+.#{$selectize}-dropdown-emptyoptionlabel {
+	text-align: center;
+}
+
+.#{$selectize}-dropdown .spinner {
+  display: inline-block;
+  width: $select-spinner-size;
+  height: $select-spinner-size;
+  margin: $select-padding-dropdown-item-y $select-padding-dropdown-item-x;
 
   &:after {
-	content: ' ';
-	display: block;
-	position: absolute;
-	top: 50%;
-	right: $selectize-arrow-offset;
-	margin-top: round((-1 * $selectize-arrow-size / 2));
-	width: 0;
-	height: 0;
-	border-style: solid;
-	border-width: $selectize-arrow-size $selectize-arrow-size 0 $selectize-arrow-size;
-	border-color: $selectize-arrow-color transparent transparent transparent;
+    content: " ";
+    display: block;
+    width: $select-spinner-size * 0.8;
+    height: $select-spinner-size * 0.8;
+    margin: $select-spinner-size * 0.1;
+    border-radius: 50%;
+    border: $select-spinner-border-size solid $select-spinner-border-color;
+    border-color: $select-spinner-border-color transparent
+      $select-spinner-border-color transparent;
+    animation: lds-dual-ring 1.2s linear infinite;
   }
-  &.dropdown-active:after {
-	margin-top: $selectize-arrow-size * -0.8;
-	border-width: 0 $selectize-arrow-size $selectize-arrow-size $selectize-arrow-size;
-	border-color: transparent transparent $selectize-arrow-color transparent;
+  @keyframes lds-dual-ring {
+    0% {
+      transform: rotate(0deg);
+    }
+    100% {
+      transform: rotate(360deg);
+    }
   }
 }
 
-.selectize-control.rtl {
-  &.single .selectize-input:after {
-	left: $selectize-arrow-offset;
-	right: auto;
+.#{$selectize}-control.single .#{$selectize}-input {
+  &,
+  input {
+    cursor: pointer;
   }
-  .selectize-input > input {
-	margin: $selectize-caret-margin-rtl !important;
+  &.input-active,
+  &.input-active input:not(:read-only) {
+    cursor: text;
+  }
+
+  &:not(.no-arrow):after {
+    content: " ";
+    display: block;
+    position: absolute;
+    top: 50%;
+    right: $select-arrow-offset;
+    margin-top: round(divide(-1 * $select-arrow-size, 2));
+    width: 0;
+    height: 0;
+    border-style: solid;
+    border-width: $select-arrow-size $select-arrow-size 0 $select-arrow-size;
+    border-color: $select-arrow-color transparent transparent transparent;
+  }
+  &:not(.no-arrow).dropdown-active:after {
+    margin-top: $select-arrow-size * -0.8;
+    border-width: 0 $select-arrow-size $select-arrow-size $select-arrow-size;
+    border-color: transparent transparent $select-arrow-color transparent;
   }
 }
 
-.selectize-control .selectize-input.disabled {
-  opacity: $selectize-opacity-disabled;
-  background-color: $selectize-color-disabled;
+.#{$selectize}-control.rtl {
+  text-align: right;
+  &.single .#{$selectize}-input:after {
+    left: $select-arrow-offset;
+    right: auto;
+  }
+  .#{$selectize}-input > input {
+    margin: $select-caret-margin-rtl !important;
+  }
+}
+
+.#{$selectize}-control .#{$selectize}-input.disabled {
+  opacity: $select-opacity-disabled;
+  background-color: $select-color-disabled;
 }

inst/www/shared/shiny-showcase.css

@@ -1,2 +1,2 @@
-/*! shiny 1.7.4.9002 | (c) 2012-2023 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.5.9000 | (c) 2012-2023 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:400}.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,#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.4.9002 | (c) 2012-2023 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.5.9000 | (c) 2012-2023 RStudio, PBC. | License: GPL-3 | file LICENSE */
 "use strict";(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.4.9002 | (c) 2012-2023 RStudio, PBC. | License: GPL-3 | file LICENSE */
+/*! shiny 1.7.5.9000 | (c) 2012-2023 RStudio, PBC. | License: GPL-3 | file LICENSE */
 "use strict";
 (function() {
   var __create = Object.create;
@@ -8241,7 +8241,8 @@
             msg.to = data.value[1];
           } else {
             if (Array.isArray(data.value)) {
-              throw "Slider only contains a single value and cannot be updated with an array";
+              var errorReason = ["an empty array.", "a single-value array.", "an array with more than two values."];
+              throw "Slider requires two values to update with an array, but message value was " + errorReason[Math.min(data.value.length, 2)];
             }
             msg.from = data.value;
           }
@@ -8661,6 +8662,59 @@
   // srcts/src/utils/eval.ts
   var indirectEval = eval;
 
+  // srcts/src/shiny/initedMethods.ts
+  var fullShinyObj;
+  function setShinyObj(shiny) {
+    fullShinyObj = shiny;
+  }
+  function validateShinyHasBeenSet() {
+    if (typeof fullShinyObj === "undefined") {
+      throw "Shiny has not finish initialization yet. Please wait for the 'shiny-initialized' event.";
+    }
+    return fullShinyObj;
+  }
+  function shinySetInputValue(name, value, opts) {
+    validateShinyHasBeenSet().setInputValue(name, value, opts);
+  }
+  function shinyShinyApp() {
+    return validateShinyHasBeenSet().shinyapp;
+  }
+  function setShinyUser(user) {
+    validateShinyHasBeenSet().user = user;
+  }
+  function shinyForgetLastInputValue(name) {
+    validateShinyHasBeenSet().forgetLastInputValue(name);
+  }
+  function shinyBindAll(scope) {
+    validateShinyHasBeenSet().bindAll(scope);
+  }
+  function shinyUnbindAll(scope) {
+    var includeSelf = arguments.length > 1 && arguments[1] !== void 0 ? arguments[1] : false;
+    validateShinyHasBeenSet().unbindAll(scope, includeSelf);
+  }
+  function shinyInitializeInputs(scope) {
+    validateShinyHasBeenSet().initializeInputs(scope);
+  }
+  function shinyAppBindOutput(id, binding) {
+    shinyShinyApp().bindOutput(id, binding);
+  }
+  function shinyAppUnbindOutput(id, binding) {
+    return shinyShinyApp().unbindOutput(id, binding);
+  }
+  function getShinyOnCustomMessage() {
+    return validateShinyHasBeenSet().oncustommessage;
+  }
+  var fileInputBinding;
+  function getFileInputBinding() {
+    return fileInputBinding;
+  }
+  function setFileInputBinding(fileInputBinding_) {
+    fileInputBinding = fileInputBinding_;
+  }
+  function getShinyCreateWebsocket() {
+    return validateShinyHasBeenSet().createSocket;
+  }
+
   // srcts/src/bindings/input/selectInput.ts
   function _typeof13(obj) {
     "@babel/helpers - typeof";
@@ -8969,14 +9023,25 @@
           import_jquery15.default.each(config.data("eval"), function(i, x) {
             options[x] = indirectEval("(" + options[x] + ")");
           });
-        var control = $el.selectize(options)[0].selectize;
+        var control = this._newSelectize($el, options);
         if (update) {
           var settings = import_jquery15.default.extend(control.settings, options);
           control.destroy();
-          control = $el.selectize(settings)[0].selectize;
+          control = this._newSelectize($el, settings);
         }
         return control;
       }
+    }, {
+      key: "_newSelectize",
+      value: function _newSelectize($el, options) {
+        var binding = $el.data("shiny-input-binding");
+        if (binding)
+          shinyUnbindAll($el.parent());
+        var control = $el.selectize(options)[0].selectize;
+        if (binding)
+          shinyBindAll($el.parent());
+        return control;
+      }
     }]);
     return SelectInputBinding2;
   }(InputBinding);
@@ -9408,59 +9473,6 @@
     return evt;
   }
 
-  // srcts/src/shiny/initedMethods.ts
-  var fullShinyObj;
-  function setShinyObj(shiny) {
-    fullShinyObj = shiny;
-  }
-  function validateShinyHasBeenSet() {
-    if (typeof fullShinyObj === "undefined") {
-      throw "Shiny has not finish initialization yet. Please wait for the 'shiny-initialized' event.";
-    }
-    return fullShinyObj;
-  }
-  function shinySetInputValue(name, value, opts) {
-    validateShinyHasBeenSet().setInputValue(name, value, opts);
-  }
-  function shinyShinyApp() {
-    return validateShinyHasBeenSet().shinyapp;
-  }
-  function setShinyUser(user) {
-    validateShinyHasBeenSet().user = user;
-  }
-  function shinyForgetLastInputValue(name) {
-    validateShinyHasBeenSet().forgetLastInputValue(name);
-  }
-  function shinyBindAll(scope) {
-    validateShinyHasBeenSet().bindAll(scope);
-  }
-  function shinyUnbindAll(scope) {
-    var includeSelf = arguments.length > 1 && arguments[1] !== void 0 ? arguments[1] : false;
-    validateShinyHasBeenSet().unbindAll(scope, includeSelf);
-  }
-  function shinyInitializeInputs(scope) {
-    validateShinyHasBeenSet().initializeInputs(scope);
-  }
-  function shinyAppBindOutput(id, binding) {
-    shinyShinyApp().bindOutput(id, binding);
-  }
-  function shinyAppUnbindOutput(id, binding) {
-    return shinyShinyApp().unbindOutput(id, binding);
-  }
-  function getShinyOnCustomMessage() {
-    return validateShinyHasBeenSet().oncustommessage;
-  }
-  var fileInputBinding;
-  function getFileInputBinding() {
-    return fileInputBinding;
-  }
-  function setFileInputBinding(fileInputBinding_) {
-    fileInputBinding = fileInputBinding_;
-  }
-  function getShinyCreateWebsocket() {
-    return validateShinyHasBeenSet().createSocket;
-  }
-
   // srcts/src/file/fileProcessor.ts
   function _typeof16(obj) {
     "@babel/helpers - typeof";
@@ -16567,6 +16579,8 @@
       var matches = binding.find(scope) || [];
       var _loop22 = function _loop23() {
         var el = matches[j];
+        if (el.hasAttribute("data-shiny-no-bind-input"))
+          return "continue";
         var id = binding.getId(el);
         if (!id || boundInputs[id])
           return "continue";
@@ -18337,8 +18351,17 @@
               evt.message = message[i].message;
               evt.binding = inputBinding;
               (0, import_jquery38.default)(el).trigger(evt);
-              if (!evt.isDefaultPrevented())
-                inputBinding.receiveMessage(el, evt.message);
+              if (!evt.isDefaultPrevented()) {
+                try {
+                  inputBinding.receiveMessage(el, evt.message);
+                } catch (error) {
+                  console.error("[shiny] Error in inputBinding.receiveMessage()", {
+                    error: error,
+                    binding: inputBinding,
+                    message: evt.message
+                  });
+                }
+              }
             }
           }
         });
@@ -19184,7 +19207,7 @@
   var windowShiny2;
   function setShiny(windowShiny_) {
     windowShiny2 = windowShiny_;
-    windowShiny2.version = "1.7.4.9002";
+    windowShiny2.version = "1.7.5.9000";
     var _initInputBindings = initInputBindings(), inputBindings = _initInputBindings.inputBindings, fileInputBinding2 = _initInputBindings.fileInputBinding;
     var _initOutputBindings = initOutputBindings(), outputBindings = _initOutputBindings.outputBindings;
     setFileInputBinding(fileInputBinding2);

inst/www/shared/shiny_scss/bootstrap.scss

@@ -1,43 +1,46 @@
-$bg: $body-bg !default;
+$prefix: bs- !default; // BS5 CSS variable prefix
 
-$fg: null !default;
-$theme-colors: null !default;
-@if variable-exists('text-color') {
-  $fg: $text-color !default; // BS3
-  $theme-colors: ("primary": $brand-primary, "info": $brand-info, "warning": $brand-warning, "danger": $brand-danger) !default;
-} @else {
-  $fg: $body-color !default; // BS4
-}
-// No $border-width, $border-color, or $border-radius in BS3
+// For BS3, which doesn't have these Sass variables (but has other, similar ones)
 $border-width: 1px !default;
-$border-color: mix($bg, $fg, 70%) !default;
 $border-radius: $border-radius-base !default;
+$border-color: mix($body-bg, $text-color, 70%) !default;
+$primary: $brand-primary !default;
+$info: $brand-info !default;
+$warning: $brand-warning !default;
+$danger: $brand-danger !default;
 
-$shiny-disconnected-bg:             mix($bg, $fg, 58%) !default;
-$shiny-table-na:                    mix($bg, $fg, 54%) !default;
-$shiny-error-validated-color:       mix($bg, $fg, 50%) !default;
-// TODO: what should this be? mix of primary and bg?
-$shiny-progress-text-bg-color:      #eef8ff !default;
-$shiny-input-panel-bg:              mix($bg, $fg, 96%) !default;
-$shiny-input-panel-border:          $border-width solid $border-color !default;
+// No rgb CSS vars available in BS3-4
+$primary-rgb: var(--#{$prefix}primary-rgb, red($primary),green($primary),blue($primary)) !default;
+$info-rgb:    var(--#{$prefix}info-rgb, red($info), green($info), blue($info)) !default;
+$warning-rgb: var(--#{$prefix}warning-rgb, red($warning), green($warning), blue($warning)) !default;
+$danger-rgb:  var(--#{$prefix}danger-rgb, red($danger), green($danger), blue($danger)) !default;
+
+
+$shiny-emphasis-color-rgb:          var(--#{$prefix}emphasis-color-rgb, 0,0,0) !default;
+$shiny-disconnected-bg:             RGBA($shiny-emphasis-color-rgb, 0.42) !default;
+$shiny-table-na:                    RGBA($shiny-emphasis-color-rgb, 0.46) !default;
+$shiny-error-validated-color:       RGBA($shiny-emphasis-color-rgb, 0.5) !default;
+$shiny-progress-text-bg-color:      RGBA($primary-rgb, 0.05) !default;
+$shiny-input-panel-bg:              RGBA($shiny-emphasis-color-rgb, 0.04) !default;
+$shiny-input-panel-border:          $border-width solid var(--#{$prefix}border-color, $border-color) !default;
 $shiny-input-panel-border-radius:   $border-radius !default;
 $shiny-text-output-border-radius:   $border-radius !default;
-$notification-bg-color:             mix($bg, $fg, 90%) !default;
-$notification-color:                $fg !default;
-$notification-border:               $border-width solid $border-color !default;
+$notification-bg-color:             RGBA($shiny-emphasis-color-rgb, 0.05) !default;
+$notification-color:                $shiny-emphasis-color-rgb !default;
+$notification-border:               $border-width solid var(--#{$prefix}border-color, $border-color) !default;
 $notification-border-radius:        $border-radius !default;
-$notification-message-bg:           mix($bg, map-get($theme-colors, "info"), 90%) !default;
-$notification-message-color:        mix($fg, map-get($theme-colors, "info"), 10%) !default;
-$notification-message-border:       $border-width solid mix($bg, map-get($theme-colors, "info"), 53%) !default;
-$notification-warning-bg:           mix($bg, map-get($theme-colors, "warning"), 90%) !default;
-$notification-warning-color:        mix($fg, map-get($theme-colors, "warning"), 10%) !default;
-$notification-warning-border:       $border-width solid mix($bg, map-get($theme-colors, "warning"), 71%) !default;
-$notification-error-bg:             mix($bg, map-get($theme-colors, "danger"), 90%) !default;
-$notification-error-color:          mix($fg, map-get($theme-colors, "danger"), 10%) !default;
-$notification-error-border:         $border-width solid mix($bg, map-get($theme-colors, "danger"), 79%) !default;
-$notification-close-color:          mix($bg, $fg, 20%) !default;
-$notification-close-hover-color:    $fg !default;
-$notification-content-action-color: map-get($theme-colors, "primary") !default;
+$notification-message-bg:           RGBA($info-rgb, 0.05) !default;
+$notification-message-color:        RGBA($info-rgb, 1) !default;
+$notification-message-border:       $border-width solid RGBA($info-rgb, 0.5) !default;
+$notification-warning-bg:           RGBA($warning-rgb, 0.05) !default;
+$notification-warning-color:        RGBA($warning-rgb, 0.9) !default;
+$notification-warning-border:       $border-width solid RGBA($warning-rgb, 0.3) !default;
+$notification-error-bg:             RGBA($danger-rgb, 0.05) !default;
+$notification-error-color:          RGBA($danger-rgb, 0.9) !default;
+$notification-error-border:         $border-width solid RGBA($warning-rgb, 0.2) !default;
+$notification-close-color:          RGBA($shiny-emphasis-color-rgb, 0.8) !default;
+$notification-close-hover-color:    RGB($shiny-emphasis-color-rgb) !default;
+$notification-content-action-color: RGB($primary-rgb) !default;
 $datepicker-disabled-color:         $dropdown-link-disabled-color !default;
 
 // I don't think BS3 has a file input box shadow setting

inst/www/shared/shiny_scss/shiny.scss

@@ -157,6 +157,9 @@ pre.shiny-text-output {
   margin-top: -9px;
 }
 .slider-animate-button {
+  /* Ensure controls above slider line touch target */
+  position: relative;
+  z-index: 1;
   opacity: 0.5;
   .pause {
     display: none;
@@ -181,6 +184,12 @@ pre.shiny-text-output {
   }
 }
 
+// fileInput()'s button should never have a top-right or bottom-right border-radius
+.btn-file {
+  border-top-right-radius: 0 !important;
+  border-bottom-right-radius: 0 !important;
+}
+
 /* Make sure the filename doesn't extend past the bounds of the container */
 .shiny-input-container input[type=file] {
   overflow: hidden;
@@ -304,11 +313,6 @@ pre.shiny-text-output {
   zoom: 1.0000001;
 }
 
-/* consistency with bootstrap.css for selectize.js */
-.selectize-control {
-  margin-bottom: 10px;
-}
-
 .shiny-frame {
   border: none;
 }

man/availableExamples.Rd

@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/run-example.R
+\name{availableExamples}
+\alias{availableExamples}
+\title{Function to get a data frame of all available Shiny examples}
+\usage{
+availableExamples(package = NULL)
+}
+\arguments{
+\item{package}{A character string specifying the name of the package}
+}
+\value{
+A data frame containing information
+about all available Shiny examples
+}
+\description{
+Function to get a data frame of all available Shiny examples
+}

man/bindCache.Rd

@@ -166,8 +166,8 @@ instead of the default 200 MB:
 }\if{html}{\out{</div>}}
 
 To use different settings for a session-scoped cache, you can set
-\code{self$cache} at the top of your server function. By default, it will create
-a 200 MB memory cache for each session, but you can replace it with
+\code{session$cache} at the top of your server function. By default, it will
+create a 200 MB memory cache for each session, but you can replace it with
 something different. To use the session-scoped cache, you must also call
 \code{bindCache()} with \code{cache="session"}. This will create a 100 MB cache for
 the session:

man/fileInput.Rd

@@ -24,9 +24,9 @@ fileInput(
 multiple files at once. \strong{Does not work on older browsers, including
 Internet Explorer 9 and earlier.}}
 
-\item{accept}{A character vector of "unique file type specifiers" which
-gives the browser a hint as to the type of file the server expects.
-Many browsers use this prevent the user from selecting an invalid file.
+\item{accept}{A character vector of "unique file type specifiers" which gives
+the browser a hint as to the type of file the server expects. Many browsers
+use this prevent the user from selecting an invalid file.
 
 A unique file type specifier can be:
 \itemize{
@@ -61,12 +61,19 @@ still photos only, also use \code{accept="image/*"}. For video only, use
 Create a file upload control that can be used to upload one or more files.
 }
 \details{
-Whenever a file upload completes, the corresponding input variable is set
-to a dataframe. See the \verb{Server value} section.
+Whenever a file upload completes, the corresponding input variable is set to
+a dataframe. See the \verb{Server value} section.
+
+Each time files are uploaded, they are written to a new random subdirectory
+inside of R's process-level temporary directory. The Shiny user session keeps
+track of all uploads in the session, and when the session ends, Shiny deletes
+all of the subdirectories where files where uploaded to.
 }
 \section{Server value}{
 
-A \code{data.frame} that contains one row for each selected file, and following columns:
+
+A \code{data.frame} that contains one row for each selected file, and following
+columns:
 \describe{
 \item{\code{name}}{The filename provided by the web browser. This is
 \strong{not} the path to read to get at the actual data that was uploaded

man/isRunning.Rd

@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/app-state.R
+% Please edit documentation in R/server.R
 \name{isRunning}
 \alias{isRunning}
 \title{Check whether a Shiny application is running}

man/navbarPage.Rd

@@ -58,8 +58,7 @@ tabPanels}
 navigation bar}
 
 \item{collapsible}{\code{TRUE} to automatically collapse the navigation
-elements into a menu when the width of the browser is less than 940 pixels
-(useful for viewing on smaller touchscreen device)}
+elements into an expandable menu on mobile devices or narrow window widths.}
 
 \item{fluid}{\code{TRUE} to use a fluid layout. \code{FALSE} to use a fixed
 layout.}

man/observeEvent.Rd

@@ -86,8 +86,8 @@ Positive, negative, and zero values are allowed.}
 automatically destroyed when its domain (if any) ends.}
 
 \item{ignoreNULL}{Whether the action should be triggered (or value
-calculated, in the case of \code{eventReactive}) when the input is
-\code{NULL}. See Details.}
+calculated, in the case of \code{eventReactive}) when the input event expression
+is \code{NULL}. See Details.}
 
 \item{ignoreInit}{If \code{TRUE}, then, when this \code{observeEvent} is
 first created/initialized, ignore the \code{handlerExpr} (the second

man/selectInput.Rd

@@ -48,7 +48,7 @@ but when \code{size} is set, it will be a box instead.}
 
 \item{...}{Arguments passed to \code{selectInput()}.}
 
-\item{options}{A list of options. See the documentation of \pkg{selectize.js}
+\item{options}{A list of options. See the documentation of \pkg{selectize.js}(\url{https://selectize.dev/docs/usage})
 for possible options (character option values inside \code{\link[base:AsIs]{base::I()}} will
 be treated as literal JavaScript code; see \code{\link[=renderDataTable]{renderDataTable()}}
 for details).}
@@ -62,7 +62,7 @@ from a list of values.
 }
 \details{
 By default, \code{selectInput()} and \code{selectizeInput()} use the JavaScript library
-\pkg{selectize.js} (\url{https://github.com/selectize/selectize.js}) instead of
+\pkg{selectize.js} (\url{https://selectize.dev/}) instead of
 the basic select input element. To use the standard HTML select input
 element, use \code{selectInput()} with \code{selectize=FALSE}.
 

man/shinyOptions.Rd

@@ -69,8 +69,9 @@ be done 100\% correctly.}
 \item{shiny.jquery.version (defaults to \code{3})}{The major version of jQuery to use.
 Currently only values of \code{3} or \code{1} are supported. If \code{1}, then jQuery 1.12.4 is used. If \code{3},
 then jQuery 3.6.0 is used.}
-\item{shiny.json.digits (defaults to \code{16})}{The number of digits to use when converting
-numbers to JSON format to send to the client web browser.}
+\item{shiny.json.digits (defaults to \code{I(16)})}{Max number of digits to use when converting
+numbers to JSON format to send to the client web browser. Use \code{\link[=I]{I()}} to specify significant digits.
+Use \code{NA} for max precision.}
 \item{shiny.launch.browser (defaults to \code{interactive()})}{A boolean which controls the default behavior
 when an app is run. See \code{\link[=runApp]{runApp()}} for more information.}
 \item{shiny.mathjax.url (defaults to \code{"https://mathjax.rstudio.com/latest/MathJax.js"})}{

man/updateSelectInput.Rd

@@ -62,7 +62,7 @@ the example section for a small demo of this feature.}
 \item{selected}{The initially selected value (or multiple values if \code{multiple = TRUE}). If not specified then defaults to the first value for
 single-select lists and no values for multiple select lists.}
 
-\item{options}{A list of options. See the documentation of \pkg{selectize.js}
+\item{options}{A list of options. See the documentation of \pkg{selectize.js}(\url{https://selectize.dev/docs/usage})
 for possible options (character option values inside \code{\link[base:AsIs]{base::I()}} will
 be treated as literal JavaScript code; see \code{\link[=renderDataTable]{renderDataTable()}}
 for details).}

man/varSelectInput.Rd

@@ -42,7 +42,7 @@ but when \code{size} is set, it will be a box instead.}
 
 \item{...}{Arguments passed to \code{varSelectInput()}.}
 
-\item{options}{A list of options. See the documentation of \pkg{selectize.js}
+\item{options}{A list of options. See the documentation of \pkg{selectize.js}(\url{https://selectize.dev/docs/usage})
 for possible options (character option values inside \code{\link[base:AsIs]{base::I()}} will
 be treated as literal JavaScript code; see \code{\link[=renderDataTable]{renderDataTable()}}
 for details).}
@@ -57,7 +57,7 @@ from the column names of a data frame.
 \details{
 By default, \code{varSelectInput()} and \code{selectizeInput()} use the
 JavaScript library \pkg{selectize.js}
-(\url{https://github.com/selectize/selectize.js}) to instead of the basic
+(\url{https://selectize.dev/}) to instead of the basic
 select input element. To use the standard HTML select input element, use
 \code{selectInput()} with \code{selectize=FALSE}.
 }

package.json

@@ -3,7 +3,7 @@
   "homepage": "https://shiny.rstudio.com",
   "repository": "github:rstudio/shiny",
   "name": "@types/rstudio-shiny",
-  "version": "1.7.4-alpha.9002",
+  "version": "1.7.5-alpha.9000",
   "license": "GPL-3.0-only",
   "main": "",
   "browser": "",
@@ -33,6 +33,7 @@
     "@babel/preset-typescript": "^7.13.0",
     "@babel/runtime": "^7.14.0",
     "@deanc/esbuild-plugin-postcss": "^1.0.2",
+    "@selectize/selectize": "https://github.com/selectize/selectize.js.git#e3f2e0b4aa251375bc21b5fcd8ca7d374a921f08",
     "@testing-library/dom": "^7.31.0",
     "@testing-library/jest-dom": "^5.12.0",
     "@testing-library/user-event": "^13.1.9",

revdep/README.md

@@ -1,12 +1,28 @@
 # Revdeps
 
-## Failed to check (5)
+## Failed to check (21)
 
 |package    |version |error |warning |note |
 |:----------|:-------|:-----|:-------|:----|
-|ctsem      |3.6.0   |1     |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|ctsem      |3.7.6   |1     |        |     |
+|disk.frame |0.8.2   |1     |        |     |
 |diveR      |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|grandR     |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
 |loon.shiny |?       |      |        |     |
 |NA         |?       |      |        |     |
-|SSVS       |?       |      |        |     |
+|NA         |?       |      |        |     |
+|RQuantLib  |0.4.18  |1     |        |     |
+|rstanarm   |2.21.4  |1     |        |     |
+|NA         |?       |      |        |     |
+|NA         |?       |      |        |     |
 

revdep/cran.md

@@ -1,15 +1,18 @@
 ## revdepcheck results
 
-We checked 1039 reverse dependencies (1038 from CRAN + 1 from Bioconductor), comparing R CMD check results across CRAN and dev versions of this package.
+We checked 1145 reverse dependencies (1131 from CRAN + 14 from Bioconductor), comparing R CMD check results across CRAN and dev versions of this package.
 
  * We saw 0 new problems
- * We failed to check 4 packages
+ * We failed to check 7 packages
 
 Issues with CRAN packages are summarised below.
 
 ### Failed to check
 
 * ctsem      (NA)
+* disk.frame (NA)
 * diveR      (NA)
+* grandR     (NA)
 * loon.shiny (NA)
-* SSVS       (NA)
+* RQuantLib  (NA)
+* rstanarm   (NA)

srcts/src/bindings/input/checkbox.ts

@@ -9,6 +9,7 @@ type CheckboxReceiveMessageData = { value?: CheckboxChecked; label?: string };
 
 class CheckboxInputBinding extends InputBinding {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs also have .shiny-input-checkbox class
     return $(scope).find('input[type="checkbox"]');
   }
   getValue(el: CheckedHTMLElement): CheckboxChecked {

srcts/src/bindings/input/fileinput.ts

@@ -195,6 +195,7 @@ function fileInputBindingGetId(this: any, el: HTMLInputElement): string {
 
 class FileInputBinding extends InputBinding {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs also have .shiny-input-file class
     return $(scope).find('input[type="file"]');
   }
   getId(el: HTMLInputElement): string {

srcts/src/bindings/input/number.ts

@@ -20,6 +20,7 @@ function getLabelNode(el: NumberHTMLElement): JQuery<HTMLElement> {
 
 class NumberInputBinding extends TextInputBindingBase {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs also have .shiny-input-number class
     return $(scope).find('input[type="number"]');
   }
 

srcts/src/bindings/input/password.ts

@@ -4,6 +4,7 @@ import { TextInputBinding } from "./text";
 
 class PasswordInputBinding extends TextInputBinding {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs also have .shiny-input-password class
     return $(scope).find('input[type="password"]');
   }
 

srcts/src/bindings/input/selectInput.ts

@@ -2,6 +2,7 @@ import $ from "jquery";
 import { InputBinding } from "./inputBinding";
 import { $escape, hasDefinedProperty, updateLabel } from "../../utils";
 import { indirectEval } from "../../utils/eval";
+import { shinyBindAll, shinyUnbindAll } from "../../shiny/initedMethods";
 import type { NotUndefined } from "../../utils/extraTypes";
 
 type SelectHTMLElement = HTMLSelectElement & { nonempty: boolean };
@@ -42,6 +43,7 @@ function isSelectize(el: HTMLElement): boolean {
 
 class SelectInputBinding extends InputBinding {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs also have .shiny-input-select class
     return $(scope).find("select");
   }
   getType(el: HTMLElement): string | null {
@@ -282,15 +284,32 @@ class SelectInputBinding extends InputBinding {
         // @ts-expect-error; Need to type `options` keys to know exactly which values are accessed.
         options[x] = indirectEval("(" + options[x] + ")");
       });
-    let control = $el.selectize(options)[0].selectize as SelectizeInfo;
-    // .selectize() does not really update settings; must destroy and rebuild
 
+    let control = this._newSelectize($el, options);
+
+    // .selectize() does not really update settings; must destroy and rebuild
     if (update) {
       const settings = $.extend(control.settings, options);
 
       control.destroy();
-      control = $el.selectize(settings)[0].selectize as SelectizeInfo;
+      control = this._newSelectize($el, settings);
     }
+
+    return control;
+  }
+
+  protected _newSelectize(
+    $el: JQuery<HTMLSelectElement>,
+    options: SelectizeOptions
+  ): SelectizeInfo {
+    // Starting with selectize v0.15.2, $el.selectize() can prune the <select>
+    // element from the DOM, meaning that if we're already bound to it, we'll
+    // lose the binding. So if we are bound, unbind first, then rebind after.
+    // (Note this is quite similar to how Shiny.renderContent() works.)
+    const binding = $el.data("shiny-input-binding");
+    if (binding) shinyUnbindAll($el.parent());
+    const control = $el.selectize(options)[0].selectize as SelectizeInfo;
+    if (binding) shinyBindAll($el.parent());
     return control;
   }
 }

srcts/src/bindings/input/slider.ts

@@ -197,7 +197,16 @@ class SliderInputBinding extends TextInputBindingBase {
         msg.to = data.value[1];
       } else {
         if (Array.isArray(data.value)) {
-          throw "Slider only contains a single value and cannot be updated with an array";
+          const errorReason = [
+            "an empty array.",
+            "a single-value array.",
+            "an array with more than two values.",
+          ];
+          throw (
+            "Slider requires two values to update with an array, " +
+            "but message value was " +
+            errorReason[Math.min(data.value.length, 2)]
+          );
         }
         msg.from = data.value;
       }

srcts/src/bindings/input/text.ts

@@ -29,7 +29,8 @@ class TextInputBindingBase extends InputBinding {
     // id that ends in '-selectized'. The .not() selector below
     // is to prevent textInputBinding from accidentally picking up
     // this hidden element as a shiny input (#2396)
-
+    //
+    // Inputs also now have .shiny-input-text class
     return $inputs.not('input[type="text"][id$="-selectized"]');
   }
 

srcts/src/bindings/input/textarea.ts

@@ -4,6 +4,7 @@ import { TextInputBinding } from "./text";
 
 class TextareaInputBinding extends TextInputBinding {
   find(scope: HTMLElement): JQuery<HTMLElement> {
+    // Inputs now also have the .shiny-input-textarea class
     return $(scope).find("textarea");
   }
 }

srcts/src/shiny/bind.ts

@@ -82,6 +82,7 @@ function bindInputs(
 
     for (let j = 0; j < matches.length; j++) {
       const el = matches[j];
+      if (el.hasAttribute("data-shiny-no-bind-input")) continue;
       const id = binding.getId(el);
 
       // Check if ID is falsy, or if already bound

srcts/src/shiny/shinyapp.ts

@@ -725,8 +725,16 @@ class ShinyApp {
             evt.message = message[i].message;
             evt.binding = inputBinding;
             $(el).trigger(evt);
-            if (!evt.isDefaultPrevented())
-              inputBinding.receiveMessage(el, evt.message);
+            if (!evt.isDefaultPrevented()) {
+              try {
+                inputBinding.receiveMessage(el, evt.message);
+              } catch (error) {
+                console.error(
+                  "[shiny] Error in inputBinding.receiveMessage()",
+                  { error, binding: inputBinding, message: evt.message }
+                );
+              }
+            }
           }
         }
       }

srcts/types/src/bindings/input/selectInput.d.ts

@@ -34,6 +34,7 @@ declare class SelectInputBinding extends InputBinding {
     unsubscribe(el: HTMLElement): void;
     initialize(el: SelectHTMLElement): void;
     protected _selectize(el: SelectHTMLElement, update?: boolean): SelectizeInfo | undefined;
+    protected _newSelectize($el: JQuery<HTMLSelectElement>, options: SelectizeOptions): SelectizeInfo;
 }
 export { SelectInputBinding };
 export type { SelectInputReceiveMessageData };

tests/testthat/test-bootstrap.r

@@ -22,7 +22,7 @@ test_that("Repeated names for selectInput and radioButtons choices", {
   # Select input
   x <- selectInput('id','label', choices = c(a='x1', a='x2', b='x3'), selectize = FALSE)
   expect_true(grepl(fixed = TRUE,
-    '<select id="id" class="form-control"><option value="x1" selected>a</option>\n<option value="x2">a</option>\n<option value="x3">b</option></select>',
+    '<select class="shiny-input-select form-control" id="id"><option value="x1" selected>a</option>\n<option value="x2">a</option>\n<option value="x3">b</option></select>',
      format(x)
   ))
 
@@ -249,7 +249,7 @@ test_that("selectInput selects items by default", {
 
   # Nothing selected when choices=NULL
   expect_true(grepl(fixed = TRUE,
-    '<select id="x" class="form-control"></select>',
+    '<select class="shiny-input-select form-control" id="x"></select>',
     format(selectInput('x', NULL, NULL, selectize = FALSE))
   ))
 

tests/testthat/test-tabPanel.R

@@ -18,6 +18,9 @@ expect_snapshot2 <- function(...) {
   if (getRversion() < "3.6.0") {
     skip("Skipping snapshots on R < 3.6 because of different RNG method")
   }
+  if (packageVersion("htmltools") <= "0.5.6" && getRversion() > "4.3.1") {
+    skip("Skipping snapshots since htmltools is 'outdated'")
+  }
   expect_snapshot(...)
 }
 

tests/testthat/test-utils.R

@@ -268,3 +268,27 @@ test_that("quoToFunction handles nested quosures", {
   func <- quoToFunction(quo_outer, "foo")
   expect_identical(func(), 2)
 })
+
+
+
+test_that("toJSON can set digits using options - default", {
+  withr::local_options(list(shiny.json.digits = NULL))
+  expect_equal(
+    as.character(toJSON(pi)),
+    "[3.141592653589793]"
+  )
+})
+test_that("toJSON can set digits using options - number", {
+  withr::local_options(list(shiny.json.digits = 4))
+  expect_equal(
+    as.character(toJSON(pi)),
+    "[3.1416]"
+  )
+})
+test_that("toJSON can set digits using options - asis number", {
+  withr::local_options(list(shiny.json.digits = I(4)))
+  expect_equal(
+    as.character(toJSON(pi)),
+    "[3.142]"
+  )
+})

tools/documentation/pkgdown.yml

@@ -144,6 +144,7 @@ reference:
       - viewer
       - isRunning
       - loadSupport
+      - availableExamples
   - title: Bookmarking state
     desc: Functions that are used for bookmarking and restoring state.
     contents:

tools/ion.rangeSlider-patches/0001-Add-skin-customized-for-Shiny.patch

@@ -3,8 +3,9 @@ new file mode 100644
 index 00000000..ba052f8b
 --- /dev/null
 +++ b/inst/www/shared/ionrangeslider/scss/shiny.scss
-@@ -0,0 +1,173 @@
+@@ -0,0 +1,201 @@
 +/* 'shiny' skin for Ion.RangeSlider, largely based on the 'big' skin, but with smaller dimensions, grayscale grid text, and without gradients
++© Posit, PBC, 2023
 +© RStudio, Inc, 2014
 +© Denis Ineshin, 2014  https://github.com/IonDen
 +© guybowden, 2014  https://github.com/guybowden
@@ -85,6 +86,19 @@ index 00000000..ba052f8b
 +    background-color: $line_bg_color;
 +    border: $line_border;
 +    @include border-radius-shim($line_height);
++
++    // Increase the touch target area of the slider line
++    overflow: visible;
++    &::before {
++      content: "";
++      display: block;
++      position: relative;
++      cursor: s-resize; // downward arrow
++      width: 100%;
++      height: $handle_height;
++      top: -(($handle_height - $line_height / 2) / 2);
++      z-index: 1; // raise touch area above grid
++    }
 +  }
 +
 +  .#{$name}-bar {
@@ -93,10 +107,23 @@ index 00000000..ba052f8b
 +    border-top: 1px solid $bar_color;
 +    border-bottom: 1px solid $bar_color;
 +    background: $bar_color;
++    cursor: s-resize; // downard arrow, overwritten when a range
++    z-index: 2;
 +
 +    &--single {
 +      @include border-radius-shim($line_height 0 0 $line_height);
 +    }
++
++    // Increase the touch target area of the slider bar
++    &::before {
++      content: "";
++      display: block;
++      position: relative;
++      width: 100%;
++      height: $handle_height;
++      top: -(($handle_height - $line_height / 2) / 2);
++      z-index: 2; // raise touch area above line touch target
++    }
 +  }
 +
 +  // sliderInput() doesn't currently support from_min/from_max, so this isn't relevant
@@ -120,6 +147,7 @@ index 00000000..ba052f8b
 +    background-color: $handle_color;
 +    box-shadow: $handle_box_shadow;
 +    border-radius: $handle_width;
++    z-index: 2;
 +
 +    &.state_hover,
 +    &:hover {

tools/selectize-patches/002-better-sass-defaults.patch

@@ -1,91 +0,0 @@
-diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-index 81d018a8..88d042db 100644
---- a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-+++ b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-@@ -18,22 +18,23 @@ $selectize-font-family: inherit !default;
- $selectize-font-size: inherit !default;
- $selectize-line-height: $line-height-computed !default;
-
--$selectize-color-text: $text-color !default;
-+$selectize-color-text: $input-color !default;
- $selectize-color-highlight: rgba(255,237,40,0.4) !default;
- $selectize-color-input: $input-bg !default;
- $selectize-color-input-full: $input-bg !default;
- $selectize-color-input-error: $state-danger-text !default;
- $selectize-color-input-error-focus: darken($selectize-color-input-error, 10%) !default;
- $selectize-color-disabled: $input-bg !default;
--$selectize-color-item: #efefef !default;
-+$selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
- $selectize-color-item-border: rgba(black, 0) !default;
- $selectize-color-item-active: $component-active-bg !default;
--$selectize-color-item-active-text: #fff !default;
-+$selectize-color-item-active-text: $component-active-color !default;
- $selectize-color-item-active-border: rgba(black, 0) !default;
- $selectize-color-optgroup: $dropdown-bg !default;
- $selectize-color-optgroup-text: $dropdown-header-color !default;
- $selectize-color-optgroup-border: $dropdown-divider-bg !default;
- $selectize-color-dropdown: $dropdown-bg !default;
-+$selectize-color-dropdown-text: $dropdown-link-color !default;
- $selectize-color-dropdown-border-top: mix($input-border, $input-bg, 0.8) !default;
- $selectize-color-dropdown-item-active: $dropdown-link-hover-bg !default;
- $selectize-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
-@@ -63,12 +64,19 @@ $selectize-arrow-offset: $selectize-padding-x + 5px !default;
-
- @import "selectize";
-
-+//Import Plugins
-+@import "plugins/drag_drop";
-+@import "plugins/dropdown_header";
-+@import "plugins/optgroup_columns";
-+@import "plugins/remove_button";
-+
- .selectize-dropdown, .selectize-dropdown.form-control {
-     height: auto;
-     padding: 0;
-     margin: 2px 0 0 0;
-     z-index: $zindex-dropdown;
-     background: $selectize-color-dropdown;
-+    color: $selectize-color-dropdown-text;
-     border: 1px solid $dropdown-fallback-border;
-     border: 1px solid $dropdown-border;
-     @include selectize-border-radius ($border-radius-base);
-diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-index 5eca2f3d..c8502847 100644
---- a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-+++ b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-@@ -9,22 +9,23 @@ $selectize-font-family: inherit !default;
- $selectize-font-size: inherit !default;
- $selectize-line-height: $input-btn-line-height !default; //formerly line-height-computed
-
--$selectize-color-text: gray("800") !default; //$gray-800
-+$selectize-color-text: $input-color !default;
- $selectize-color-highlight: rgba(255,237,40,0.4) !default;
- $selectize-color-input: $input-bg !default;
- $selectize-color-input-full: $input-bg !default;
- $selectize-color-input-error: theme-color("danger") !default;
- $selectize-color-input-error-focus: darken($selectize-color-input-error, 10%) !default;
- $selectize-color-disabled: $input-bg !default;
--$selectize-color-item: #efefef !default;
--$selectize-color-item-border: #999 !default;
-+$selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
-+$selectize-color-item-border: $input-border-color !default;
- $selectize-color-item-active: $component-active-bg !default;
--$selectize-color-item-active-text: #fff !default;
-+$selectize-color-item-active-text: $component-active-color !default;
- $selectize-color-item-active-border: rgba(0,0,0,0) !default;
- $selectize-color-optgroup: $dropdown-bg !default;
- $selectize-color-optgroup-text: $dropdown-header-color !default;
- $selectize-color-optgroup-border: $dropdown-divider-bg !default;
- $selectize-color-dropdown: $dropdown-bg !default;
-+$selectize-color-dropdown-text: $dropdown-link-color !default;
- $selectize-color-dropdown-border-top: mix($input-border-color, $input-bg, 0.8) !default;
- $selectize-color-dropdown-item-active: $dropdown-link-hover-bg !default;
- $selectize-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
-@@ -67,6 +68,7 @@ $selectize-arrow-offset: calc(#{$selectize-padding-x} + 5px) !default;
-   margin: 2px 0 0 0;
-   z-index: $zindex-dropdown;
-   background: $selectize-color-dropdown;
-+  color: $selectize-color-dropdown-text;
-   border: 1px solid $dropdown-border-color; //$dropdown-fallback-border
-   @include selectize-border-radius($border-radius);
-   @include selectize-box-shadow(0 6px 12px rgba(0,0,0,.175));

tools/selectize-patches/002-fix-sass-compile-errors.patch

@@ -0,0 +1,39 @@
+diff --git a/inst/www/shared/selectize/scss/plugins/auto_position.scss b/inst/www/shared/selectize/scss/plugins/auto_position.scss
+index 89c5cf008..01bd45cf6 100644
+--- a/inst/www/shared/selectize/scss/plugins/auto_position.scss
++++ b/inst/www/shared/selectize/scss/plugins/auto_position.scss
+@@ -2,7 +2,7 @@
+   border-top: 1px solid $select-color-border;
+   border-bottom: 0 none;
+   border-radius: 3px 3px 0 0;
+-  box-shadow: 0 -6px 12px rgb(0 0 0 / 18%);
++  box-shadow: 0 -6px 12px rgba(var(--bs-body-color-rgb, 0,0,0), .18);
+ }
+ 
+ .#{selectize}-control.plugin-auto_position .#{selectize}-input.#{$selectize}-position-top.dropdown-active {
+diff --git a/inst/www/shared/selectize/scss/plugins/clear_button.scss b/inst/www/shared/selectize/scss/plugins/clear_button.scss
+index 4f0d1d815..566ffd281 100644
+--- a/inst/www/shared/selectize/scss/plugins/clear_button.scss
++++ b/inst/www/shared/selectize/scss/plugins/clear_button.scss
+@@ -7,7 +7,7 @@
+         width: 25px;
+         top: 0;
+         right: calc(#{$select-padding-x} - #{$select-padding-item-x});
+-        color: rgba(0, 0, 0);
++        color: var(--bs-body-color, black);
+         opacity: 0.4;
+         font-weight: bold;
+         border: none;
+diff --git a/inst/www/shared/selectize/scss/selectize.scss b/inst/www/shared/selectize/scss/selectize.scss
+index aec43bb43..30619ba9b 100644
+--- a/inst/www/shared/selectize/scss/selectize.scss
++++ b/inst/www/shared/selectize/scss/selectize.scss
+@@ -346,7 +346,7 @@ $select-spinner-border-color: $select-color-border;
+     position: absolute;
+     top: 50%;
+     right: $select-arrow-offset;
+-    margin-top: round(math.div(-1 * $select-arrow-size, 2));
++    margin-top: round(divide(-1 * $select-arrow-size, 2));
+     width: 0;
+     height: 0;
+     border-style: solid;

tools/selectize-patches/003-border-radius-mixin.patch

@@ -1,19 +0,0 @@
-diff --git a/inst/www/shared/selectize/scss/selectize.scss b/inst/www/shared/selectize/scss/selectize.scss
-index 240e3895..c20f529c 100644
---- a/inst/www/shared/selectize/scss/selectize.scss
-+++ b/inst/www/shared/selectize/scss/selectize.scss
-@@ -57,9 +57,11 @@ $selectize-caret-margin: 0 2px 0 0 !default;
- $selectize-caret-margin-rtl: 0 4px 0 -2px !default;
- 
- @mixin selectize-border-radius($radii){
--  -webkit-border-radius: $radii;
--  -moz-border-radius: $radii;
--  border-radius: $radii;
-+  @if mixin-exists("border-radius") {
-+    @include border-radius($radii)
-+  } @else {
-+    border-radius: $radii;
-+  }
- }
- @mixin selectize-unselectable(){
-   -webkit-user-select: none;

tools/selectize-patches/003-color-contrast-active-text.patch

@@ -0,0 +1,39 @@
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
+index 9f5ea2aea..cd4e21777 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
+@@ -13,7 +13,7 @@ $select-color-disabled: $input-bg;
+ $select-color-item: #efefef;
+ $select-color-item-border: rgba(0, 0, 0, 0);
+ $select-color-item-active: $component-active-bg;
+-$select-color-item-active-text: #fff;
++$select-color-item-active-text: color-contrast($select-color-item-active);
+ $select-color-item-active-border: rgba(0, 0, 0, 0);
+ $select-color-optgroup: $dropdown-bg;
+ $select-color-optgroup-text: $dropdown-header-color;
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
+index 6518010b6..b8c35f14b 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
+@@ -17,7 +17,7 @@ $select-color-disabled: $input-bg !default;
+ $select-color-item: #efefef !default;
+ $select-color-item-border: $border-color !default;
+ $select-color-item-active: $component-active-bg !default;
+-$select-color-item-active-text: #fff !default;
++$select-color-item-active-text: color-contrast($select-color-item-active) !default;
+ $select-color-item-active-border: rgba(0, 0, 0, 0) !default;
+ $select-color-optgroup: $dropdown-bg !default;
+ $select-color-optgroup-text: $dropdown-header-color !default;
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+index c2f09fffc..4d991532d 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+@@ -17,7 +17,7 @@ $select-color-disabled: $input-bg !default;
+ $select-color-item: #efefef !default;
+ $select-color-item-border: $border-color !default;
+ $select-color-item-active: $component-active-bg !default;
+-$select-color-item-active-text: #fff !default;
++$select-color-item-active-text: color-contrast($select-color-item-active) !default;
+ $select-color-item-active-border: rgba(0, 0, 0, 0) !default;
+ $select-color-optgroup: $dropdown-bg !default;
+ $select-color-optgroup-text: $dropdown-header-color !default;

tools/selectize-patches/004-better-color-contrast.patch

@@ -1,26 +0,0 @@
-diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-index 9f6c0398..2eb30361 100644
---- a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-+++ b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
-@@ -28,7 +28,7 @@ $selectize-color-disabled: $input-bg !default;
- $selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
- $selectize-color-item-border: rgba(black, 0) !default;
- $selectize-color-item-active: $component-active-bg !default;
--$selectize-color-item-active-text: $component-active-color !default;
-+$selectize-color-item-active-text: color-contrast($selectize-color-item-active) !default;
- $selectize-color-item-active-border: rgba(black, 0) !default;
- $selectize-color-optgroup: $dropdown-bg !default;
- $selectize-color-optgroup-text: $dropdown-header-color !default;
-diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-index 44dae201..689b38ef 100644
---- a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-+++ b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-@@ -19,7 +19,7 @@ $selectize-color-disabled: $input-bg !default;
- $selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;
- $selectize-color-item-border: $input-border-color !default;
- $selectize-color-item-active: $component-active-bg !default;
--$selectize-color-item-active-text: $component-active-color !default;
-+$selectize-color-item-active-text: color-contrast($selectize-color-item-active) !default;
- $selectize-color-item-active-border: rgba(0,0,0,0) !default;
- $selectize-color-optgroup: $dropdown-bg !default;
- $selectize-color-optgroup-text: $dropdown-header-color !default;

tools/selectize-patches/004-theming-friendly-defaults.patch

@@ -0,0 +1,26 @@
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
+index 7f847b39b..8bd94d42a 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap3.scss
+@@ -10,7 +10,7 @@ $select-color-input-full: $input-bg;
+ $select-color-input-error: $state-danger-text;
+ $select-color-input-error-focus: darken($select-color-input-error, 10%);
+ $select-color-disabled: $input-bg;
+-$select-color-item: #efefef;
++$select-color-item: RGBA($select-color-text, 0.1);
+ $select-color-item-border: rgba(0, 0, 0, 0);
+ $select-color-item-active: $component-active-bg;
+ $select-color-item-active-text: color-contrast($select-color-item-active);
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
+index a797a62da..624ab9138 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
+@@ -14,7 +14,7 @@ $select-color-input-error-focus: darken(
+   10%
+ ) !default;
+ $select-color-disabled: $input-bg !default;
+-$select-color-item: #efefef !default;
++$select-color-item: RGBA($select-color-text, 0.1) !default;
+ $select-color-item-border: $border-color !default;
+ $select-color-item-active: $component-active-bg !default;
+ $select-color-item-active-text: color-contrast($select-color-item-active) !default;

tools/selectize-patches/005-bs5-font-styling.patch

@@ -0,0 +1,14 @@
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+index 4d991532d..bf15610d8 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+@@ -1,7 +1,7 @@
+ 
+ $enable-shadows: true !default;
+-$select-font-family: inherit !default;
+-$select-font-size: inherit !default;
++$select-font-family: if($input-btn-font-family, $input-btn-font-family, inherit) !default;
++$select-font-size: $input-btn-font-size !default;
+ $select-line-height: $input-btn-line-height !default; //formerly line-height-computed
+ 
+ $select-color-text: $gray-800 !default; //$gray-800

tools/selectize-patches/005-bs5-support.patch

@@ -1,13 +0,0 @@
-diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-index 44dae201..03b4f491 100644
---- a/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-+++ b/inst/www/shared/selectize/scss/selectize.bootstrap4.scss
-@@ -13,7 +13,7 @@ $selectize-color-text: $input-color !default;
- $selectize-color-highlight: rgba(255,237,40,0.4) !default;
- $selectize-color-input: $input-bg !default;
- $selectize-color-input-full: $input-bg !default;
--$selectize-color-input-error: theme-color("danger") !default;
-+$selectize-color-input-error: $danger !default;
- $selectize-color-input-error-focus: darken($selectize-color-input-error, 10%) !default;
- $selectize-color-disabled: $input-bg !default;
- $selectize-color-item: mix($selectize-color-input, $selectize-color-text, 90%) !default;

tools/selectize-patches/006-bs5-dark-mode-support.patch

@@ -0,0 +1,112 @@
+diff --git a/inst/www/shared/selectize/scss/plugins/dropdown_header.scss b/inst/www/shared/selectize/scss/plugins/dropdown_header.scss
+index 90846cd12..c60d9f326 100644
+--- a/inst/www/shared/selectize/scss/plugins/dropdown_header.scss
++++ b/inst/www/shared/selectize/scss/plugins/dropdown_header.scss
+@@ -4,7 +4,7 @@
+     padding: ($select-padding-dropdown-item-y * 2)
+       $select-padding-dropdown-item-x;
+     border-bottom: 1px solid $select-color-border;
+-    background: mix($select-color-dropdown, $select-color-border, 85%);
++    background: RGBA($select-color-dropdown, 0.15);
+     border-radius: $select-border-radius $select-border-radius 0 0;
+   }
+   .#{$selectize}-dropdown-header-close {
+@@ -19,6 +19,6 @@
+     text-decoration: none;
+   }
+   .#{$selectize}-dropdown-header-close:hover {
+-    color: darken($select-color-text, 25%);
++    color: RGB($select-color-rgb);
+   }
+ }
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+index 4d991532d..39b27a81e 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+@@ -23,11 +23,7 @@ $select-color-optgroup: $dropdown-bg !default;
+ $select-color-optgroup-text: $dropdown-header-color !default;
+ $select-color-optgroup-border: $dropdown-divider-bg !default;
+ $select-color-dropdown: $dropdown-bg !default;
+-$select-color-dropdown-border-top: mix(
+-  $input-border-color,
+-  $input-bg,
+-  80%
+-) !default;
++$select-color-dropdown-border-top: rgba($input-border-color, 0.8) !default;
+ $select-color-dropdown-item-active: $dropdown-link-hover-bg !default;
+ $select-color-dropdown-item-active-text: $dropdown-link-hover-color !default;
+ $select-color-dropdown-item-create-active-text: $dropdown-link-hover-color !default;
+diff --git a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+index 44fff4ae4..8364d3123 100644
+--- a/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
++++ b/inst/www/shared/selectize/scss/selectize.bootstrap5.scss
+@@ -4,7 +4,8 @@ $select-font-family: if($input-btn-font-family, $input-btn-font-family, inherit) !default;
+ $select-font-size: $input-btn-font-size !default;
+ $select-line-height: $input-btn-line-height !default; //formerly line-height-computed
+ 
+-$select-color-text: $gray-800 !default; //$gray-800
++$select-color-rgb: var(--bs-emphasis-color-rgb, 0, 0, 0) !default;
++$select-color-text: RGBA($select-color-rgb, 0.83) !default;
+ $select-color-highlight: rgba(255, 237, 40, 0.4) !default;
+ $select-color-input: $input-bg !default;
+ $select-color-input-full: $input-bg !default;
+@@ -14,7 +15,7 @@ $select-color-input-error-focus: darken(
+   10%
+ ) !default;
+ $select-color-disabled: $input-bg !default;
+-$select-color-item: #efefef !default;
++$select-color-item: RGBA($select-color-rgb, 0.05) !default;
+ $select-color-item-border: $border-color !default;
+ $select-color-item-active: $component-active-bg !default;
+ $select-color-item-active-text: color-contrast($select-color-item-active) !default;
+diff --git a/inst/www/shared/selectize/scss/selectize.scss b/inst/www/shared/selectize/scss/selectize.scss
+index 321c8802b..53d09878b 100644
+--- a/inst/www/shared/selectize/scss/selectize.scss
++++ b/inst/www/shared/selectize/scss/selectize.scss
+@@ -7,7 +7,8 @@ $select-font-smoothing: inherit !default;
+ $select-font-size: 13px !default;
+ $select-line-height: 18px !default;
+ 
+-$select-color-text: #303030 !default;
++$select-color-rgb: 0,0,0 !default;
++$select-color-text: RGBA($select-color-rgb, 0.83) !default;
+ $select-color-border: #d0d0d0 !default;
+ $select-color-highlight: rgba(125, 168, 208, 0.2) !default;
+ $select-color-input: #fff !default;
+@@ -24,12 +25,7 @@ $select-color-dropdown-border: $select-color-border !default;
+ $select-color-dropdown-border-top: #f0f0f0 !default;
+ $select-color-dropdown-item-active: #f5fafd !default;
+ $select-color-dropdown-item-active-text: #495c68 !default;
+-$select-color-dropdown-item-create-text: rgba(
+-  red($select-color-text),
+-  green($select-color-text),
+-  blue($select-color-text),
+-  0.5
+-) !default;
++$select-color-dropdown-item-create-text: RGBA($select-color-rgb, 0.5) !default;
+ $select-color-dropdown-item-create-active-text: $select-color-dropdown-item-active-text !default;
+ $select-color-optgroup: $select-color-dropdown !default;
+ $select-color-optgroup-text: $select-color-text !default;
+@@ -161,19 +157,10 @@ $select-spinner-border-color: $select-color-border;
+   .#{$selectize}-control.multi &.disabled > div {
+     &,
+     &.active {
+-      color: lighten(
+-        desaturate($select-color-item-text, 100%),
+-        $select-lighten-disabled-item-text
+-      );
+-      background: lighten(
+-        desaturate($select-color-item, 100%),
+-        $select-lighten-disabled-item
+-      );
++      color: lighten(gray, $select-lighten-disabled-item-text);
++      background: lighten(gray, $select-lighten-disabled-item);
+       border: $select-width-item-border solid
+-        lighten(
+-          desaturate($select-color-item-border, 100%),
+-          $select-lighten-disabled-item-border
+-        );
++        lighten(gray, $select-lighten-disabled-item-border);
+     }
+   }
+   > input {

tools/updateSelectize.R

@@ -1,38 +1,59 @@
 #!/usr/bin/env Rscript
 library(rprojroot)
+library(withr)
 
-## -----------------------------------------------------------------
-## First, download the main selectize.js and css
-## -----------------------------------------------------------------
 
-version <- "0.12.4"
-types_version <- "0.12.34"
+if (!identical(getwd(), find_package_root_file())) {
+  stop("This script must be run from the top directory of the shiny package")
+}
 
-dest_dir <- find_package_root_file("inst/www/shared/selectize")
-tag <- paste0("v", version)
-dest_file <- file.path(tempdir(), paste0("selectize.js-", version, ".zip"))
-url <- sprintf("https://github.com/selectize/selectize.js/archive/%s.zip", tag)
+if (Sys.which("yarn") == "") {
+  stop("The yarn CLI must be installed and in your PATH")
+}
 
-download.file(url, dest_file)
-unzipped <- tempdir()
-unzip(dest_file, exdir = unzipped)
+system("yarn install")
 
-unlink(dest_dir, recursive = TRUE)
+node_dir <- find_package_root_file("node_modules/@selectize/selectize/dist")
+inst_dir <- find_package_root_file("inst/www/shared/selectize")
 
-dir.create(file.path(dest_dir, "js"), recursive = TRUE)
+unlink(inst_dir, recursive = TRUE)
+
+dir.create(file.path(inst_dir, "js"), recursive = TRUE)
 file.copy(
-  file.path(unzipped, paste0("selectize.js-", version), "dist", "js", "standalone", "selectize.min.js"),
-  file.path(dest_dir, "js"),
+  file.path(node_dir, "js", "selectize.min.js"),
+  file.path(inst_dir, "js"),
   overwrite = TRUE
 )
 
-dir.create(file.path(dest_dir, "css"), recursive = TRUE)
+dir.create(file.path(inst_dir, "css"), recursive = TRUE)
 file.copy(
-  file.path(unzipped, paste0("selectize.js-", version), "dist", "css", "selectize.bootstrap3.css"),
-  file.path(dest_dir, "css"),
+  file.path(node_dir, "css", "selectize.bootstrap3.css"),
+  file.path(inst_dir, "css"),
   overwrite = TRUE
 )
 
+dir.create(file.path(inst_dir, "scss"), recursive = TRUE)
+file.copy(
+  file.path(node_dir, "scss"),
+  inst_dir,
+  overwrite = TRUE,
+  recursive = TRUE
+)
+
+
+sanitize_scss <- function(f) {
+  txt <- readLines(f)
+  # Remove the unnecessary imports of Bootstrap from scss files
+  txt <- txt[!grepl('@import\\s+"lib/bootstrap', txt)]
+  writeLines(txt, f)
+}
+
+lapply(
+  dir(file.path(inst_dir, "scss"), full.names = TRUE, recursive = TRUE),
+  sanitize_scss
+)
+
+
 ## -----------------------------------------------------------------
 ## Second, download accessibility plugin
 ## -----------------------------------------------------------------
@@ -45,69 +66,13 @@ download.file(url, dest_file)
 unzipped <- tempdir()
 unzip(dest_file, exdir = unzipped)
 
-dir.create(file.path(dest_dir, "accessibility", "js"), recursive = TRUE)
+dir.create(file.path(inst_dir, "accessibility", "js"), recursive = TRUE)
 file.copy(
   file.path(unzipped, paste0("selectize-plugin-a11y-", ally_version), "selectize-plugin-a11y.js"),
-  file.path(dest_dir, "accessibility", "js"),
+  file.path(inst_dir, "accessibility", "js"),
   overwrite = TRUE
 )
 
-tmpdir <- tempdir()
-
-## -----------------------------------------------------------------
-## Third, download Bootstrap 4 SASS port of selectize less
-## This is using a specific sha because this hasn't been included in an official release
-## https://github.com/papakay/selectize-bootstrap-4-style/pull/19
-## -----------------------------------------------------------------
-
-bs4_sass_version <- "5013be4e97a14bef47bc8badcc78e6762815ef38"
-zip_src <- sprintf("https://github.com/papakay/selectize-bootstrap-4-style/archive/%s.zip", bs4_sass_version)
-zip_target <- file.path(tmpdir, "select-bs4.zip")
-download.file(zip_src, zip_target)
-unzip(zip_target, exdir = dirname(zip_target))
-target <- find_package_root_file("inst/www/shared/selectize/scss")
-unlink(target, recursive = TRUE)
-dir.create(target)
-file.rename(
-  file.path(tmpdir, sprintf("selectize-bootstrap-4-style-%s/src/selectize", bs4_sass_version)),
-  target
-)
-
-# Remove the unnecessary imports of Bootstrap
-scss_file <- find_package_root_file("inst/www/shared/selectize/scss/selectize.bootstrap4.scss")
-scss <- readLines(scss_file)
-scss <- scss[!grepl('@import\\s+"\\.\\./bootstrap', scss)]
-writeLines(scss, scss_file)
-
-# Support Bootstrap 5 as well
-# https://github.com/selectize/selectize.js/issues/1584
-writeLines(
-  c(
-    "$input-line-height-sm: $form-select-line-height !default;",
-    "@import 'selectize.bootstrap4';",
-    ".selectize-control{padding:0;}"
-  ),
-  file.path(target, "selectize.bootstrap5.scss")
-)
-
-## -----------------------------------------------------------------
-## Fourth, download Bootstrap 3 SASS port
-## https://github.com/herschel666/selectize-scss
-## Note that the base selectize.scss, as well as the plugins, are identical
-## to the BS4 port, so we only need the selectize.bootstrap3.scss file
-## -----------------------------------------------------------------
-
-bs3_sass_version <- "0.10.1"
-zip_src <- sprintf("https://github.com/herschel666/selectize-scss/archive/v%s.zip", bs3_sass_version)
-zip_target <- file.path(tmpdir, "select-bs3.zip")
-download.file(zip_src, zip_target)
-unzip(zip_target, exdir = dirname(zip_target))
-target <- find_package_root_file("inst/www/shared/selectize/scss/selectize.bootstrap3.scss")
-file.rename(
-  file.path(tmpdir, sprintf("selectize-scss-%s/src/selectize.bootstrap3.scss", bs3_sass_version)),
-  target
-)
-
 
 # =============================================================================
 # Apply patches
@@ -122,7 +87,7 @@ for (patch in list.files(patch_dir, full.names = TRUE)) {
   tryCatch(
     {
       message(sprintf("Applying %s", basename(patch)))
-      withr::with_dir(find_package_root_file(), system(sprintf("git apply %s", patch)))
+      with_dir(find_package_root_file(), system(sprintf("git apply %s --reject", patch)))
     },
     error = function(e) {
       quit(save = "no", status = 1)
@@ -133,27 +98,17 @@ for (patch in list.files(patch_dir, full.names = TRUE)) {
 # =============================================================================
 # Add versions to files
 # =============================================================================
+pkg_json <- jsonlite::fromJSON(file.path(node_dir, "../package.json"))
 writeLines(
   c(
     "# Generated by tools/updateSelectize.R; do not edit by hand",
-    sprintf('version_selectize <- "%s"', version)
+    sprintf('version_selectize <- "%s"', pkg_json$version)
   ),
-  rprojroot::find_package_root_file("R", "version_selectize.R")
+  find_package_root_file("R", "version_selectize.R")
 )
 
-# Update TypeScript installation
-withr::with_dir(
-  rprojroot::find_package_root_file(),
-  {
-    exit_code <- system(paste0("yarn add --dev selectize@", version))
-    if (exit_code != 0) stop("yarn could not install selectize")
-
-    exit_code <- system(paste0("yarn add @types/selectize@", types_version))
-    if (exit_code != 0) stop("yarn could not install @types/selectize")
-  }
-)
 
 # =============================================================================
 # Generate minified js
 # =============================================================================
-withr::with_dir(find_package_root_file("srcts"), system("yarn build"))
+with_dir(find_package_root_file("srcts"), system("yarn build"))

yarn.lock

@@ -1828,6 +1828,19 @@ __metadata:
   languageName: node
   linkType: hard
 
+"@selectize/selectize@https://github.com/selectize/selectize.js.git#e3f2e0b4aa251375bc21b5fcd8ca7d374a921f08":
+  version: 0.15.2
+  resolution: "@selectize/selectize@https://github.com/selectize/selectize.js.git#commit=e3f2e0b4aa251375bc21b5fcd8ca7d374a921f08"
+  peerDependencies:
+    jquery: ^1.7.0 || ^2 || ^3
+    jquery-ui: ^1.13.2
+  peerDependenciesMeta:
+    jquery-ui:
+      optional: true
+  checksum: ba260ba5804c16b1455ff79f9d00ce860e12ae36e29d7a5f702da6b384c9454497421b8e06fe683d10fac53e2dc6ec008da4fa129a153cbbfe5396e027eb4247
+  languageName: node
+  linkType: hard
+
 "@sinclair/typebox@npm:^0.25.16":
   version: 0.25.24
   resolution: "@sinclair/typebox@npm:0.25.24"
@@ -2184,6 +2197,7 @@ __metadata:
     "@babel/preset-typescript": ^7.13.0
     "@babel/runtime": ^7.14.0
     "@deanc/esbuild-plugin-postcss": ^1.0.2
+    "@selectize/selectize": "https://github.com/selectize/selectize.js.git#e3f2e0b4aa251375bc21b5fcd8ca7d374a921f08"
     "@testing-library/dom": ^7.31.0
     "@testing-library/jest-dom": ^5.12.0
     "@testing-library/user-event": ^13.1.9