Re-document

Split server-resource-paths.R from server.R
2026-01-10 23:48:01 -05:00 · 2020-09-24 13:43:30 -05:00 · 2020-09-24 13:41:43 -05:00 · 2020-09-24 13:40:38 -05:00 · 2020-09-24 13:37:37 -05:00 · 2020-09-24 13:36:24 -05:00
171 changed files with 6727 additions and 5030 deletions
--- a/27
+++ b/27
@@ -1,13 +1,18 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 1.5.0.9001
+Version: 1.5.0.9002
 Authors@R: c(
    person("Winston", "Chang", role = c("aut", "cre"), email = "winston@rstudio.com"),
    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"),
+    person("Barret", "Schloerke", role = "aut", email = "barret@rstudio.com"),
    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("Alan", "Dipert", role = "aut"),
+    person("Barbara", "Borges", role = "aut"),
    person(family = "RStudio", role = "cph"),
    person(family = "jQuery Foundation", role = "cph",
    comment = "jQuery library and jQuery UI library"),
@@ -43,10 +48,8 @@ Authors@R: c(
    comment = "Font-Awesome font"),
    person("Brian", "Reavis", role = c("ctb", "cph"),
    comment = "selectize.js library"),
-    person("Kristopher Michael", "Kowal", role = c("ctb", "cph"),
-    comment = "es5-shim library"),
-    person(family = "es5-shim contributors", role = c("ctb", "cph"),
-    comment = "es5-shim library"),
+    person("Salmen", "Bejaoui", role = c("ctb", "cph"),
+    comment = "selectize-plugin-a11y library"),
    person("Denis", "Ineshin", role = c("ctb", "cph"),
    comment = "ion.rangeSlider library"),
    person("Sami", "Samhuri", role = c("ctb", "cph"),
@@ -105,11 +108,15 @@ Suggests:
    future,
    dygraphs,
    ragg,
-    showtext
+    showtext,
+    sass,
+    bootstraplib (>= 0.1.0.9001)
+Remotes:
+    rstudio/sass,
+    rstudio/bootstraplib
 URL: http://shiny.rstudio.com
 BugReports: https://github.com/rstudio/shiny/issues
 Collate:
-    'app.R'
    'app_template.R'
    'bookmark-state-local.R'
    'stack.R'
@@ -121,7 +128,6 @@ Collate:
    'map.R'
    'utils.R'
    'bootstrap.R'
-    'cache-context.R'
    'cache-disk.R'
    'cache-memory.R'
    'cache-utils.R'
@@ -156,6 +162,7 @@ Collate:
    'insert-tab.R'
    'insert-ui.R'
    'jqueryui.R'
+    'knitr.R'
    'middleware-shiny.R'
    'middleware.R'
    'timer.R'
@@ -172,10 +179,13 @@ Collate:
    'render-plot.R'
    'render-table.R'
    'run-url.R'
+    'runapp.R'
    'serializers.R'
    'server-input-handlers.R'
+    'server-resource-paths.R'
    'server.R'
    'shiny-options.R'
+    'shinyapp.R'
    'shinyui.R'
    'shinywrappers.R'
    'showcase.R'
@@ -185,6 +195,7 @@ Collate:
    'test-server.R'
    'test.R'
    'update-input.R'
+    'viewer.R'
 RoxygenNote: 7.1.1
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
--- a/24
+++ b/24
@@ -12,7 +12,7 @@ these components are included below):
 - bootstrap-datepicker, https://github.com/eternicode/bootstrap-datepicker
 - Font Awesome, https://github.com/FortAwesome/Font-Awesome
 - selectize.js, https://github.com/selectize/selectize.js
- es5-shim, https://github.com/es-shims/es5-shim
+- selectize-plugin-a11y, https://github.com/SLMNBJ/selectize-plugin-a11y
 - ion.rangeSlider, https://github.com/IonDen/ion.rangeSlider
 - strftime for Javascript, https://github.com/samsonjs/strftime
 - DataTables, https://github.com/DataTables/DataTables
@@ -957,30 +957,18 @@ selectize.js
   limitations under the License.


-es5-shim License
+selectize-plugin-a11y License
 ----------------------------------------------------------------------

 The MIT License (MIT)

-Copyright (C) 2009-2014 Kristopher Michael Kowal and contributors
+Copyright 2018-present Salmen Bejaoui

-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files (the "Software"), to deal
-in the Software without restriction, including without limitation the rights
-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the Software is
-furnished to do so, subject to the following conditions:
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-THE SOFTWARE.
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.


 ion.rangeSlider License
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,28 +2,62 @@
 shiny 1.5.0.9000
 ================

+## Full changelog
+
 ### Accessibility

-* Added [bootstrap accessibility plugin](https://github.com/paypal/bootstrap-accessibility-plugin) under the hood to improve accessibility of shiny apps for screen-reader and keyboard users: the enhancements include better navigations for alert, tooltip, popover, modal dialog, dropdown, tab Panel, collapse, and carousel elements (#2911)
+* Added [bootstrap accessibility plugin](https://github.com/paypal/bootstrap-accessibility-plugin) under the hood to improve accessibility of shiny apps for screen-reader and keyboard users: the enhancements include better navigations for alert, tooltip, popover, modal dialog, dropdown, tab Panel, collapse, and carousel elements. (#2911)

-* Added appropriate labels to `icon()` element to provide screen-reader users with alternative descriptions for the `fontawesome` and `glyphicon`: `aria-label` is automatically applied based on the fontawesome name. For example, `icon("calendar")` will be announced as "calendar icon" to screen readers. "presentation" aria role has also been attached to `icon()` to remove redundant semantic info for screen readers (#2917)
+* Added appropriate labels to `icon()` element to provide screen-reader users with alternative descriptions for the `fontawesome` and `glyphicon`: `aria-label` is automatically applied based on the fontawesome name. For example, `icon("calendar")` will be announced as "calendar icon" to screen readers. "presentation" aria role has also been attached to `icon()` to remove redundant semantic info for screen readers. (#2917)

-* Closed #2929: Fixed keyboard accessibility for file picker button: keyboard users can now tab to focus on `fileInput()` widget (#2937)
+* Closed #2929: Fixed keyboard accessibility for file picker button: keyboard users can now tab to focus on `fileInput()` widget. (#2937)
+
+* Fixed #2951: screen readers correctly announce labels and date formats for `dateInput()` and `dateRangeInput()` widgets. (#2978)
+
+* Closed #2847: `selectInput()` is reasonably accessible for screen readers even when `selectize` option is set to TRUE. To improve `selectize.js` accessibility, we have added [selectize-plugin-a11y](https://github.com/SLMNBJ/selectize-plugin-a11y) by default. (#2993)
+
+* Closed #612: Added `alt` argument to `renderPlot()` and `renderCachedPlot()` to specify descriptive texts for `plotOutput()` objects, which is essential for screen readers. By default, alt text is set to the static text, "Plot object," but even dynamic text can be made with reactive function. (#3006, thanks @trafficonese and @leonawicz for the original PR and discussion via #2494)
+
+* Added semantic landmarks for `mainPanel()` and `sidebarPanel()` so that assistive technologies can recognize them as "main" and "complementary" region respectively. (#3009)

 ### Minor new features and improvements

 * When UI is specified as a function (e.g. `ui <- function(req) { ... }`), the response can now be an HTTP response as returned from the (newly exported) `httpResponse()` function. (#2970)

+* `selectInput` and `selectizeInput` now warn about performance implications when thousands of choices are used, and recommend [server-side selectize](https://shiny.rstudio.com/articles/selectize.html) be used instead. (#2959)
+
+* Closed #2980: `addResourcePath()` now allows paths with a leading `.` (thanks to @ColinFay). (#2981)
+
+* Closed #2972: `runExample()` now supports the `shiny.port` option (thanks to @ColinFay). (#2982)
+
+* Closed #2692: `downloadButton()` icon can now be changed via the `icon` parameter (thanks to @ColinFay). (#3010)
+
+* Closed #2984: improved documentation for `renderCachedPlot()` (thanks to @aalucaci). (#3016)
+
+* `reactiveValuesToList()` will save its `reactlog` label as `reactiveValuesToList(<ID>)` vs `as.list(<ID>)` (#3017)
+
+* Removed unused (and non-exported) `cacheContext` class.
+
+* `testServer()` can accept a single server function as input (#2965).
+
 ### Bug fixes

 * Fixed #2859: `renderPlot()` wasn't correctly setting `showtext::showtext_opts()`'s `dpi` setting with the correct resolution on high resolution displays; which means, if the font was rendered by showtext, font sizes would look smaller than they should on such displays. (#2941)

 * Fixed #1942: Calling `runApp("app.R")` no longer ignores options passed into `shinyApp()`. This makes it possible for Shiny apps to specify what port/host should be used by default. (#2969)

+* Fixed #3033: When a `DiskCache` was created with both `max_n` and `max_size`, too many items could get pruned when `prune()` was called. (#3034)
+
+* Fixed #2936: `dateYMD` was giving a warning when passed a vector of dates from `dateInput` which was greater than length 1. The length check was removed because it was not needed. (#3061)
+
+* Fixed #2266, #2688: `radioButtons` and `updateRadioButtons` now accept `character(0)` to indicate that none of the options should be selected (thanks to @ColinFay). (#3043)
+
 ### Library updates

 * Removed html5shiv and respond.js, which were used for IE 8 and IE 9 compatibility. (#2973)

+* Removed es5-shim library, which was internally used within `selectInput()` for ECMAScript 5 compatibility. (#2993)
+

 shiny 1.5.0
 ===========
--- a/R/bookmark-state.R
+++ b/R/bookmark-state.R
@@ -217,6 +217,22 @@ RestoreContext <- R6Class("RestoreContext",
      self$dir <- NULL
    },

+    # Completely replace the state
+    set = function(active = FALSE, initErrorMessage = NULL, input = list(), values = list(), dir = NULL) {
+      # Validate all inputs
+      stopifnot(is.logical(active))
+      stopifnot(is.null(initErrorMessage) || is.character(initErrorMessage))
+      stopifnot(is.list(input))
+      stopifnot(is.list(values))
+      stopifnot(is.null(dir) || is.character(dir))
+
+      self$active <- active
+      self$initErrorMessage <- initErrorMessage
+      self$input <- RestoreInputSet$new(input)
+      self$values <- list2env2(values, parent = emptyenv())
+      self$dir <- dir
+    },
+
    # This should be called before a restore context is popped off the stack.
    flushPending = function() {
      self$input$flushPending()
@@ -453,7 +469,7 @@ hasCurrentRestoreContext <- function() {
  domain <- getDefaultReactiveDomain()
  if (!is.null(domain) && !is.null(domain$restoreContext))
    return(TRUE)
-  
+
  return(FALSE)
 }

--- a/R/bootstrap-layout.R
+++ b/R/bootstrap-layout.R
@@ -355,6 +355,8 @@ sidebarLayout <- function(sidebarPanel,
 sidebarPanel <- function(..., width = 4) {
  div(class=paste0("col-sm-", width),
    tags$form(class="well",
+      # A11y semantic landmark for sidebar
+      role="complementary",
      ...
    )
  )
@@ -364,6 +366,8 @@ sidebarPanel <- function(..., width = 4) {
 #' @rdname sidebarLayout
 mainPanel <- function(..., width = 8) {
  div(class=paste0("col-sm-", width),
+    # A11y semantic landmark for main region
+    role="main",
    ...
  )
 }
--- a/R/bootstrap.R
+++ b/R/bootstrap.R
@@ -42,7 +42,7 @@ bootstrapPage <- function(..., title = NULL, responsive = NULL, theme = NULL) {
      # remainder of tags passed to the function
      list(...)
    ),
-    bootstrapLib()
+    bootstrapLib(theme)
  )
 }

@@ -51,16 +51,41 @@ bootstrapPage <- function(..., title = NULL, responsive = NULL, theme = NULL) {
 #' This function returns a set of web dependencies necessary for using Bootstrap
 #' components in a web page.
 #'
-#' It isn't necessary to call this function if you use
-#' [bootstrapPage()] or others which use `bootstrapPage`, such
-#' [basicPage()], [fluidPage()], [fillPage()],
-#' [pageWithSidebar()], and [navbarPage()], because they
-#' already include the Bootstrap web dependencies.
+#' It isn't necessary to call this function if you use [bootstrapPage()] or
+#' others which use `bootstrapPage`, such [basicPage()], [fluidPage()],
+#' [fillPage()], [pageWithSidebar()], and [navbarPage()], because they already
+#' include the Bootstrap web dependencies.
+#'
+#' See also [bootstraplib::bootstrap()] for a more fully featured alternative to
+#' accessing and customizing Bootstrap CSS.
 #'
 #' @inheritParams bootstrapPage
 #' @export
+#' @keywords internal
 bootstrapLib <- function(theme = NULL) {
-  htmlDependency("bootstrap", "3.4.1",
+  # Eventually this should be deprecated in favor of bootstraplib::bootstrap()
+  #shinyDeprecated("bootstraplib::bootstrap()", old = "shiny::bootstrapLib()")
+  if (!useBsTheme()) {
+    return(bootstrapDependency(theme))
+  }
+
+  if (!is.null(theme)) {
+    warning(
+      "The `theme` argument in `fluidPage()`, `bootstrapPage()`, etc. is not compatible ",
+      "with bootstraplib theming, so the bootstrap theme is being ignored in favor of ",
+      "theme='", theme, "'. To instead use the bootstraplib theme, remove the ",
+      "`theme` argument and use the bootstraplib equivalent (if you want a shinytheme, ",
+      "provide the theme name to bs_theme_new()'s `bootswatch` argument)."
+    )
+    return(bootstrapDependency(theme))
+  }
+
+  bootstraplib::bootstrap()
+}
+
+bootstrapDependency <- function(theme) {
+  htmlDependency(
+    "bootstrap", "3.4.1",
    c(
      href = "shared/bootstrap",
      file = system.file("www/shared/bootstrap", package = "shiny")
@@ -70,8 +95,8 @@ bootstrapLib <- function(theme = NULL) {
      # Safely adding accessibility plugin for screen readers and keyboard users; no break for sighted aspects (see https://github.com/paypal/bootstrap-accessibility-plugin)
      "accessibility/js/bootstrap-accessibility.min.js"
    ),
-    stylesheet = if (is.null(theme)) c(
-      "css/bootstrap.min.css",
+    stylesheet = c(
+      theme %OR% "css/bootstrap.min.css",
      # Safely adding accessibility plugin for screen readers and keyboard users; no break for sighted aspects (see https://github.com/paypal/bootstrap-accessibility-plugin)
      "accessibility/css/bootstrap-accessibility.css"
    ),
@@ -79,6 +104,32 @@ bootstrapLib <- function(theme = NULL) {
  )
 }

+useBsTheme <- function() {
+  if (!isTRUE(getShinyOption("bootstraplib"))) {
+    return(FALSE)
+  }
+  if (!is_available("bootstraplib", "0.1.0.9001")) {
+    stop("Shiny's bootstraplib option requires version 0.1.0.9001 of the bootstraplib package.", call. = FALSE)
+  }
+  if (is.null(bootstraplib::bs_theme_get())) {
+    stop("Shiny's bootstraplib option requires a bootstraplib theme to be active. Initialize one with `bootstraplib::bs_theme_new()`.", call. = FALSE)
+  }
+  TRUE
+}
+
+# Reusable function for input widgets to compile their Sass against a bootstraplib theme
+bootstrapSass <- function(sassInput, basename, dirname = "shiny-sass-",
+                          write_attachments = FALSE, ...) {
+  bootstraplib::bootstrap_sass(
+    sassInput, ...,
+    output = sass::output_template(basename = basename, dirname = dirname),
+    options = sass::sass_options(output_style = "compressed"),
+    write_attachments = write_attachments,
+    cache_key_extra = utils::packageVersion("shiny")
+  )
+}
+
+
 #' @rdname bootstrapPage
 #' @export
 basicPage <- function(...) {
@@ -1312,6 +1363,7 @@ uiOutput <- htmlOutput
 #'   is assigned to.
 #' @param label The label that should appear on the button.
 #' @param class Additional CSS classes to apply to the tag, if any.
+#' @param icon An [icon()] to appear on the button. Default is `icon("download")`.
 #' @param ... Other arguments to pass to the container tag function.
 #'
 #' @examples
@@ -1342,13 +1394,15 @@ uiOutput <- htmlOutput
 #' @export
 downloadButton <- function(outputId,
                           label="Download",
-                           class=NULL, ...) {
+                           class=NULL,
+                           ...,
+                           icon = shiny::icon("download")) {
  aTag <- tags$a(id=outputId,
                 class=paste('btn btn-default shiny-download-link', class),
                 href='',
                 target='_blank',
                 download=NA,
-                 icon("download"),
+                 validateIcon(icon),
                 label, ...)
 }

--- a/R/cache-context.R
+++ b/R/cache-context.R
@@ -1,77 +0,0 @@
-# A context object for tracking a cache that needs to be dirtied when a set of
-# files changes on disk. Each time the cache is dirtied, the set of files is
-# cleared. Therefore, the set of files needs to be re-built each time the cached
-# code executes. This approach allows for dynamic dependency graphs.
-CacheContext <- R6Class(
-  'CacheContext',
-  portable = FALSE,
-  class = FALSE,
-  public = list(
-    .dirty = TRUE,
-    # List of functions that return TRUE if dirty
-    .tests = list(),
-
-    addDependencyFile = function(file) {
-      if (.dirty)
-        return()
-
-      file <- normalizePath(file)
-
-      mtime <- file.info(file)$mtime
-      .tests <<- c(.tests, function() {
-        newMtime <- try(file.info(file)$mtime, silent=TRUE)
-        if (inherits(newMtime, 'try-error'))
-          return(TRUE)
-        return(!identical(mtime, newMtime))
-      })
-      invisible()
-    },
-    forceDirty = function() {
-      .dirty <<- TRUE
-      .tests <<- list()
-      invisible()
-    },
-    isDirty = function() {
-      if (.dirty)
-        return(TRUE)
-
-      for (test in .tests) {
-        if (test()) {
-          forceDirty()
-          return(TRUE)
-        }
-      }
-
-      return(FALSE)
-    },
-    reset = function() {
-      .dirty <<- FALSE
-      .tests <<- list()
-    },
-    with = function(func) {
-      oldCC <- .currentCacheContext$cc
-      .currentCacheContext$cc <- self
-      on.exit(.currentCacheContext$cc <- oldCC)
-
-      return(func())
-    }
-  )
-)
-
-.currentCacheContext <- new.env()
-
-# Indicates to Shiny that the given file path is part of the dependency graph
-# for whatever is currently executing (so far, only ui.R). By default, ui.R only
-# gets re-executed when it is detected to have changed; this function allows the
-# caller to indicate that it should also re-execute if the given file changes.
-#
-# If NULL or NA is given as the argument, then ui.R will re-execute next time.
-dependsOnFile <- function(filepath) {
-  if (is.null(.currentCacheContext$cc))
-    return()
-
-  if (is.null(filepath) || is.na(filepath))
-    .currentCacheContext$cc$forceDirty()
-  else
-    .currentCacheContext$cc$addDependencyFile(filepath)
-}
--- a/R/cache-disk.R
+++ b/R/cache-disk.R
@@ -130,8 +130,8 @@
 #' if an object is in the cache, and then call `get(key)`, the object may
 #' be removed from the cache in between those two calls, and `get(key)`
 #' will throw an error. Instead of calling the two functions, it is better to
-#' simply call `get(key)`, and use `tryCatch()` to handle the error
-#' that is thrown if the object is not in the cache. This effectively tests for
+#' simply call `get(key)`, and check that the returned object is not a
+#' `key_missing()` object, using `is.key_missing()`. This effectively tests for
 #' existence and gets the object in one operation.
 #'
 #' It is also possible for one processes to prune objects at the same time that
@@ -387,7 +387,7 @@ DiskCache <- R6Class("DiskCache",
      # is because it is expensive to find the size of the serialized object
      # before adding it.

-      private$log(paste0('prune'))
+      private$log('prune')
      self$is_destroyed(throw = TRUE)

      current_time <- Sys.time()
@@ -407,7 +407,11 @@ DiskCache <- R6Class("DiskCache",
        rm_idx <- timediff > private$max_age
        if (any(rm_idx)) {
          private$log(paste0("prune max_age: Removing ", paste(info$name[rm_idx], collapse = ", ")))
-          file.remove(info$name[rm_idx])
+          rm_success <- file.remove(info$name[rm_idx])
+          # This maps rm_success back into the TRUEs in the rm_idx vector.
+          # If (for example) rm_idx is c(F,T,F,T,T) and rm_success is c(T,F,T),
+          # then this line modifies rm_idx to be c(F,T,F,F,T).
+          rm_idx[rm_idx] <- rm_success
          info <- info[!rm_idx, ]
        }
      }
@@ -428,7 +432,8 @@ DiskCache <- R6Class("DiskCache",
        rm_idx <- seq_len(nrow(info)) > private$max_n
        private$log(paste0("prune max_n: Removing ", paste(info$name[rm_idx], collapse = ", ")))
        rm_success <- file.remove(info$name[rm_idx])
-        info <- info[!rm_success, ]
+        rm_idx[rm_idx] <- rm_success
+        info <- info[!rm_idx, ]
      }

      # 3. Remove files if cache is too large.
@@ -438,7 +443,8 @@ DiskCache <- R6Class("DiskCache",
        rm_idx <- cum_size > private$max_size
        private$log(paste0("prune max_size: Removing ", paste(info$name[rm_idx], collapse = ", ")))
        rm_success <- file.remove(info$name[rm_idx])
-        info <- info[!rm_success, ]
+        rm_idx[rm_idx] <- rm_success
+        info <- info[!rm_idx, ]
      }

      private$prune_last_time <- as.numeric(current_time)
@@ -555,7 +561,7 @@ DiskCache <- R6Class("DiskCache",
      if (is.null(private$logfile)) return()

      text <- paste0(format(Sys.time(), "[%Y-%m-%d %H:%M:%OS3] DiskCache "), text)
-      writeLines(text, private$logfile)
+      cat(text, sep = "\n", file = private$logfile, append = TRUE)
    }
  )
 )
--- a/R/cache-memory.R
+++ b/R/cache-memory.R
@@ -359,7 +359,7 @@ MemoryCache <- R6Class("MemoryCache",
      if (is.null(private$logfile)) return()

      text <- paste0(format(Sys.time(), "[%Y-%m-%d %H:%M:%OS3] MemoryCache "), text)
-      writeLines(text, private$logfile)
+      cat(text, sep = "\n", file = private$logfile, append = TRUE)
    }
  )
 )
--- a/R/graph.R
+++ b/R/graph.R
@@ -179,10 +179,10 @@ RLog <- R6Class(
      paste0("names(", reactId, ")")
    },
    asListIdStr = function(reactId) {
-      paste0("as.list(", reactId, ")")
+      paste0("reactiveValuesToList(", reactId, ")")
    },
    asListAllIdStr = function(reactId) {
-      paste0("as.list(", reactId, ", all.names = TRUE)")
+      paste0("reactiveValuesToList(", reactId, ", all.names = TRUE)")
    },
    keyIdStr = function(reactId, key) {
      paste0(reactId, "$", key)
--- a/R/image-interact-opts.R
+++ b/R/image-interact-opts.R
@@ -1,15 +1,26 @@
-#' Create an object representing click options
+#' Control interactive plot point events
 #'
-#' This generates an object representing click options, to be passed as the
-#' `click` argument of [imageOutput()] or
-#' [plotOutput()].
+#' These functions give control over the `click`, `dblClick` and
+#' `hover` events generated by [imageOutput()] and [plotOutput()].
 #'
 #' @param id Input value name. For example, if the value is `"plot_click"`,
-#'   then the click coordinates will be available as `input$plot_click`.
-#' @param clip Should the click area be clipped to the plotting area? If FALSE,
-#'   then the server will receive click events even when the mouse is outside
-#'   the plotting area, as long as it is still inside the image.
+#'   then the event data will be available as `input$plot_click`.
+#' @param clip Should the click area be clipped to the plotting area? If
+#'   `FALSE`, then the server will receive click events even when the mouse is
+#'   outside the plotting area, as long as it is still inside the image.
+#' @param delay For `dblClickOpts()`: the maximum delay (in ms) between a
+#'   pair clicks for them to be counted as a double-click.
+#'
+#'   For `hoverOpts()`: how long to delay (in ms) when debouncing or throttling
+#'   before sending the mouse location to the server.
+#' @param delayType The type of algorithm for limiting the number of hover
+#'   events. Use `"throttle"` to limit the number of hover events to one
+#'   every `delay` milliseconds. Use `"debounce"` to suspend events
+#'   while the cursor is moving, and wait until the cursor has been at rest for
+#'   `delay` milliseconds before sending an event.
+#' @seealso [brushOpts()] for brushing events.
 #' @export
+#' @keywords internal
 clickOpts <- function(id, clip = TRUE) {
  if (is.null(id))
    stop("id must not be NULL")
@@ -21,21 +32,8 @@ clickOpts <- function(id, clip = TRUE) {
 }


-#' Create an object representing double-click options
-#'
-#' This generates an object representing dobule-click options, to be passed as
-#' the `dblclick` argument of [imageOutput()] or
-#' [plotOutput()].
-#'
-#' @param id Input value name. For example, if the value is
-#'   `"plot_dblclick"`, then the click coordinates will be available as
-#'   `input$plot_dblclick`.
-#' @param clip Should the click area be clipped to the plotting area? If FALSE,
-#'   then the server will receive double-click events even when the mouse is
-#'   outside the plotting area, as long as it is still inside the image.
-#' @param delay Maximum delay (in ms) between a pair clicks for them to be
-#'   counted as a double-click.
 #' @export
+#' @rdname clickOpts
 dblclickOpts <- function(id, clip = TRUE, delay = 400) {
  if (is.null(id))
    stop("id must not be NULL")
@@ -47,28 +45,11 @@ dblclickOpts <- function(id, clip = TRUE, delay = 400) {
  )
 }

-#' Create an object representing hover options
-#'
-#' This generates an object representing hovering options, to be passed as the
-#' `hover` argument of [imageOutput()] or
-#' [plotOutput()].
-#'
-#' @param id Input value name. For example, if the value is `"plot_hover"`,
-#'   then the hover coordinates will be available as `input$plot_hover`.
-#' @param delay How long to delay (in milliseconds) when debouncing or
-#'   throttling, before sending the mouse location to the server.
-#' @param delayType The type of algorithm for limiting the number of hover
-#'   events. Use `"throttle"` to limit the number of hover events to one
-#'   every `delay` milliseconds. Use `"debounce"` to suspend events
-#'   while the cursor is moving, and wait until the cursor has been at rest for
-#'   `delay` milliseconds before sending an event.
-#' @param clip Should the hover area be clipped to the plotting area? If FALSE,
-#'   then the server will receive hover events even when the mouse is outside
-#'   the plotting area, as long as it is still inside the image.
 #' @param nullOutside If `TRUE` (the default), the value will be set to
 #'   `NULL` when the mouse exits the plotting area. If `FALSE`, the
 #'   value will stop changing when the cursor exits the plotting area.
 #' @export
+#' @rdname clickOpts
 hoverOpts <- function(id, delay = 300,
                      delayType = c("debounce", "throttle"), clip = TRUE,
                      nullOutside = TRUE) {
@@ -116,6 +97,7 @@ hoverOpts <- function(id, delay = 300,
 #'   `FALSE`, is useful if you want to update the plot while keeping the
 #'   brush. Using `TRUE` is useful if you want to clear the brush whenever
 #'   the plot is updated.
+#' @seealso [clickOpts()] for clicking events.
 #' @export
 brushOpts <- function(id, fill = "#9cf", stroke = "#036",
                      opacity = 0.25, delay = 300,
--- a/R/input-date.R
+++ b/R/input-date.R
@@ -110,6 +110,10 @@ dateInput <- function(inputId, label, value = NULL, min = NULL, max = NULL,
    shinyInputLabel(inputId, label),
    tags$input(type = "text",
               class = "form-control",
+               # `aria-labelledby` attribute is required for accessibility to avoid doubled labels (#2951).
+               `aria-labelledby` = paste0(inputId, "-label"),
+               # title attribute is announced for screen readers for date format.
+               title = paste("Date format:", format),
               `data-date-language` = language,
               `data-date-week-start` = weekstart,
               `data-date-format` = format,
@@ -124,19 +128,41 @@ dateInput <- function(inputId, label, value = NULL, min = NULL, max = NULL,
               `data-date-days-of-week-disabled` =
                   jsonlite::toJSON(daysofweekdisabled, null = 'null')
    ),
-    datePickerDependency
+    datePickerDependencies()
  )
 }

-datePickerDependency <- htmlDependency(
-  "bootstrap-datepicker", "1.6.4", c(href = "shared/datepicker"),
-  script = "js/bootstrap-datepicker.min.js",
-  stylesheet = "css/bootstrap-datepicker3.min.css",
-  # Need to enable noConflict mode. See #1346.
-  head = "<script>
-(function() {
-  var datepicker = $.fn.datepicker.noConflict();
-  $.fn.bsDatepicker = datepicker;
-})();
-</script>"
-)
+datePickerDependencies <- function() {
+  cssFile <- datePickerCssFile()
+  version <- "1.9.0"
+
+  list(
+    htmlDependency(
+      name = "bootstrap-datepicker-css",
+      version = version,
+      src = cssFile$src,
+      stylesheet = cssFile$stylesheet
+    ),
+    htmlDependency(
+      name = "bootstrap-datepicker-js",
+      version = version,
+      src = c(href = "shared/datepicker"),
+      script = "js/bootstrap-datepicker.min.js",
+      # Need to enable noConflict mode. See #1346.
+      head = "<script>(function() {
+        var datepicker = $.fn.datepicker.noConflict();
+        $.fn.bsDatepicker = datepicker;
+      })();
+     </script>"
+    )
+  )
+}
+
+datePickerCssFile <- function() {
+  if (!useBsTheme()) {
+    return(list(src = c(href = "shared/datepicker"), stylesheet = "css/bootstrap-datepicker3.min.css"))
+  }
+  scss <- system.file(package = "shiny", "www", "shared", "datepicker", "scss", "build3.scss")
+  outFile <- bootstrapSass(sass::sass_file(scss), basename = "bootstrap-datepicker-")
+  list(src = c(file = dirname(outFile)), stylesheet = basename(outFile))
+}
--- a/R/input-daterange.R
+++ b/R/input-daterange.R
@@ -100,6 +100,10 @@ dateRangeInput <- function(inputId, label, start = NULL, end = NULL,
        tags$input(
          class = "form-control",
          type = "text",
+          # `aria-labelledby` attribute is required for accessibility to avoid doubled labels (#2951).
+          `aria-labelledby` = paste0(inputId, "-label"),
+          # title attribute is announced for screen readers for date format.
+          title = paste("Date format:", format),
          `data-date-language` = language,
          `data-date-week-start` = weekstart,
          `data-date-format` = format,
@@ -118,6 +122,10 @@ dateRangeInput <- function(inputId, label, start = NULL, end = NULL,
        tags$input(
          class = "form-control",
          type = "text",
+          # `aria-labelledby` attribute is required for accessibility to avoid doubled labels (#2951).
+          `aria-labelledby` = paste0(inputId, "-label"),
+          # title attribute is announced for screen readers for date format.
+          title = paste("Date format:", format),
          `data-date-language` = language,
          `data-date-week-start` = weekstart,
          `data-date-format` = format,
@@ -129,6 +137,6 @@ dateRangeInput <- function(inputId, label, start = NULL, end = NULL,
        )
      )
    ),
-    datePickerDependency
+    datePickerDependencies()
  )
 }
--- a/R/input-radiobuttons.R
+++ b/R/input-radiobuttons.R
@@ -11,22 +11,22 @@
 #' @inheritParams textInput
 #' @param choices List of values to select from (if elements of the list are
 #'   named then that name rather than the value is displayed to the user). If
-#'   this argument is provided, then `choiceNames` and `choiceValues`
-#'   must not be provided, and vice-versa. The values should be strings; other
-#'   types (such as logicals and numbers) will be coerced to strings.
-#' @param selected The initially selected value (if not specified then defaults
-#'   to the first value)
+#'   this argument is provided, then `choiceNames` and `choiceValues` must not
+#'   be provided, and vice-versa. The values should be strings; other types
+#'   (such as logicals and numbers) will be coerced to strings.
+#' @param selected The initially selected value. If not specified, then it
+#'   defaults to the first item in `choices`. To start with no items selected,
+#'   use `character(0)`.
 #' @param inline If `TRUE`, render the choices inline (i.e. horizontally)
 #' @return A set of radio buttons that can be added to a UI definition.
 #' @param choiceNames,choiceValues List of names and values, respectively, that
 #'   are displayed to the user in the app and correspond to the each choice (for
-#'   this reason, `choiceNames` and `choiceValues` must have the same
-#'   length). If either of these arguments is provided, then the other
-#'   *must* be provided and `choices` *must not* be provided. The
-#'   advantage of using both of these over a named list for `choices` is
-#'   that `choiceNames` allows any type of UI object to be passed through
-#'   (tag objects, icons, HTML code, ...), instead of just simple text. See
-#'   Examples.
+#'   this reason, `choiceNames` and `choiceValues` must have the same length).
+#'   If either of these arguments is provided, then the other *must* be provided
+#'   and `choices` *must not* be provided. The advantage of using both of these
+#'   over a named list for `choices` is that `choiceNames` allows any type of UI
+#'   object to be passed through (tag objects, icons, HTML code, ...), instead
+#'   of just simple text. See Examples.
 #'
 #' @family input elements
 #' @seealso [updateRadioButtons()]
@@ -82,7 +82,8 @@
 #' }
 #'
 #' @section Server value:
-#' A character string containing the value of the selected button.
+#'
+#'   A character string containing the value of the selected button.
 #'
 #' @export
 radioButtons <- function(inputId, label, choices = NULL, selected = NULL,
--- a/R/input-select.R
+++ b/R/input-select.R
@@ -12,6 +12,14 @@
 #' name will be treated as a placeholder prompt. For example:
 #' `selectInput("letter", "Letter", c("Choose one" = "", LETTERS))`
 #'
+#' **Performance note:** `selectInput()` and `selectizeInput()` can slow down
+#' significantly when thousands of choices are used; with legacy browsers like
+#' Internet Explorer, the user interface may hang for many seconds. For large
+#' numbers of choices, Shiny offers a "server-side selectize" option that
+#' massively improves performance and efficiency; see
+#' [this selectize article](https://shiny.rstudio.com/articles/selectize.html)
+#' on the Shiny Dev Center for details.
+#'
 #' @inheritParams textInput
 #' @param choices List of values to select from. If elements of the list are
 #'   named, then that name --- rather than the value --- is displayed to the
@@ -100,7 +108,7 @@ selectInput <- function(inputId, label, choices, selected = NULL,
    id = inputId,
    class = if (!selectize) "form-control",
    size = size,
-    selectOptions(choices, selected)
+    selectOptions(choices, selected, inputId, selectize)
  )
  if (multiple)
    selectTag$attribs$multiple <- "multiple"
@@ -125,16 +133,22 @@ firstChoice <- function(choices) {
 }

 # Create tags for each of the options; use <optgroup> if necessary.
-# This returns a HTML string instead of tags, because of the 'selected'
-# attribute.
-selectOptions <- function(choices, selected = NULL) {
+# This returns a HTML string instead of tags for performance reasons.
+selectOptions <- function(choices, selected = NULL, inputId, perfWarning = FALSE) {
+  if (length(choices) >= 1000) {
+    warning("The select input \"", inputId, "\" contains a large number of ",
+      "options; consider using server-side selectize for massively improved ",
+      "performance. See the Details section of the ?selectizeInput help topic.",
+      call. = FALSE)
+  }
+
  html <- mapply(choices, names(choices), FUN = function(choice, label) {
    if (is.list(choice)) {
      # If sub-list, create an optgroup and recurse into the sublist
      sprintf(
        '<optgroup label="%s">\n%s\n</optgroup>',
        htmlEscape(label, TRUE),
-        selectOptions(choice, selected)
+        selectOptions(choice, selected, inputId, perfWarning)
      )

    } else {
@@ -183,18 +197,14 @@ selectizeInput <- function(inputId, ..., options = NULL, width = NULL) {

 # given a select input and its id, selectize it
 selectizeIt <- function(inputId, select, options, nonempty = FALSE) {
+  # Make sure accessibility plugin is included
+  if (!('selectize-plugin-a11y' %in% options$plugins)) {
+    options$plugins <- c(options$plugins, list('selectize-plugin-a11y'))
+  }
+
  res <- checkAsIs(options)

-  selectizeDep <- htmlDependency(
-    "selectize", "0.11.2", c(href = "shared/selectize"),
-    stylesheet = "css/selectize.bootstrap3.css",
-    head = format(tagList(
-      HTML('<!--[if lt IE 9]>'),
-      tags$script(src = 'shared/selectize/js/es5-shim.min.js'),
-      HTML('<![endif]-->'),
-      tags$script(src = 'shared/selectize/js/selectize.min.js')
-    ))
-  )
+  selectizeDep <- selectizeDependency()

  if ('drag_drop' %in% options$plugins) {
    selectizeDep <- list(selectizeDep, htmlDependency(
@@ -218,10 +228,35 @@ selectizeIt <- function(inputId, select, options, nonempty = FALSE) {
 }


+selectizeDependency <- function() {
+  cssFile <- selectizeCSSFile()
+  htmlDependency(
+    "selectize", "0.12.4",
+    src = cssFile$src,
+    stylesheet = cssFile$stylesheet,
+    head = format(tagList(
+      tags$script(src = 'shared/selectize/js/selectize.min.js'),
+      # Accessibility plugin for screen readers (https://github.com/SLMNBJ/selectize-plugin-a11y):
+      tags$script(src = 'shared/selectize/accessibility/js/selectize-plugin-a11y.min.js')
+    ))
+  )
+}

-
-
-
+selectizeCSSFile <- function() {
+  if (!useBsTheme()) {
+    return(list(src = c(href = "shared/selectize"), stylesheet = "css/selectize.bootstrap3.css"))
+  }
+  scss <- system.file(
+    package = "shiny", "www", "shared", "selectize", "scss",
+    if ("3" %in% bootstraplib::theme_version()) {
+      "selectize.bootstrap3.scss"
+    } else {
+      "selectize.bootstrap4.scss"
+    }
+  )
+  outFile <- bootstrapSass(sass::sass_file(scss), basename = "selectize")
+  list(src = c(file = dirname(outFile)), stylesheet = basename(outFile))
+}


 #' Select variables from a data frame
--- a/R/input-slider.R
+++ b/R/input-slider.R
@@ -79,8 +79,7 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
                        round = FALSE, format = NULL, locale = NULL,
                        ticks = TRUE, animate = FALSE, width = NULL, sep = ",",
                        pre = NULL, post = NULL, timeFormat = NULL,
-                        timezone = NULL, dragRange = TRUE)
-{
+                        timezone = NULL, dragRange = TRUE) {
  if (!missing(format)) {
    shinyDeprecated(msg = "The `format` argument to sliderInput is deprecated. Use `sep`, `pre`, and `post` instead.",
                    version = "0.10.2.2")
@@ -144,6 +143,7 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
  sliderProps <- dropNulls(list(
    class = "js-range-slider",
    id = inputId,
+    `data-skin` = "shiny",
    `data-type` = if (length(value) > 1) "double",
    `data-min` = formatNoSci(min),
    `data-max` = formatNoSci(max),
@@ -205,20 +205,47 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
    )
  }

-  dep <- list(
-    htmlDependency("ionrangeslider", "2.1.6", c(href="shared/ionrangeslider"),
-      script = "js/ion.rangeSlider.min.js",
-      # ion.rangeSlider also needs normalize.css, which is already included in
-      # Bootstrap.
-      stylesheet = c("css/ion.rangeSlider.css",
-                     "css/ion.rangeSlider.skinShiny.css")
+  attachDependencies(sliderTag, ionRangeSliderDependencies())
+}
+
+ionRangeSliderDependencies <- function() {
+  cssFile <- ionRangeSliderCSSFile()
+  version <- "2.3.1"
+  list(
+    # ion.rangeSlider also needs normalize.css, which is already included in Bootstrap.
+    htmlDependency(
+      "ionrangeslider-css", version,
+      src = cssFile$src,
+      stylesheet = cssFile$stylesheet
    ),
-    htmlDependency("strftime", "0.9.2", c(href="shared/strftime"),
+    htmlDependency(
+      "ionrangeslider-javascript", version,
+      src = c(href = "shared/ionrangeslider"),
+      script = "js/ion.rangeSlider.min.js"
+    ),
+    htmlDependency(
+      "strftime", "0.9.2",
+      src = c(href = "shared/strftime"),
      script = "strftime-min.js"
    )
  )
+}

-  attachDependencies(sliderTag, dep)
+ionRangeSliderCSSFile <- function() {
+  if (!useBsTheme()) {
+    return(list(stylesheet = "css/ion.rangeSlider.css", src = c(href = "shared/ionrangeslider")))
+  }
+  sassInput <- list(
+    list(
+      bg = "$input-bg", fg = "$input-color", accent = "$component-active-bg",
+      `font-family` = "$font-family-base"
+    ),
+    sass::sass_file(
+      system.file(package = "shiny", "www", "shared", "ionrangeslider", "scss", "shiny.scss")
+    )
+  )
+  outFile <- bootstrapSass(sassInput, basename = "ionRangeSlider")
+  list(stylesheet = basename(outFile), src = c(file = dirname(outFile)))
 }

 hasDecimals <- function(value) {
@@ -226,7 +253,6 @@ hasDecimals <- function(value) {
  return (!identical(value, truncatedValue))
 }

-
 # If step is NULL, use heuristic to set the step size.
 findStepSize <- function(min, max, step) {
  if (!is.null(step)) return(step)
--- a/R/input-utils.R
+++ b/R/input-utils.R
@@ -3,6 +3,8 @@ shinyInputLabel <- function(inputId, label = NULL) {
    label,
    class = "control-label",
    class = if (is.null(label)) "shiny-label-null",
+    # `id` attribute is required for `aria-labelledby` used by screen readers:
+    id = paste0(inputId, "-label"),
    `for` = inputId
  )
 }
--- a/R/knitr.R
+++ b/R/knitr.R
@@ -0,0 +1,80 @@
+#' Knitr S3 methods
+#'
+#' These S3 methods are necessary to help Shiny applications and UI chunks embed
+#' themselves in knitr/rmarkdown documents.
+#'
+#' @name knitr_methods
+#' @param x Object to knit_print
+#' @param ... Additional knit_print arguments
+NULL
+
+# If there's an R Markdown runtime option set but it isn't set to Shiny, then
+# return a warning indicating the runtime is inappropriate for this object.
+# Returns NULL in all other cases.
+shiny_rmd_warning <- function() {
+  runtime <- knitr::opts_knit$get("rmarkdown.runtime")
+  if (!is.null(runtime) && runtime != "shiny")
+    # note that the RStudio IDE checks for this specific string to detect Shiny
+    # applications in static document
+    list(structure(
+      "Shiny application in a static R Markdown document",
+      class = "rmd_warning"))
+  else
+    NULL
+}
+
+#' @rdname knitr_methods
+knit_print.shiny.appobj <- function(x, ...) {
+  opts <- x$options %OR% list()
+  width <- if (is.null(opts$width)) "100%" else opts$width
+  height <- if (is.null(opts$height)) "400" else opts$height
+
+  runtime <- knitr::opts_knit$get("rmarkdown.runtime")
+  if (!is.null(runtime) && runtime != "shiny") {
+    # If not rendering to a Shiny document, create a box exactly the same
+    # dimensions as the Shiny app would have had (so the document continues to
+    # flow as it would have with the app), and display a diagnostic message
+    width <- validateCssUnit(width)
+    height <- validateCssUnit(height)
+    output <- tags$div(
+      style=paste("width:", width, "; height:", height, "; text-align: center;",
+                  "box-sizing: border-box;", "-moz-box-sizing: border-box;",
+                  "-webkit-box-sizing: border-box;"),
+      class="muted well",
+      "Shiny applications not supported in static R Markdown documents")
+  }
+  else {
+    path <- addSubApp(x)
+    output <- deferredIFrame(path, width, height)
+  }
+
+  # If embedded Shiny apps ever have JS/CSS dependencies (like pym.js) we'll
+  # need to grab those and put them in meta, like in knit_print.shiny.tag. But
+  # for now it's not an issue, so just return the HTML and warning.
+
+  knitr::asis_output(htmlPreserve(format(output, indent=FALSE)),
+                     meta = shiny_rmd_warning(), cacheable = FALSE)
+}
+
+# Let us use a nicer syntax in knitr chunks than literally
+# calling output$value <- renderFoo(...) and fooOutput().
+#' @rdname knitr_methods
+#' @param inline Whether the object is printed inline.
+knit_print.shiny.render.function <- function(x, ..., inline = FALSE) {
+  x <- htmltools::as.tags(x, inline = inline)
+  output <- knitr::knit_print(tagList(x))
+  attr(output, "knit_cacheable") <- FALSE
+  attr(output, "knit_meta") <- append(attr(output, "knit_meta"),
+                                      shiny_rmd_warning())
+  output
+}
+
+# Lets us drop reactive expressions directly into a knitr chunk and have the
+# value printed out! Nice for teaching if nothing else.
+#' @rdname knitr_methods
+knit_print.reactive <- function(x, ..., inline = FALSE) {
+  renderFunc <- if (inline) renderText else renderPrint
+  knitr::knit_print(renderFunc({
+    x()
+  }), inline = inline)
+}
--- a/R/modal.R
+++ b/R/modal.R
@@ -29,10 +29,16 @@ removeModal <- function(session = getDefaultReactiveDomain()) {

 #' Create a modal dialog UI
 #'
-#' This creates the UI for a modal dialog, using Bootstrap's modal class. Modals
-#' are typically used for showing important messages, or for presenting UI that
-#' requires input from the user, such as a username and password input.
+#' @description
+#' `modalDialog()` creates the UI for a modal dialog, using Bootstrap's modal
+#' class. Modals are typically used for showing important messages, or for
+#' presenting UI that requires input from the user, such as a user name and
+#' password input.
 #'
+#' `modalButton()` creates a button that will dismiss the dialog when clicked,
+#' typically used when customising the `footer`.
+#'
+#' @inheritParams actionButton
 #' @param ... UI elements for the body of the modal dialog box.
 #' @param title An optional title for the dialog.
 #' @param footer UI for footer. Use `NULL` for no footer.
@@ -41,7 +47,7 @@ removeModal <- function(session = getDefaultReactiveDomain()) {
 #' @param easyClose If `TRUE`, the modal dialog can be dismissed by
 #'   clicking outside the dialog box, or be pressing the Escape key. If
 #'   `FALSE` (the default), the modal dialog can't be dismissed in those
-#'   ways; instead it must be dismissed by clicking on the dismiss button, or
+#'   ways; instead it must be dismissed by clicking on a `modalButton()`, or
 #'   from a call to [removeModal()] on the server.
 #' @param fade If `FALSE`, the modal dialog will have no fade-in animation
 #'   (it will simply appear rather than fade in to view).
@@ -169,13 +175,8 @@ modalDialog <- function(..., title = NULL, footer = modalButton("Dismiss"),
  )
 }

-#' Create a button for a modal dialog
-#'
-#' When clicked, a `modalButton` will dismiss the modal dialog.
-#'
-#' @inheritParams actionButton
-#' @seealso [modalDialog()] for examples.
 #' @export
+#' @rdname modalDialog
 modalButton <- function(label, icon = NULL) {
  tags$button(type = "button", class = "btn btn-default",
    `data-dismiss` = "modal", validateIcon(icon), label
--- a/R/progress.R
+++ b/R/progress.R
@@ -204,7 +204,7 @@ Progress <- R6Class(
 #'   the server function. The default is to automatically find the session by
 #'   using the current reactive domain.
 #' @param expr The work to be done. This expression should contain calls to
-#'   `setProgress`.
+#'   [setProgress()] or [incProgress()].
 #' @param min The value that represents the starting point of the progress bar.
 #'   Must be less tham `max`. Default is 0.
 #' @param max The value that represents the end of the progress bar. Must be
@@ -227,6 +227,7 @@ Progress <- R6Class(
 #' @param value Single-element numeric vector; the value at which to set the
 #'   progress bar, relative to `min` and `max`.
 #'
+#' @return The result of `expr`.
 #' @examples
 #' ## Only run examples in interactive R sessions
 #' if (interactive()) {
--- a/R/render-cached-plot.R
+++ b/R/render-cached-plot.R
@@ -150,6 +150,8 @@
 #'   `"app"` (the default), `"session"`, or a cache object like
 #'   a [diskCache()]. See the Cache Scoping section for more
 #'   information.
+#' @param width,height not used. They are specified via the argument
+#'   `sizePolicy`.
 #'
 #' @seealso See [renderPlot()] for the regular, non-cached version of
 #'   this function. For more about configuring caches, see
@@ -295,7 +297,10 @@ renderCachedPlot <- function(expr,
  res = 72,
  cache = "app",
  ...,
-  outputArgs = list()
+  alt = "Plot object",
+  outputArgs = list(),
+  width = NULL,
+  height = NULL
 ) {

  # This ..stacktraceon is matched by a ..stacktraceoff.. when plotFunc
@@ -307,6 +312,11 @@ renderCachedPlot <- function(expr,

  args <- list(...)

+  if (!is.null(width) || !is.null(height)) {
+    warning("Unused argument(s) 'width' and/or 'height'. ",
+            "'sizePolicy' is used instead.")
+  }
+
  cacheKeyExpr <- substitute(cacheKeyExpr)
  # The real cache key we'll use also includes width, height, res, pixelratio.
  # This is just the part supplied by the user.
@@ -341,6 +351,14 @@ renderCachedPlot <- function(expr,
  # values get filled by an observer below.
  fitDims <- reactiveValues(width = NULL, height = NULL)

+  # Make sure alt param to be reactive function
+  if (is.reactive(alt))
+    altWrapper <- alt
+  else if (is.function(alt))
+    altWrapper <- reactive({ alt() })
+  else
+    altWrapper <- function() { alt }
+
  resizeObserver <- NULL
  ensureResizeObserver <- function() {
    if (!is.null(resizeObserver))
@@ -387,6 +405,8 @@ renderCachedPlot <- function(expr,
        isolate({
          width  <- fitDims$width
          height <- fitDims$height
+          # Make sure alt text to be reactive function
+          alt <- altWrapper()
        })

        pixelratio <- session$clientData$pixelratio %OR% 1
@@ -398,6 +418,7 @@ renderCachedPlot <- function(expr,
            func = isolatedFunc,
            width = width,
            height = height,
+            alt = alt,
            pixelratio = pixelratio,
            res = res
          ),
@@ -434,6 +455,7 @@ renderCachedPlot <- function(expr,
      function(userCacheKeyResult) {
        width  <- fitDims$width
        height <- fitDims$height
+        alt <- altWrapper()
        pixelratio <- session$clientData$pixelratio %OR% 1

        key <- digest::digest(list(outputName, userCacheKeyResult, width, height, res, pixelratio), "xxhash64")
@@ -449,6 +471,7 @@ renderCachedPlot <- function(expr,
            plotObj = plotObj,
            width = width,
            height = height,
+            alt = alt,
            pixelratio = pixelratio
          ))
        }
@@ -471,6 +494,7 @@ renderCachedPlot <- function(expr,
              plotObj = drawReactiveResult,
              width = width,
              height = height,
+              alt = alt,
              pixelratio = pixelratio
            )
          }
@@ -480,6 +504,7 @@ renderCachedPlot <- function(expr,
        hybrid_chain(possiblyAsyncResult, function(result) {
          width      <- result$width
          height     <- result$height
+          alt        <- result$alt
          pixelratio <- result$pixelratio

          # Three possibilities when we get here:
@@ -500,6 +525,7 @@ renderCachedPlot <- function(expr,
                result$plotObj,
                width,
                height,
+                alt,
                pixelratio,
                res
              ),
--- a/R/render-plot.R
+++ b/R/render-plot.R
@@ -36,6 +36,12 @@
 #' @param res Resolution of resulting plot, in pixels per inch. This value is
 #'   passed to [grDevices::png()]. Note that this affects the resolution of PNG
 #'   rendering in R; it won't change the actual ppi of the browser.
+#' @param alt Alternate text for the HTML `<img>` tag
+#'   if it cannot be displayed or viewed (i.e., the user uses a screen reader).
+#'   In addition to a character string, the value may be a reactive expression
+#'   (or a function referencing reactive values) that returns a character string.
+#'   NULL or "" is not recommended because those should be limited to decorative images
+#'   (the default is "Plot object").
 #' @param ... Arguments to be passed through to [grDevices::png()].
 #'   These can be used to set the width, height, background color, etc.
 #' @param env The environment in which to evaluate `expr`.
@@ -51,9 +57,10 @@
 #'   call to [plotOutput()] when `renderPlot` is used in an
 #'   interactive R Markdown document.
 #' @export
-renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
-                       env=parent.frame(), quoted=FALSE,
-                       execOnResize=FALSE, outputArgs=list()
+renderPlot <- function(expr, width = 'auto', height = 'auto', res = 72, ...,
+                       alt = "Plot object",
+                       env = parent.frame(), quoted = FALSE,
+                       execOnResize = FALSE, outputArgs = list()
 ) {
  # This ..stacktraceon is matched by a ..stacktraceoff.. when plotFunc
  # is called
@@ -75,6 +82,13 @@ renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
  else
    heightWrapper <- function() { height }

+  if (is.reactive(alt))
+    altWrapper <- alt
+  else if (is.function(alt))
+    altWrapper <- reactive({ alt() })
+  else
+    altWrapper <- function() { alt }
+
  getDims <- function() {
    width <- widthWrapper()
    height <- heightWrapper()
@@ -112,6 +126,7 @@ renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
            func = func,
            width = dims$width,
            height = dims$height,
+            alt = altWrapper(),
            pixelratio = pixelratio,
            res = res
          ), args))
@@ -140,7 +155,7 @@ renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
        dims <- getDims()
        pixelratio <- session$clientData$pixelratio %OR% 1
        result <- do.call("resizeSavedPlot", c(
-          list(name, shinysession, result, dims$width, dims$height, pixelratio, res),
+          list(name, shinysession, result, dims$width, dims$height, altWrapper(), pixelratio, res),
          args
        ))

@@ -159,7 +174,7 @@ renderPlot <- function(expr, width='auto', height='auto', res=72, ...,
  markRenderFunction(outputFunc, renderFunc, outputArgs = outputArgs)
 }

-resizeSavedPlot <- function(name, session, result, width, height, pixelratio, res, ...) {
+resizeSavedPlot <- function(name, session, result, width, height, alt, pixelratio, res, ...) {
  if (result$img$width == width && result$img$height == height &&
      result$pixelratio == pixelratio && result$res == res) {
    return(result)
@@ -181,6 +196,7 @@ resizeSavedPlot <- function(name, session, result, width, height, pixelratio, re
    src = session$fileUrl(name, outfile, contentType = "image/png"),
    width = width,
    height = height,
+    alt = alt,
    coordmap = coordmap,
    error = attr(coordmap, "error", exact = TRUE)
  )
@@ -188,7 +204,7 @@ resizeSavedPlot <- function(name, session, result, width, height, pixelratio, re
  result
 }

-drawPlot <- function(name, session, func, width, height, pixelratio, res, ...) {
+drawPlot <- function(name, session, func, width, height, alt, pixelratio, res, ...) {
  #  1. Start PNG
  #  2. Enable displaylist recording
  #  3. Call user-defined func
@@ -272,6 +288,7 @@ drawPlot <- function(name, session, func, width, height, pixelratio, res, ...) {
        src = session$fileUrl(name, outfile, contentType='image/png'),
        width = width,
        height = height,
+        alt = alt,
        coordmap = result$coordmap,
        # Get coordmap error message if present
        error = attr(result$coordmap, "error", exact = TRUE)
--- a/R/runapp.R
+++ b/R/runapp.R
@@ -0,0 +1,506 @@
+#' Run Shiny Application
+#'
+#' Runs a Shiny application. This function normally does not return; interrupt R
+#' to stop the application (usually by pressing Ctrl+C or Esc).
+#'
+#' The host parameter was introduced in Shiny 0.9.0. Its default value of
+#' `"127.0.0.1"` means that, contrary to previous versions of Shiny, only
+#' the current machine can access locally hosted Shiny apps. To allow other
+#' clients to connect, use the value `"0.0.0.0"` instead (which was the
+#' value that was hard-coded into Shiny in 0.8.0 and earlier).
+#'
+#' @param appDir The application to run. Should be one of the following:
+#'   \itemize{
+#'   \item A directory containing `server.R`, plus, either `ui.R` or
+#'    a `www` directory that contains the file `index.html`.
+#'   \item A directory containing `app.R`.
+#'   \item An `.R` file containing a Shiny application, ending with an
+#'    expression that produces a Shiny app object.
+#'   \item A list with `ui` and `server` components.
+#'   \item A Shiny app object created by [shinyApp()].
+#'   }
+#' @param port The TCP port that the application should listen on. If the
+#'   `port` is not specified, and the `shiny.port` option is set (with
+#'   `options(shiny.port = XX)`), then that port will be used. Otherwise,
+#'   use a random port.
+#' @param launch.browser If true, the system's default web browser will be
+#'   launched automatically after the app is started. Defaults to true in
+#'   interactive sessions only. This value of this parameter can also be a
+#'   function to call with the application's URL.
+#' @param host The IPv4 address that the application should listen on. Defaults
+#'   to the `shiny.host` option, if set, or `"127.0.0.1"` if not. See
+#'   Details.
+#' @param workerId Can generally be ignored. Exists to help some editions of
+#'   Shiny Server Pro route requests to the correct process.
+#' @param quiet Should Shiny status messages be shown? Defaults to FALSE.
+#' @param display.mode The mode in which to display the application. If set to
+#'   the value `"showcase"`, shows application code and metadata from a
+#'   `DESCRIPTION` file in the application directory alongside the
+#'   application. If set to `"normal"`, displays the application normally.
+#'   Defaults to `"auto"`, which displays the application in the mode given
+#'   in its `DESCRIPTION` file, if any.
+#' @param test.mode Should the application be launched in test mode? This is
+#'   only used for recording or running automated tests. Defaults to the
+#'   `shiny.testmode` option, or FALSE if the option is not set.
+#'
+#' @examples
+#' \dontrun{
+#' # Start app in the current working directory
+#' runApp()
+#'
+#' # Start app in a subdirectory called myapp
+#' runApp("myapp")
+#' }
+#'
+#' ## Only run this example in interactive R sessions
+#' if (interactive()) {
+#'   options(device.ask.default = FALSE)
+#'
+#'   # Apps can be run without a server.r and ui.r file
+#'   runApp(list(
+#'     ui = bootstrapPage(
+#'       numericInput('n', 'Number of obs', 100),
+#'       plotOutput('plot')
+#'     ),
+#'     server = function(input, output) {
+#'       output$plot <- renderPlot({ hist(runif(input$n)) })
+#'     }
+#'   ))
+#'
+#'
+#'   # Running a Shiny app object
+#'   app <- shinyApp(
+#'     ui = bootstrapPage(
+#'       numericInput('n', 'Number of obs', 100),
+#'       plotOutput('plot')
+#'     ),
+#'     server = function(input, output) {
+#'       output$plot <- renderPlot({ hist(runif(input$n)) })
+#'     }
+#'   )
+#'   runApp(app)
+#' }
+#' @export
+runApp <- function(appDir=getwd(),
+                   port=getOption('shiny.port'),
+                   launch.browser=getOption('shiny.launch.browser',
+                                            interactive()),
+                   host=getOption('shiny.host', '127.0.0.1'),
+                   workerId="", quiet=FALSE,
+                   display.mode=c("auto", "normal", "showcase"),
+                   test.mode=getOption('shiny.testmode', FALSE)) {
+  on.exit({
+    handlerManager$clear()
+  }, add = TRUE)
+
+  if (.globals$running) {
+    stop("Can't call `runApp()` from within `runApp()`. If your ",
+         "application code contains `runApp()`, please remove it.")
+  }
+  .globals$running <- TRUE
+  on.exit({
+    .globals$running <- FALSE
+  }, add = TRUE)
+
+  # Enable per-app Shiny options, for shinyOptions() and getShinyOption().
+  oldOptionSet <- .globals$options
+  on.exit({
+    .globals$options <- oldOptionSet
+  },add = TRUE)
+
+  # A unique identifier associated with this run of this application. It is
+  # shared across sessions.
+  shinyOptions(appToken = createUniqueId(8))
+
+  # Make warnings print immediately
+  # Set pool.scheduler to support pool package
+  ops <- options(
+    # Raise warn level to 1, but don't lower it
+    warn = max(1, getOption("warn", default = 1)),
+    pool.scheduler = scheduleTask
+  )
+  on.exit(options(ops), add = TRUE)
+
+  # Set up default cache for app.
+  if (is.null(getShinyOption("cache"))) {
+    shinyOptions(cache = MemoryCache$new())
+  }
+
+  # Invoke user-defined onStop callbacks, before the application's internal
+  # onStop callbacks.
+  on.exit({
+    .globals$onStopCallbacks$invoke()
+    .globals$onStopCallbacks <- Callbacks$new()
+  }, add = TRUE)
+
+  require(shiny)
+
+  appParts <- as.shiny.appobj(appDir)
+
+  # The lines below set some of the app's running options, which
+  # can be:
+  #   - left unspeficied (in which case the arguments' default
+  #     values from `runApp` kick in);
+  #   - passed through `shinyApp`
+  #   - passed through `runApp` (this function)
+  #   - passed through both `shinyApp` and `runApp` (the latter
+  #     takes precedence)
+  #
+  # Matrix of possibilities:
+  # | IN shinyApp | IN runApp | result       | check                                                                                                                                  |
+  # |-------------|-----------|--------------|----------------------------------------------------------------------------------------------------------------------------------------|
+  # | no          | no        | use defaults | exhaust all possibilities: if it's missing (runApp does not specify); THEN if it's not in shinyApp appParts$options; THEN use defaults |
+  # | yes         | no        | use shinyApp | if it's missing (runApp does not specify); THEN if it's in shinyApp appParts$options; THEN use shinyApp                                |
+  # | no          | yes       | use runApp   | if it's not missing (runApp specifies), use those                                                                                      |
+  # | yes         | yes       | use runApp   | if it's not missing (runApp specifies), use those                                                                                      |
+  #
+  # I tried to make this as compact and intuitive as possible,
+  # given that there are four distinct possibilities to check
+  appOps <- appParts$options
+  findVal <- function(arg, default) {
+    if (arg %in% names(appOps)) appOps[[arg]] else default
+  }
+
+  if (missing(port))
+    port <- findVal("port", port)
+  if (missing(launch.browser))
+    launch.browser <- findVal("launch.browser", launch.browser)
+  if (missing(host))
+    host <- findVal("host", host)
+  if (missing(quiet))
+    quiet <- findVal("quiet", quiet)
+  if (missing(display.mode))
+    display.mode <- findVal("display.mode", display.mode)
+  if (missing(test.mode))
+    test.mode <- findVal("test.mode", test.mode)
+
+  if (is.null(host) || is.na(host)) host <- '0.0.0.0'
+
+  workerId(workerId)
+
+  if (inShinyServer()) {
+    # If SHINY_PORT is set, we're running under Shiny Server. Check the version
+    # to make sure it is compatible. Older versions of Shiny Server don't set
+    # SHINY_SERVER_VERSION, those will return "" which is considered less than
+    # any valid version.
+    ver <- Sys.getenv('SHINY_SERVER_VERSION')
+    if (utils::compareVersion(ver, .shinyServerMinVersion) < 0) {
+      warning('Shiny Server v', .shinyServerMinVersion,
+              ' or later is required; please upgrade!')
+    }
+  }
+
+  # Showcase mode is disabled by default; it must be explicitly enabled in
+  # either the DESCRIPTION file for directory-based apps, or via
+  # the display.mode parameter. The latter takes precedence.
+  setShowcaseDefault(0)
+
+  .globals$testMode <- test.mode
+  if (test.mode) {
+    message("Running application in test mode.")
+  }
+
+  # If appDir specifies a path, and display mode is specified in the
+  # DESCRIPTION file at that path, apply it here.
+  if (is.character(appDir)) {
+    # if appDir specifies a .R file (single-file Shiny app), look for the
+    # DESCRIPTION in the parent directory
+    desc <- file.path.ci(
+      if (tolower(tools::file_ext(appDir)) == "r")
+        dirname(appDir)
+      else
+        appDir, "DESCRIPTION")
+    if (file.exists(desc)) {
+      con <- file(desc, encoding = checkEncoding(desc))
+      on.exit(close(con), add = TRUE)
+      settings <- read.dcf(con)
+      if ("DisplayMode" %in% colnames(settings)) {
+        mode <- settings[1, "DisplayMode"]
+        if (mode == "Showcase") {
+          setShowcaseDefault(1)
+          if ("IncludeWWW" %in% colnames(settings)) {
+            .globals$IncludeWWW <- as.logical(settings[1, "IncludeWWW"])
+            if (is.na(.globals$IncludeWWW)) {
+              stop("In your Description file, `IncludeWWW` ",
+                   "must be set to `True` (default) or `False`")
+            }
+          } else {
+            .globals$IncludeWWW <- TRUE
+          }
+        }
+      }
+    }
+  }
+
+  ## default is to show the .js, .css and .html files in the www directory
+  ## (if not in showcase mode, this variable will simply be ignored)
+  if (is.null(.globals$IncludeWWW) || is.na(.globals$IncludeWWW)) {
+    .globals$IncludeWWW <- TRUE
+  }
+
+  # If display mode is specified as an argument, apply it (overriding the
+  # value specified in DESCRIPTION, if any).
+  display.mode <- match.arg(display.mode)
+  if (display.mode == "normal") {
+    setShowcaseDefault(0)
+  }
+  else if (display.mode == "showcase") {
+    setShowcaseDefault(1)
+  }
+
+  # determine port if we need to
+  if (is.null(port)) {
+
+    # Try up to 20 random ports. If we don't succeed just plow ahead
+    # with the final value we tried, and let the "real" startServer
+    # somewhere down the line fail and throw the error to the user.
+    #
+    # If we (think we) succeed, save the value as .globals$lastPort,
+    # and try that first next time the user wants a random port.
+
+    for (i in 1:20) {
+      if (!is.null(.globals$lastPort)) {
+        port <- .globals$lastPort
+        .globals$lastPort <- NULL
+      }
+      else {
+        # Try up to 20 random ports
+        while (TRUE) {
+          port <- p_randomInt(3000, 8000)
+          # Reject ports in this range that are considered unsafe by Chrome
+          # http://superuser.com/questions/188058/which-ports-are-considered-unsafe-on-chrome
+          # https://github.com/rstudio/shiny/issues/1784
+          if (!port %in% c(3659, 4045, 6000, 6665:6669, 6697)) {
+            break
+          }
+        }
+      }
+
+      # Test port to see if we can use it
+      tmp <- try(startServer(host, port, list()), silent=TRUE)
+      if (!inherits(tmp, 'try-error')) {
+        stopServer(tmp)
+        .globals$lastPort <- port
+        break
+      }
+    }
+  }
+
+  # Extract appOptions (which is a list) and store them as shinyOptions, for
+  # this app. (This is the only place we have to store settings that are
+  # accessible both the UI and server portion of the app.)
+  unconsumeAppOptions(appParts$appOptions)
+
+  # Set up the onStop before we call onStart, so that it gets called even if an
+  # error happens in onStart.
+  if (!is.null(appParts$onStop))
+    on.exit(appParts$onStop(), add = TRUE)
+  if (!is.null(appParts$onStart))
+    appParts$onStart()
+
+  server <- startApp(appParts, port, host, quiet)
+
+  # Make the httpuv server object accessible. Needed for calling
+  # addResourcePath while app is running.
+  shinyOptions(server = server)
+
+  on.exit({
+    stopServer(server)
+  }, add = TRUE)
+
+  if (!is.character(port)) {
+    browseHost <- host
+    if (identical(host, "0.0.0.0")) {
+      # http://0.0.0.0/ doesn't work on QtWebKit (i.e. RStudio viewer)
+      browseHost <- "127.0.0.1"
+    } else if (identical(host, "::")) {
+      browseHost <- "::1"
+    }
+
+    if (httpuv::ipFamily(browseHost) == 6L) {
+      browseHost <- paste0("[", browseHost, "]")
+    }
+
+    appUrl <- paste("http://", browseHost, ":", port, sep="")
+    if (is.function(launch.browser))
+      launch.browser(appUrl)
+    else if (launch.browser)
+      utils::browseURL(appUrl)
+  } else {
+    appUrl <- NULL
+  }
+
+  # call application hooks
+  callAppHook("onAppStart", appUrl)
+  on.exit({
+    callAppHook("onAppStop", appUrl)
+  }, add = TRUE)
+
+  .globals$reterror <- NULL
+  .globals$retval <- NULL
+  .globals$stopped <- FALSE
+  # Top-level ..stacktraceoff..; matches with ..stacktraceon in observe(),
+  # reactive(), Callbacks$invoke(), and others
+  ..stacktraceoff..(
+    captureStackTraces({
+      while (!.globals$stopped) {
+        ..stacktracefloor..(serviceApp())
+      }
+    })
+  )
+
+  if (isTRUE(.globals$reterror)) {
+    stop(.globals$retval)
+  }
+  else if (.globals$retval$visible)
+    .globals$retval$value
+  else
+    invisible(.globals$retval$value)
+}
+
+#' Stop the currently running Shiny app
+#'
+#' Stops the currently running Shiny app, returning control to the caller of
+#' [runApp()].
+#'
+#' @param returnValue The value that should be returned from
+#'   [runApp()].
+#' @export
+stopApp <- function(returnValue = invisible()) {
+  # reterror will indicate whether retval is an error (i.e. it should be passed
+  # to stop() when the serviceApp loop stops) or a regular value (in which case
+  # it should simply be returned with the appropriate visibility).
+  .globals$reterror <- FALSE
+  ..stacktraceoff..(
+    tryCatch(
+      {
+        captureStackTraces(
+          .globals$retval <- withVisible(..stacktraceon..(force(returnValue)))
+        )
+      },
+      error = function(e) {
+        .globals$retval <- e
+        .globals$reterror <- TRUE
+      }
+    )
+  )
+
+  .globals$stopped <- TRUE
+  httpuv::interrupt()
+}
+
+#' Run Shiny Example Applications
+#'
+#' Launch Shiny example applications, and optionally, your system's web browser.
+#'
+#' @param example The name of the example to run, or `NA` (the default) to
+#'   list the available examples.
+#' @param launch.browser If true, the system's default web browser will be
+#'   launched automatically after the app is started. Defaults to true in
+#'   interactive sessions only.
+#' @param host The IPv4 address that the application should listen on. Defaults
+#'   to the `shiny.host` option, if set, or `"127.0.0.1"` if not.
+#' @param display.mode The mode in which to display the example. Defaults to
+#'   `showcase`, but may be set to `normal` to see the example without
+#'   code or commentary.
+#' @inheritParams runApp
+#'
+#' @examples
+#' ## Only run this example in interactive R sessions
+#' if (interactive()) {
+#'   # List all available examples
+#'   runExample()
+#'
+#'   # Run one of the examples
+#'   runExample("01_hello")
+#'
+#'   # Print the directory containing the code for all examples
+#'   system.file("examples", package="shiny")
+#' }
+#' @export
+runExample <- function(example=NA,
+                       port=getOption("shiny.port"),
+                       launch.browser=getOption('shiny.launch.browser',
+                                                interactive()),
+                       host=getOption('shiny.host', '127.0.0.1'),
+                       display.mode=c("auto", "normal", "showcase")) {
+  examplesDir <- system.file('examples', package='shiny')
+  dir <- resolve(examplesDir, example)
+  if (is.null(dir)) {
+    if (is.na(example)) {
+      errFun <- message
+      errMsg <- ''
+    }
+    else {
+      errFun <- stop
+      errMsg <- paste('Example', example, 'does not exist. ')
+    }
+
+    errFun(errMsg,
+           'Valid examples are "',
+           paste(list.files(examplesDir), collapse='", "'),
+           '"')
+  }
+  else {
+    runApp(dir, port = port, host = host, launch.browser = launch.browser,
+           display.mode = display.mode)
+  }
+}
+
+#' Run a gadget
+#'
+#' Similar to `runApp`, but handles `input$cancel` automatically, and
+#' if running in RStudio, defaults to viewing the app in the Viewer pane.
+#'
+#' @param app Either a Shiny app object as created by
+#'   [`shinyApp()`][shiny] et al, or, a UI object.
+#' @param server Ignored if `app` is a Shiny app object; otherwise, passed
+#'   along to `shinyApp` (i.e. `shinyApp(ui = app, server = server)`).
+#' @param port See [`runApp()`][shiny].
+#' @param viewer Specify where the gadget should be displayed--viewer pane,
+#'   dialog window, or external browser--by passing in a call to one of the
+#'   [viewer()] functions.
+#' @param stopOnCancel If `TRUE` (the default), then an `observeEvent`
+#'   is automatically created that handles `input$cancel` by calling
+#'   `stopApp()` with an error. Pass `FALSE` if you want to handle
+#'   `input$cancel` yourself.
+#' @return The value returned by the gadget.
+#'
+#' @examples
+#' \dontrun{
+#' library(shiny)
+#'
+#' ui <- fillPage(...)
+#'
+#' server <- function(input, output, session) {
+#'   ...
+#' }
+#'
+#' # Either pass ui/server as separate arguments...
+#' runGadget(ui, server)
+#'
+#' # ...or as a single app object
+#' runGadget(shinyApp(ui, server))
+#' }
+#' @export
+runGadget <- function(app, server = NULL, port = getOption("shiny.port"),
+  viewer = paneViewer(), stopOnCancel = TRUE) {
+
+  if (!is.shiny.appobj(app)) {
+    app <- shinyApp(app, server)
+  }
+
+  if (isTRUE(stopOnCancel)) {
+    app <- decorateServerFunc(app, function(input, output, session) {
+      observeEvent(input$cancel, {
+        stopApp(stop("User cancel", call. = FALSE))
+      })
+    })
+  }
+
+  if (is.null(viewer)) {
+    viewer <- utils::browseURL
+  }
+
+  shiny::runApp(app, port = port, launch.browser = viewer)
+}
--- a/R/server-input-handlers.R
+++ b/R/server-input-handlers.R
@@ -5,14 +5,15 @@ inputHandlers <- Map$new()
 #'
 #' Adds an input handler for data of this type. When called, Shiny will use the
 #' function provided to refine the data passed back from the client (after being
-#' deserialized by jsonlite) before making it available in the `input`
-#' variable of the `server.R` file.
+#' deserialized by jsonlite) before making it available in the `input` variable
+#' of the `server.R` file.
 #'
 #' This function will register the handler for the duration of the R process
 #' (unless Shiny is explicitly reloaded). For that reason, the `type` used
 #' should be very specific to this package to minimize the risk of colliding
 #' with another Shiny package which might use this data type name. We recommend
-#' the format of "packageName.widgetName".
+#' the format of "packageName.widgetName". It should be called from the
+#' package's `.onLoad()` function.
 #'
 #' Currently Shiny registers the following handlers: `shiny.matrix`,
 #' `shiny.number`, and `shiny.date`.
@@ -20,23 +21,20 @@ inputHandlers <- Map$new()
 #' The `type` of a custom Shiny Input widget will be deduced using the
 #' `getType()` JavaScript function on the registered Shiny inputBinding.
 #' @param type The type for which the handler should be added --- should be a
-#' single-element character vector.
+#'   single-element character vector.
 #' @param fun The handler function. This is the function that will be used to
 #'   parse the data delivered from the client before it is available in the
 #'   `input` variable. The function will be called with the following three
-#'   parameters:
-#'    \enumerate{
-#'      \item{The value of this input as provided by the client, deserialized
-#'      using jsonlite.}
-#'      \item{The `shinysession` in which the input exists.}
-#'      \item{The name of the input.}
-#'    }
-#' @param force If `TRUE`, will overwrite any existing handler without
-#' warning. If `FALSE`, will throw an error if this class already has
-#' a handler defined.
+#'   parameters: \enumerate{ \item{The value of this input as provided by the
+#'   client, deserialized using jsonlite.} \item{The `shinysession` in which the
+#'   input exists.} \item{The name of the input.} }
+#' @param force If `TRUE`, will overwrite any existing handler without warning.
+#'   If `FALSE`, will throw an error if this class already has a handler
+#'   defined.
 #' @examples
 #' \dontrun{
 #' # Register an input handler which rounds a input number to the nearest integer
+#' # In a package, this should be called from the .onLoad function.
 #' registerInputHandler("mypackage.validint", function(x, shinysession, name) {
 #'   if (is.null(x)) return(NA)
 #'   round(x)
--- a/R/server-resource-paths.R
+++ b/R/server-resource-paths.R
@@ -0,0 +1,169 @@
+.globals$resourcePaths <- list()
+.globals$resources <- list()
+
+#' Resource Publishing
+#'
+#' Add, remove, or list directory of static resources to Shiny's web server,
+#' with the given path prefix. Primarily intended for package authors to make
+#' supporting JavaScript/CSS files available to their components.
+#'
+#' Shiny provides two ways of serving static files (i.e., resources):
+#'
+#' 1. Static files under the `www/` directory are automatically made available
+#' under a request path that begins with `/`.
+#' 2. `addResourcePath()` makes static files in a `directoryPath` available
+#' under a request path that begins with `prefix`.
+#'
+#' The second approach is primarily intended for package authors to make
+#' supporting JavaScript/CSS files available to their components.
+#'
+#' Tools for managing static resources published by Shiny's web server:
+#'  * `addResourcePath()` adds a directory of static resources.
+#'  * `resourcePaths()` lists the currently active resource mappings.
+#'  * `removeResourcePath()` removes a directory of static resources.
+#'
+#' @param prefix The URL prefix (without slashes). Valid characters are a-z,
+#'   A-Z, 0-9, hyphen, period, and underscore. For example, a value of 'foo'
+#'   means that any request paths that begin with '/foo' will be mapped to the
+#'   given directory.
+#' @param directoryPath The directory that contains the static resources to be
+#'   served.
+#'
+#' @rdname resourcePaths
+#' @seealso [singleton()]
+#'
+#' @examples
+#' addResourcePath('datasets', system.file('data', package='datasets'))
+#' resourcePaths()
+#' removeResourcePath('datasets')
+#' resourcePaths()
+#'
+#' # make sure all resources are removed
+#' lapply(names(resourcePaths()), removeResourcePath)
+#' @export
+addResourcePath <- function(prefix, directoryPath) {
+  if (length(prefix) != 1) stop("prefix must be of length 1")
+  if (grepl("^\\.+$", prefix)) stop("prefix can't be composed of dots only")
+  if (!grepl('[a-z0-9\\-_.]+$', prefix, ignore.case = TRUE, perl = TRUE)) {
+    stop("addResourcePath called with invalid prefix; please see documentation")
+  }
+  if (prefix %in% c('shared')) {
+    stop("addResourcePath called with the reserved prefix '", prefix, "'; ",
+         "please use a different prefix")
+  }
+  normalizedPath <- tryCatch(normalizePath(directoryPath, mustWork = TRUE),
+    error = function(e) {
+      stop("Couldn't normalize path in `addResourcePath`, with arguments: ",
+        "`prefix` = '", prefix, "'; `directoryPath` = '" , directoryPath, "'")
+    }
+  )
+
+  # # Often times overwriting a resource path is "what you want",
+  # # but sometimes it can lead to difficult to diagnose issues
+  # # (e.g. an implict dependency might set a resource path that
+  # # conflicts with what you, the app author, are trying to register)
+  # # Note that previous versions of shiny used to warn about this case,
+  # # but it was eventually removed since it caused confusion (#567).
+  # # It seems a good compromise is to throw a more information message.
+  # if (getOption("shiny.resourcePathChanges", FALSE) &&
+  #     prefix %in% names(.globals$resourcePaths)) {
+  #   existingPath <- .globals$resourcePaths[[prefix]]$path
+  #   if (normalizedPath != existingPath) {
+  #     message(
+  #       "The resource path '", prefix, "' used to point to ",
+  #       existingPath, ", but it now points to ", normalizedPath, ". ",
+  #       "If your app doesn't work as expected, you may want to ",
+  #       "choose a different prefix name."
+  #     )
+  #   }
+  # }
+
+  # If a shiny app is currently running, dynamically register this path with
+  # the corresponding httpuv server object.
+  if (!is.null(getShinyOption("server")))
+  {
+    getShinyOption("server")$setStaticPath(.list = stats::setNames(normalizedPath, prefix))
+  }
+
+  # .globals$resourcePaths and .globals$resources persist across runs of applications.
+  .globals$resourcePaths[[prefix]] <- staticPath(normalizedPath)
+  # This is necessary because resourcePaths is only for serving assets out of C++;
+  # to support subapps, we also need assets to be served out of R, because those
+  # URLs are rewritten by R code (i.e. routeHandler) before they can be matched to
+  # a resource path.
+  .globals$resources[[prefix]] <- list(
+    directoryPath = normalizedPath,
+    func = staticHandler(normalizedPath)
+  )
+}
+
+#' @rdname resourcePaths
+#' @export
+resourcePaths <- function() {
+  urls <- names(.globals$resourcePaths)
+  paths <- vapply(.globals$resourcePaths, function(x) x$path, character(1))
+  stats::setNames(paths, urls)
+}
+
+hasResourcePath <- function(prefix) {
+  prefix %in% names(resourcePaths())
+}
+
+#' @rdname resourcePaths
+#' @export
+removeResourcePath <- function(prefix) {
+  if (length(prefix) > 1) stop("`prefix` must be of length 1.")
+  if (!hasResourcePath(prefix)) {
+    warning("Resource ", prefix, " not found.")
+    return(invisible(FALSE))
+  }
+  .globals$resourcePaths[[prefix]] <- NULL
+  .globals$resources[[prefix]] <- NULL
+  invisible(TRUE)
+}
+
+# This function handles any GET request with two or more path elements where the
+# first path element matches a prefix that was previously added using
+# addResourcePath().
+#
+# For example, if `addResourcePath("foo", "~/bar")` was called, then a GET
+# request for /foo/one/two.html would rewrite the PATH_INFO as /one/two.html and
+# send it to the resource path function for "foo". As of this writing, that
+# function will always be a staticHandler, which serves up a file if it exists
+# and NULL if it does not.
+#
+# Since Shiny 1.3.x, assets registered via addResourcePath should mostly be
+# served out of httpuv's native static file serving features. However, in the
+# specific case of subapps, the R code path must be used, because subapps insert
+# a giant random ID into the beginning of the URL that must be stripped off by
+# an R route handler (see addSubApp()).
+resourcePathHandler <- function(req) {
+  if (!identical(req$REQUEST_METHOD, 'GET'))
+    return(NULL)
+
+  # e.g. "/foo/one/two.html"
+  path <- req$PATH_INFO
+
+  match <- regexpr('^/([^/]+)/', path, perl=TRUE)
+  if (match == -1)
+    return(NULL)
+  len <- attr(match, 'capture.length')
+  # e.g. "foo"
+  prefix <- substr(path, 2, 2 + len - 1)
+
+  resInfo <- .globals$resources[[prefix]]
+  if (is.null(resInfo))
+    return(NULL)
+
+  # e.g. "/one/two.html"
+  suffix <- substr(path, 2 + len, nchar(path))
+
+  # Create a new request that's a clone of the current request, but adjust
+  # PATH_INFO and SCRIPT_NAME to reflect that we have already matched the first
+  # path element (e.g. "/foo"). See routeHandler() for more info.
+  subreq <- as.environment(as.list(req, all.names=TRUE))
+  subreq$PATH_INFO <- suffix
+  subreq$SCRIPT_NAME <- paste(subreq$SCRIPT_NAME, substr(path, 1, 2 + len), sep='')
+
+  return(resInfo$func(subreq))
+}
--- a/R/server.R
+++ b/R/server.R
@@ -22,180 +22,10 @@ registerClient <- function(client) {
 }


-.globals$resourcePaths <- list()
-.globals$resources <- list()
-
 .globals$showcaseDefault <- 0

 .globals$showcaseOverride <- FALSE

-#' Resource Publishing
-#'
-#' Add, remove, or list directory of static resources to Shiny's web server,
-#' with the given path prefix. Primarily intended for package authors to make
-#' supporting JavaScript/CSS files available to their components.
-#'
-#' Shiny provides two ways of serving static files (i.e., resources):
-#'
-#' 1. Static files under the `www/` directory are automatically made available
-#' under a request path that begins with `/`.
-#' 2. `addResourcePath()` makes static files in a `directoryPath` available
-#' under a request path that begins with `prefix`.
-#'
-#' The second approach is primarily intended for package authors to make
-#' supporting JavaScript/CSS files available to their components.
-#'
-#' Tools for managing static resources published by Shiny's web server:
-#'  * `addResourcePath()` adds a directory of static resources.
-#'  * `resourcePaths()` lists the currently active resource mappings.
-#'  * `removeResourcePath()` removes a directory of static resources.
-#'
-#' @param prefix The URL prefix (without slashes). Valid characters are a-z,
-#'   A-Z, 0-9, hyphen, period, and underscore. For example, a value of 'foo'
-#'   means that any request paths that begin with '/foo' will be mapped to the
-#'   given directory.
-#' @param directoryPath The directory that contains the static resources to be
-#'   served.
-#'
-#' @rdname resourcePaths
-#' @seealso [singleton()]
-#'
-#' @examples
-#' addResourcePath('datasets', system.file('data', package='datasets'))
-#' resourcePaths()
-#' removeResourcePath('datasets')
-#' resourcePaths()
-#'
-#' # make sure all resources are removed
-#' lapply(names(resourcePaths()), removeResourcePath)
-#' @export
-addResourcePath <- function(prefix, directoryPath) {
-  if (length(prefix) != 1) stop("prefix must be of length 1")
-  if (!grepl('^[a-z0-9\\-_][a-z0-9\\-_.]*$', prefix, ignore.case = TRUE, perl = TRUE)) {
-    stop("addResourcePath called with invalid prefix; please see documentation")
-  }
-  if (prefix %in% c('shared')) {
-    stop("addResourcePath called with the reserved prefix '", prefix, "'; ",
-         "please use a different prefix")
-  }
-  normalizedPath <- tryCatch(normalizePath(directoryPath, mustWork = TRUE),
-    error = function(e) {
-      stop("Couldn't normalize path in `addResourcePath`, with arguments: ",
-        "`prefix` = '", prefix, "'; `directoryPath` = '" , directoryPath, "'")
-    }
-  )
-
-  # # Often times overwriting a resource path is "what you want",
-  # # but sometimes it can lead to difficult to diagnose issues
-  # # (e.g. an implict dependency might set a resource path that
-  # # conflicts with what you, the app author, are trying to register)
-  # # Note that previous versions of shiny used to warn about this case,
-  # # but it was eventually removed since it caused confusion (#567).
-  # # It seems a good compromise is to throw a more information message.
-  # if (getOption("shiny.resourcePathChanges", FALSE) &&
-  #     prefix %in% names(.globals$resourcePaths)) {
-  #   existingPath <- .globals$resourcePaths[[prefix]]$path
-  #   if (normalizedPath != existingPath) {
-  #     message(
-  #       "The resource path '", prefix, "' used to point to ",
-  #       existingPath, ", but it now points to ", normalizedPath, ". ",
-  #       "If your app doesn't work as expected, you may want to ",
-  #       "choose a different prefix name."
-  #     )
-  #   }
-  # }
-
-  # If a shiny app is currently running, dynamically register this path with
-  # the corresponding httpuv server object.
-  if (!is.null(getShinyOption("server")))
-  {
-    getShinyOption("server")$setStaticPath(.list = stats::setNames(normalizedPath, prefix))
-  }
-
-  # .globals$resourcePaths and .globals$resources persist across runs of applications.
-  .globals$resourcePaths[[prefix]] <- staticPath(normalizedPath)
-  # This is necessary because resourcePaths is only for serving assets out of C++;
-  # to support subapps, we also need assets to be served out of R, because those
-  # URLs are rewritten by R code (i.e. routeHandler) before they can be matched to
-  # a resource path.
-  .globals$resources[[prefix]] <- list(
-    directoryPath = normalizedPath,
-    func = staticHandler(normalizedPath)
-  )
-}
-
-#' @rdname resourcePaths
-#' @export
-resourcePaths <- function() {
-  urls <- names(.globals$resourcePaths)
-  paths <- vapply(.globals$resourcePaths, function(x) x$path, character(1))
-  stats::setNames(paths, urls)
-}
-
-hasResourcePath <- function(prefix) {
-  prefix %in% names(resourcePaths())
-}
-
-#' @rdname resourcePaths
-#' @export
-removeResourcePath <- function(prefix) {
-  if (length(prefix) > 1) stop("`prefix` must be of length 1.")
-  if (!hasResourcePath(prefix)) {
-    warning("Resource ", prefix, " not found.")
-    return(invisible(FALSE))
-  }
-  .globals$resourcePaths[[prefix]] <- NULL
-  .globals$resources[[prefix]] <- NULL
-  invisible(TRUE)
-}
-
-
-
-# This function handles any GET request with two or more path elements where the
-# first path element matches a prefix that was previously added using
-# addResourcePath().
-#
-# For example, if `addResourcePath("foo", "~/bar")` was called, then a GET
-# request for /foo/one/two.html would rewrite the PATH_INFO as /one/two.html and
-# send it to the resource path function for "foo". As of this writing, that
-# function will always be a staticHandler, which serves up a file if it exists
-# and NULL if it does not.
-#
-# Since Shiny 1.3.x, assets registered via addResourcePath should mostly be
-# served out of httpuv's native static file serving features. However, in the
-# specific case of subapps, the R code path must be used, because subapps insert
-# a giant random ID into the beginning of the URL that must be stripped off by
-# an R route handler (see addSubApp()).
-resourcePathHandler <- function(req) {
-  if (!identical(req$REQUEST_METHOD, 'GET'))
-    return(NULL)
-
-  # e.g. "/foo/one/two.html"
-  path <- req$PATH_INFO
-
-  match <- regexpr('^/([^/]+)/', path, perl=TRUE)
-  if (match == -1)
-    return(NULL)
-  len <- attr(match, 'capture.length')
-  # e.g. "foo"
-  prefix <- substr(path, 2, 2 + len - 1)
-
-  resInfo <- .globals$resources[[prefix]]
-  if (is.null(resInfo))
-    return(NULL)
-
-  # e.g. "/one/two.html"
-  suffix <- substr(path, 2 + len, nchar(path))
-
-  # Create a new request that's a clone of the current request, but adjust
-  # PATH_INFO and SCRIPT_NAME to reflect that we have already matched the first
-  # path element (e.g. "/foo"). See routeHandler() for more info.
-  subreq <- as.environment(as.list(req, all.names=TRUE))
-  subreq$PATH_INFO <- suffix
-  subreq$SCRIPT_NAME <- paste(subreq$SCRIPT_NAME, substr(path, 1, 2 + len), sep='')
-
-  return(resInfo$func(subreq))
-}

 #' Define Server Functionality
 #'
@@ -658,514 +488,6 @@ isRunning <- function() {
  .globals$running
 }

-#' Run Shiny Application
-#'
-#' Runs a Shiny application. This function normally does not return; interrupt R
-#' to stop the application (usually by pressing Ctrl+C or Esc).
-#'
-#' The host parameter was introduced in Shiny 0.9.0. Its default value of
-#' `"127.0.0.1"` means that, contrary to previous versions of Shiny, only
-#' the current machine can access locally hosted Shiny apps. To allow other
-#' clients to connect, use the value `"0.0.0.0"` instead (which was the
-#' value that was hard-coded into Shiny in 0.8.0 and earlier).
-#'
-#' @param appDir The application to run. Should be one of the following:
-#'   \itemize{
-#'   \item A directory containing `server.R`, plus, either `ui.R` or
-#'    a `www` directory that contains the file `index.html`.
-#'   \item A directory containing `app.R`.
-#'   \item An `.R` file containing a Shiny application, ending with an
-#'    expression that produces a Shiny app object.
-#'   \item A list with `ui` and `server` components.
-#'   \item A Shiny app object created by [shinyApp()].
-#'   }
-#' @param port The TCP port that the application should listen on. If the
-#'   `port` is not specified, and the `shiny.port` option is set (with
-#'   `options(shiny.port = XX)`), then that port will be used. Otherwise,
-#'   use a random port.
-#' @param launch.browser If true, the system's default web browser will be
-#'   launched automatically after the app is started. Defaults to true in
-#'   interactive sessions only. This value of this parameter can also be a
-#'   function to call with the application's URL.
-#' @param host The IPv4 address that the application should listen on. Defaults
-#'   to the `shiny.host` option, if set, or `"127.0.0.1"` if not. See
-#'   Details.
-#' @param workerId Can generally be ignored. Exists to help some editions of
-#'   Shiny Server Pro route requests to the correct process.
-#' @param quiet Should Shiny status messages be shown? Defaults to FALSE.
-#' @param display.mode The mode in which to display the application. If set to
-#'   the value `"showcase"`, shows application code and metadata from a
-#'   `DESCRIPTION` file in the application directory alongside the
-#'   application. If set to `"normal"`, displays the application normally.
-#'   Defaults to `"auto"`, which displays the application in the mode given
-#'   in its `DESCRIPTION` file, if any.
-#' @param test.mode Should the application be launched in test mode? This is
-#'   only used for recording or running automated tests. Defaults to the
-#'   `shiny.testmode` option, or FALSE if the option is not set.
-#'
-#' @examples
-#' \dontrun{
-#' # Start app in the current working directory
-#' runApp()
-#'
-#' # Start app in a subdirectory called myapp
-#' runApp("myapp")
-#' }
-#'
-#' ## Only run this example in interactive R sessions
-#' if (interactive()) {
-#'   options(device.ask.default = FALSE)
-#'
-#'   # Apps can be run without a server.r and ui.r file
-#'   runApp(list(
-#'     ui = bootstrapPage(
-#'       numericInput('n', 'Number of obs', 100),
-#'       plotOutput('plot')
-#'     ),
-#'     server = function(input, output) {
-#'       output$plot <- renderPlot({ hist(runif(input$n)) })
-#'     }
-#'   ))
-#'
-#'
-#'   # Running a Shiny app object
-#'   app <- shinyApp(
-#'     ui = bootstrapPage(
-#'       numericInput('n', 'Number of obs', 100),
-#'       plotOutput('plot')
-#'     ),
-#'     server = function(input, output) {
-#'       output$plot <- renderPlot({ hist(runif(input$n)) })
-#'     }
-#'   )
-#'   runApp(app)
-#' }
-#' @export
-runApp <- function(appDir=getwd(),
-                   port=getOption('shiny.port'),
-                   launch.browser=getOption('shiny.launch.browser',
-                                            interactive()),
-                   host=getOption('shiny.host', '127.0.0.1'),
-                   workerId="", quiet=FALSE,
-                   display.mode=c("auto", "normal", "showcase"),
-                   test.mode=getOption('shiny.testmode', FALSE)) {
-  on.exit({
-    handlerManager$clear()
-  }, add = TRUE)
-
-  if (.globals$running) {
-    stop("Can't call `runApp()` from within `runApp()`. If your ",
-         "application code contains `runApp()`, please remove it.")
-  }
-  .globals$running <- TRUE
-  on.exit({
-    .globals$running <- FALSE
-  }, add = TRUE)
-
-  # Enable per-app Shiny options, for shinyOptions() and getShinyOption().
-  oldOptionSet <- .globals$options
-  on.exit({
-    .globals$options <- oldOptionSet
-  },add = TRUE)
-
-  # A unique identifier associated with this run of this application. It is
-  # shared across sessions.
-  shinyOptions(appToken = createUniqueId(8))
-
-  # Make warnings print immediately
-  # Set pool.scheduler to support pool package
-  ops <- options(
-    # Raise warn level to 1, but don't lower it
-    warn = max(1, getOption("warn", default = 1)),
-    pool.scheduler = scheduleTask
-  )
-  on.exit(options(ops), add = TRUE)
-
-  # Set up default cache for app.
-  if (is.null(getShinyOption("cache"))) {
-    shinyOptions(cache = MemoryCache$new())
-  }
-
-  # Invoke user-defined onStop callbacks, before the application's internal
-  # onStop callbacks.
-  on.exit({
-    .globals$onStopCallbacks$invoke()
-    .globals$onStopCallbacks <- Callbacks$new()
-  }, add = TRUE)
-
-  require(shiny)
-
-  appParts <- as.shiny.appobj(appDir)
-
-  # The lines below set some of the app's running options, which
-  # can be:
-  #   - left unspeficied (in which case the arguments' default
-  #     values from `runApp` kick in);
-  #   - passed through `shinyApp`
-  #   - passed through `runApp` (this function)
-  #   - passed through both `shinyApp` and `runApp` (the latter
-  #     takes precedence)
-  #
-  # Matrix of possibilities:
-  # | IN shinyApp | IN runApp | result       | check                                                                                                                                  |
-  # |-------------|-----------|--------------|----------------------------------------------------------------------------------------------------------------------------------------|
-  # | no          | no        | use defaults | exhaust all possibilities: if it's missing (runApp does not specify); THEN if it's not in shinyApp appParts$options; THEN use defaults |
-  # | yes         | no        | use shinyApp | if it's missing (runApp does not specify); THEN if it's in shinyApp appParts$options; THEN use shinyApp                                |
-  # | no          | yes       | use runApp   | if it's not missing (runApp specifies), use those                                                                                      |
-  # | yes         | yes       | use runApp   | if it's not missing (runApp specifies), use those                                                                                      |
-  #
-  # I tried to make this as compact and intuitive as possible,
-  # given that there are four distinct possibilities to check
-  appOps <- appParts$options
-  findVal <- function(arg, default) {
-    if (arg %in% names(appOps)) appOps[[arg]] else default
-  }
-
-  if (missing(port))
-    port <- findVal("port", port)
-  if (missing(launch.browser))
-    launch.browser <- findVal("launch.browser", launch.browser)
-  if (missing(host))
-    host <- findVal("host", host)
-  if (missing(quiet))
-    quiet <- findVal("quiet", quiet)
-  if (missing(display.mode))
-    display.mode <- findVal("display.mode", display.mode)
-  if (missing(test.mode))
-    test.mode <- findVal("test.mode", test.mode)
-
-  if (is.null(host) || is.na(host)) host <- '0.0.0.0'
-
-  workerId(workerId)
-
-  if (inShinyServer()) {
-    # If SHINY_PORT is set, we're running under Shiny Server. Check the version
-    # to make sure it is compatible. Older versions of Shiny Server don't set
-    # SHINY_SERVER_VERSION, those will return "" which is considered less than
-    # any valid version.
-    ver <- Sys.getenv('SHINY_SERVER_VERSION')
-    if (utils::compareVersion(ver, .shinyServerMinVersion) < 0) {
-      warning('Shiny Server v', .shinyServerMinVersion,
-              ' or later is required; please upgrade!')
-    }
-  }
-
-  # Showcase mode is disabled by default; it must be explicitly enabled in
-  # either the DESCRIPTION file for directory-based apps, or via
-  # the display.mode parameter. The latter takes precedence.
-  setShowcaseDefault(0)
-
-  .globals$testMode <- test.mode
-  if (test.mode) {
-    message("Running application in test mode.")
-  }
-
-  # If appDir specifies a path, and display mode is specified in the
-  # DESCRIPTION file at that path, apply it here.
-  if (is.character(appDir)) {
-    # if appDir specifies a .R file (single-file Shiny app), look for the
-    # DESCRIPTION in the parent directory
-    desc <- file.path.ci(
-      if (tolower(tools::file_ext(appDir)) == "r")
-        dirname(appDir)
-      else
-        appDir, "DESCRIPTION")
-    if (file.exists(desc)) {
-      con <- file(desc, encoding = checkEncoding(desc))
-      on.exit(close(con), add = TRUE)
-      settings <- read.dcf(con)
-      if ("DisplayMode" %in% colnames(settings)) {
-        mode <- settings[1, "DisplayMode"]
-        if (mode == "Showcase") {
-          setShowcaseDefault(1)
-          if ("IncludeWWW" %in% colnames(settings)) {
-            .globals$IncludeWWW <- as.logical(settings[1, "IncludeWWW"])
-            if (is.na(.globals$IncludeWWW)) {
-              stop("In your Description file, `IncludeWWW` ",
-                   "must be set to `True` (default) or `False`")
-            }
-          } else {
-            .globals$IncludeWWW <- TRUE
-          }
-        }
-      }
-    }
-  }
-
-  ## default is to show the .js, .css and .html files in the www directory
-  ## (if not in showcase mode, this variable will simply be ignored)
-  if (is.null(.globals$IncludeWWW) || is.na(.globals$IncludeWWW)) {
-    .globals$IncludeWWW <- TRUE
-  }
-
-  # If display mode is specified as an argument, apply it (overriding the
-  # value specified in DESCRIPTION, if any).
-  display.mode <- match.arg(display.mode)
-  if (display.mode == "normal") {
-    setShowcaseDefault(0)
-  }
-  else if (display.mode == "showcase") {
-    setShowcaseDefault(1)
-  }
-
-  # determine port if we need to
-  if (is.null(port)) {
-
-    # Try up to 20 random ports. If we don't succeed just plow ahead
-    # with the final value we tried, and let the "real" startServer
-    # somewhere down the line fail and throw the error to the user.
-    #
-    # If we (think we) succeed, save the value as .globals$lastPort,
-    # and try that first next time the user wants a random port.
-
-    for (i in 1:20) {
-      if (!is.null(.globals$lastPort)) {
-        port <- .globals$lastPort
-        .globals$lastPort <- NULL
-      }
-      else {
-        # Try up to 20 random ports
-        while (TRUE) {
-          port <- p_randomInt(3000, 8000)
-          # Reject ports in this range that are considered unsafe by Chrome
-          # http://superuser.com/questions/188058/which-ports-are-considered-unsafe-on-chrome
-          # https://github.com/rstudio/shiny/issues/1784
-          if (!port %in% c(3659, 4045, 6000, 6665:6669, 6697)) {
-            break
-          }
-        }
-      }
-
-      # Test port to see if we can use it
-      tmp <- try(startServer(host, port, list()), silent=TRUE)
-      if (!inherits(tmp, 'try-error')) {
-        stopServer(tmp)
-        .globals$lastPort <- port
-        break
-      }
-    }
-  }
-
-  # Extract appOptions (which is a list) and store them as shinyOptions, for
-  # this app. (This is the only place we have to store settings that are
-  # accessible both the UI and server portion of the app.)
-  unconsumeAppOptions(appParts$appOptions)
-
-  # Set up the onStop before we call onStart, so that it gets called even if an
-  # error happens in onStart.
-  if (!is.null(appParts$onStop))
-    on.exit(appParts$onStop(), add = TRUE)
-  if (!is.null(appParts$onStart))
-    appParts$onStart()
-
-  server <- startApp(appParts, port, host, quiet)
-
-  # Make the httpuv server object accessible. Needed for calling
-  # addResourcePath while app is running.
-  shinyOptions(server = server)
-
-  on.exit({
-    stopServer(server)
-  }, add = TRUE)
-
-  if (!is.character(port)) {
-    browseHost <- host
-    if (identical(host, "0.0.0.0")) {
-      # http://0.0.0.0/ doesn't work on QtWebKit (i.e. RStudio viewer)
-      browseHost <- "127.0.0.1"
-    } else if (identical(host, "::")) {
-      browseHost <- "::1"
-    }
-
-    if (httpuv::ipFamily(browseHost) == 6L) {
-      browseHost <- paste0("[", browseHost, "]")
-    }
-
-    appUrl <- paste("http://", browseHost, ":", port, sep="")
-    if (is.function(launch.browser))
-      launch.browser(appUrl)
-    else if (launch.browser)
-      utils::browseURL(appUrl)
-  } else {
-    appUrl <- NULL
-  }
-
-  # call application hooks
-  callAppHook("onAppStart", appUrl)
-  on.exit({
-    callAppHook("onAppStop", appUrl)
-  }, add = TRUE)
-
-  .globals$reterror <- NULL
-  .globals$retval <- NULL
-  .globals$stopped <- FALSE
-  # Top-level ..stacktraceoff..; matches with ..stacktraceon in observe(),
-  # reactive(), Callbacks$invoke(), and others
-  ..stacktraceoff..(
-    captureStackTraces({
-      while (!.globals$stopped) {
-        ..stacktracefloor..(serviceApp())
-      }
-    })
-  )
-
-  if (isTRUE(.globals$reterror)) {
-    stop(.globals$retval)
-  }
-  else if (.globals$retval$visible)
-    .globals$retval$value
-  else
-    invisible(.globals$retval$value)
-}
-
-#' Stop the currently running Shiny app
-#'
-#' Stops the currently running Shiny app, returning control to the caller of
-#' [runApp()].
-#'
-#' @param returnValue The value that should be returned from
-#'   [runApp()].
-#' @export
-stopApp <- function(returnValue = invisible()) {
-  # reterror will indicate whether retval is an error (i.e. it should be passed
-  # to stop() when the serviceApp loop stops) or a regular value (in which case
-  # it should simply be returned with the appropriate visibility).
-  .globals$reterror <- FALSE
-  ..stacktraceoff..(
-    tryCatch(
-      {
-        captureStackTraces(
-          .globals$retval <- withVisible(..stacktraceon..(force(returnValue)))
-        )
-      },
-      error = function(e) {
-        .globals$retval <- e
-        .globals$reterror <- TRUE
-      }
-    )
-  )
-
-  .globals$stopped <- TRUE
-  httpuv::interrupt()
-}
-
-#' Run Shiny Example Applications
-#'
-#' Launch Shiny example applications, and optionally, your system's web browser.
-#'
-#' @param example The name of the example to run, or `NA` (the default) to
-#'   list the available examples.
-#' @param port The TCP port that the application should listen on. Defaults to
-#'   choosing a random port.
-#' @param launch.browser If true, the system's default web browser will be
-#'   launched automatically after the app is started. Defaults to true in
-#'   interactive sessions only.
-#' @param host The IPv4 address that the application should listen on. Defaults
-#'   to the `shiny.host` option, if set, or `"127.0.0.1"` if not.
-#' @param display.mode The mode in which to display the example. Defaults to
-#'   `showcase`, but may be set to `normal` to see the example without
-#'   code or commentary.
-#'
-#' @examples
-#' ## Only run this example in interactive R sessions
-#' if (interactive()) {
-#'   # List all available examples
-#'   runExample()
-#'
-#'   # Run one of the examples
-#'   runExample("01_hello")
-#'
-#'   # Print the directory containing the code for all examples
-#'   system.file("examples", package="shiny")
-#' }
-#' @export
-runExample <- function(example=NA,
-                       port=NULL,
-                       launch.browser=getOption('shiny.launch.browser',
-                                                interactive()),
-                       host=getOption('shiny.host', '127.0.0.1'),
-                       display.mode=c("auto", "normal", "showcase")) {
-  examplesDir <- system.file('examples', package='shiny')
-  dir <- resolve(examplesDir, example)
-  if (is.null(dir)) {
-    if (is.na(example)) {
-      errFun <- message
-      errMsg <- ''
-    }
-    else {
-      errFun <- stop
-      errMsg <- paste('Example', example, 'does not exist. ')
-    }
-
-    errFun(errMsg,
-           'Valid examples are "',
-           paste(list.files(examplesDir), collapse='", "'),
-           '"')
-  }
-  else {
-    runApp(dir, port = port, host = host, launch.browser = launch.browser,
-           display.mode = display.mode)
-  }
-}
-
-#' Run a gadget
-#'
-#' Similar to `runApp`, but handles `input$cancel` automatically, and
-#' if running in RStudio, defaults to viewing the app in the Viewer pane.
-#'
-#' @param app Either a Shiny app object as created by
-#'   [`shinyApp()`][shiny] et al, or, a UI object.
-#' @param server Ignored if `app` is a Shiny app object; otherwise, passed
-#'   along to `shinyApp` (i.e. `shinyApp(ui = app, server = server)`).
-#' @param port See [`runApp()`][shiny].
-#' @param viewer Specify where the gadget should be displayed--viewer pane,
-#'   dialog window, or external browser--by passing in a call to one of the
-#'   [viewer()] functions.
-#' @param stopOnCancel If `TRUE` (the default), then an `observeEvent`
-#'   is automatically created that handles `input$cancel` by calling
-#'   `stopApp()` with an error. Pass `FALSE` if you want to handle
-#'   `input$cancel` yourself.
-#' @return The value returned by the gadget.
-#'
-#' @examples
-#' \dontrun{
-#' library(shiny)
-#'
-#' ui <- fillPage(...)
-#'
-#' server <- function(input, output, session) {
-#'   ...
-#' }
-#'
-#' # Either pass ui/server as separate arguments...
-#' runGadget(ui, server)
-#'
-#' # ...or as a single app object
-#' runGadget(shinyApp(ui, server))
-#' }
-#' @export
-runGadget <- function(app, server = NULL, port = getOption("shiny.port"),
-  viewer = paneViewer(), stopOnCancel = TRUE) {
-
-  if (!is.shiny.appobj(app)) {
-    app <- shinyApp(app, server)
-  }
-
-  if (isTRUE(stopOnCancel)) {
-    app <- decorateServerFunc(app, function(input, output, session) {
-      observeEvent(input$cancel, {
-        stopApp(stop("User cancel", call. = FALSE))
-      })
-    })
-  }
-
-  if (is.null(viewer)) {
-    viewer <- utils::browseURL
-  }
-
-  shiny::runApp(app, port = port, launch.browser = viewer)
-}
-
 # Add custom functionality to a Shiny app object's server func
 decorateServerFunc <- function(appobj, serverFunc) {
  origServerFuncSource <- appobj$serverFuncSource
@@ -1183,62 +505,6 @@ decorateServerFunc <- function(appobj, serverFunc) {
  appobj
 }

-#' Viewer options
-#'
-#' Use these functions to control where the gadget is displayed in RStudio (or
-#' other R environments that emulate RStudio's viewer pane/dialog APIs). If
-#' viewer APIs are not available in the current R environment, then the gadget
-#' will be displayed in the system's default web browser (see
-#' [utils::browseURL()]).
-#'
-#' @return A function that takes a single `url` parameter, suitable for
-#'   passing as the `viewer` argument of [runGadget()].
-#'
-#' @rdname viewer
-#' @name viewer
-NULL
-
-#' @param minHeight The minimum height (in pixels) desired to show the gadget in
-#'   the viewer pane. If a positive number, resize the pane if necessary to show
-#'   at least that many pixels. If `NULL`, use the existing viewer pane
-#'   size. If `"maximize"`, use the maximum available vertical space.
-#' @rdname viewer
-#' @export
-paneViewer <- function(minHeight = NULL) {
-  viewer <- getOption("viewer")
-  if (is.null(viewer)) {
-    utils::browseURL
-  } else {
-    function(url) {
-      viewer(url, minHeight)
-    }
-  }
-}
-
-#' @param dialogName The window title to display for the dialog.
-#' @param width,height The desired dialog width/height, in pixels.
-#' @rdname viewer
-#' @export
-dialogViewer <- function(dialogName, width = 600, height = 600) {
-  viewer <- getOption("shinygadgets.showdialog")
-  if (is.null(viewer)) {
-    utils::browseURL
-  } else {
-    function(url) {
-      viewer(dialogName, url, width = width, height = height)
-    }
-  }
-}
-
-#' @param browser See [utils::browseURL()].
-#' @rdname viewer
-#' @export
-browserViewer <- function(browser = getOption("browser")) {
-  function(url) {
-    utils::browseURL(url, browser = browser)
-  }
-}
-
 # Returns TRUE if we're running in Shiny Server or other hosting environment,
 # otherwise returns FALSE.
 inShinyServer <- function() {
--- a/R/shiny-options.R
+++ b/R/shiny-options.R
@@ -51,6 +51,10 @@ getShinyOption <- function(name, default = NULL) {
 #'   The default polling interval is 500 milliseconds. You can change this
 #'   by setting e.g. `options(shiny.autoreload.interval = 2000)` (every
 #'   two seconds).}
+#' \item{bootstraplib (defaults to `FALSE`)}{When a global **bootstraplib** theme
+#'   is set (via [bootstraplib::bs_theme_new()]), should **shiny** compile it
+#'   (via [bootstraplib::bootstrap()]) and include the result with [bootstrapPage()]
+#'   as well as use it to set better default styles for input widgets (e.g., [selectInput()])?}
 #' \item{shiny.deprecation.messages (defaults to `TRUE`)}{This controls whether messages for
 #'   deprecated functions in Shiny will be printed. See
 #'   [shinyDeprecated()] for more information.}
--- a/R/shiny.R
+++ b/R/shiny.R
@@ -474,8 +474,22 @@ ShinySession <- R6Class(

          if (!is.null(params$input)) {

-            allInputs <- isolate(
-              reactiveValuesToList(self$input, all.names = TRUE)
+            # The isolate and reactiveValuesToList calls are being executed
+            # in a non-reactive context, but will produce output in the reactlog
+            # Seeing new, unlabelled reactives ONLY when calling shinytest is
+            # jarring / frustrating to debug.
+            # Since labeling these values is not currently supported in reactlog,
+            # it is better to hide them.
+            # Hopefully we can replace this with something like
+            # `with_reactlog_group("shinytest", {})`, which would visibily explain
+            # why the new reactives are added when calling shinytest
+            withr::with_options(
+              list(shiny.reactlog = FALSE),
+              {
+                allInputs <- isolate(
+                  reactiveValuesToList(self$input, all.names = TRUE)
+                )
+              }
            )

            # If params$input is "1", return all; otherwise return just the
--- a/R/shinyapp.R
+++ b/R/shinyapp.R
@@ -579,84 +579,3 @@ deferredIFrame <- function(path, width, height) {
    class = "shiny-frame shiny-frame-deferred"
  )
 }
-
-#' Knitr S3 methods
-#'
-#' These S3 methods are necessary to help Shiny applications and UI chunks embed
-#' themselves in knitr/rmarkdown documents.
-#'
-#' @name knitr_methods
-#' @param x Object to knit_print
-#' @param ... Additional knit_print arguments
-NULL
-
-# If there's an R Markdown runtime option set but it isn't set to Shiny, then
-# return a warning indicating the runtime is inappropriate for this object.
-# Returns NULL in all other cases.
-shiny_rmd_warning <- function() {
-  runtime <- knitr::opts_knit$get("rmarkdown.runtime")
-  if (!is.null(runtime) && runtime != "shiny")
-    # note that the RStudio IDE checks for this specific string to detect Shiny
-    # applications in static document
-    list(structure(
-      "Shiny application in a static R Markdown document",
-      class = "rmd_warning"))
-  else
-    NULL
-}
-
-#' @rdname knitr_methods
-knit_print.shiny.appobj <- function(x, ...) {
-  opts <- x$options %OR% list()
-  width <- if (is.null(opts$width)) "100%" else opts$width
-  height <- if (is.null(opts$height)) "400" else opts$height
-
-  runtime <- knitr::opts_knit$get("rmarkdown.runtime")
-  if (!is.null(runtime) && runtime != "shiny") {
-    # If not rendering to a Shiny document, create a box exactly the same
-    # dimensions as the Shiny app would have had (so the document continues to
-    # flow as it would have with the app), and display a diagnostic message
-    width <- validateCssUnit(width)
-    height <- validateCssUnit(height)
-    output <- tags$div(
-      style=paste("width:", width, "; height:", height, "; text-align: center;",
-                  "box-sizing: border-box;", "-moz-box-sizing: border-box;",
-                  "-webkit-box-sizing: border-box;"),
-      class="muted well",
-      "Shiny applications not supported in static R Markdown documents")
-  }
-  else {
-    path <- addSubApp(x)
-    output <- deferredIFrame(path, width, height)
-  }
-
-  # If embedded Shiny apps ever have JS/CSS dependencies (like pym.js) we'll
-  # need to grab those and put them in meta, like in knit_print.shiny.tag. But
-  # for now it's not an issue, so just return the HTML and warning.
-
-  knitr::asis_output(htmlPreserve(format(output, indent=FALSE)),
-                     meta = shiny_rmd_warning(), cacheable = FALSE)
-}
-
-# Let us use a nicer syntax in knitr chunks than literally
-# calling output$value <- renderFoo(...) and fooOutput().
-#' @rdname knitr_methods
-#' @param inline Whether the object is printed inline.
-knit_print.shiny.render.function <- function(x, ..., inline = FALSE) {
-  x <- htmltools::as.tags(x, inline = inline)
-  output <- knitr::knit_print(tagList(x))
-  attr(output, "knit_cacheable") <- FALSE
-  attr(output, "knit_meta") <- append(attr(output, "knit_meta"),
-                                      shiny_rmd_warning())
-  output
-}
-
-# Lets us drop reactive expressions directly into a knitr chunk and have the
-# value printed out! Nice for teaching if nothing else.
-#' @rdname knitr_methods
-knit_print.reactive <- function(x, ..., inline = FALSE) {
-  renderFunc <- if (inline) renderText else renderPrint
-  knitr::knit_print(renderFunc({
-    x()
-  }), inline = inline)
-}
--- a/R/shinywrappers.R
+++ b/R/shinywrappers.R
@@ -372,35 +372,35 @@ isTemp <- function(path, tempDir = tempdir(), mustExist) {
  return(substr(path, 1, nchar(tempDir)) == tempDir)
 }

-#' Printable Output
+#' Text Output
 #'
-#' Makes a reactive version of the given function that captures any printed
-#' output, and also captures its printable result (unless
-#' [base::invisible()]), into a string. The resulting function is suitable
-#' for assigning to an  `output` slot.
+#' @description
+#' `renderPrint()` prints the result of `expr`, while `renderText()` pastes it
+#' together into a single string. `renderPrint()` is equivalent to [print()];
+#' `renderText()` is equivalent to [cat()]. Both functions capture all other
+#' printed output generated while evaluating `expr`.
 #'
+#' `renderPrint()` is usually paired with [verbatimTextOutput()];
+#' `renderText()` is usually paired with [textOutput()].
+#'
+#' @details
 #' The corresponding HTML output tag can be anything (though `pre` is
 #' recommended if you need a monospace font and whitespace preserved) and should
 #' have the CSS class name `shiny-text-output`.
 #'
-#' The result of executing `func` will be printed inside a
-#' [utils::capture.output()] call.
+#' @return
+#' For `renderPrint()`, note the given expression returns `NULL` then `NULL`
+#' will actually be visible in the output. To display nothing, make your
+#' function return [invisible()].
 #'
-#' Note that unlike most other Shiny output functions, if the given function
-#' returns `NULL` then `NULL` will actually be visible in the output.
-#' To display nothing, make your function return [base::invisible()].
-#'
-#' @param expr An expression that may print output and/or return a printable R
-#'   object.
-#' @param env The environment in which to evaluate `expr`.
+#' @param expr An expression to evaluate.
+#' @param env The environment in which to evaluate `expr`. For expert use only.
 #' @param quoted Is `expr` a quoted expression (with `quote()`)? This
 #'   is useful if you want to save an expression in a variable.
-#' @param width The value for `[options][base::options]('width')`.
+#' @param width Width of printed output.
 #' @param outputArgs A list of arguments to be passed through to the implicit
-#'   call to [verbatimTextOutput()] when `renderPrint` is used
-#'   in an interactive R Markdown document.
-#' @seealso [renderText()] for displaying the value returned from a
-#'   function, instead of the printed output.
+#'   call to [verbatimTextOutput()] or [textOutput()] when the functions are
+#'   used in an interactive RMarkdown document.
 #'
 #' @example res/text-example.R
 #' @export
@@ -476,35 +476,10 @@ createRenderPrintPromiseDomain <- function(width) {
  )
 }

-#' Text Output
-#'
-#' Makes a reactive version of the given function that also uses
-#' [base::cat()] to turn its result into a single-element character
-#' vector.
-#'
-#' The corresponding HTML output tag can be anything (though `pre` is
-#' recommended if you need a monospace font and whitespace preserved) and should
-#' have the CSS class name `shiny-text-output`.
-#'
-#' The result of executing `func` will passed to `cat`, inside a
-#' [utils::capture.output()] call.
-#'
-#' @param expr An expression that returns an R object that can be used as an
-#'   argument to `cat`.
-#' @param env The environment in which to evaluate `expr`.
-#' @param quoted Is `expr` a quoted expression (with `quote()`)? This
-#'   is useful if you want to save an expression in a variable.
-#' @param outputArgs A list of arguments to be passed through to the implicit
-#'   call to [textOutput()] when `renderText` is used in an
-#'   interactive R Markdown document.
 #' @param sep A separator passed to `cat` to be appended after each
 #'   element.
-#'
-#' @seealso [renderPrint()] for capturing the print output of a
-#'   function, rather than the returned text value.
-#'
-#' @example res/text-example.R
 #' @export
+#' @rdname renderPrint
 renderText <- function(expr, env=parent.frame(), quoted=FALSE,
                       outputArgs=list(), sep=" ") {
  installExprFunction(expr, "func", env, quoted)
--- a/R/test-server.R
+++ b/R/test-server.R
@@ -1,19 +1,14 @@
-#' @noRd
-isModuleServer <- function(x) {
-  is.function(x) && names(formals(x))[1] == "id"
-}
-
 #' Reactive testing for Shiny server functions and modules
 #'
 #' A way to test the reactive interactions in Shiny applications. Reactive
 #' interactions are defined in the server function of applications and in
 #' modules.
-#' @param app The path to an application or module to test. In addition to
-#'   paths, applications may be represented by any object suitable for coercion
-#'   to an `appObj` by [`as.shiny.appobj`]. Application server functions must
-#'   include a `session` argument in order to be tested. If `app` is `NULL` or
-#'   not supplied, the nearest enclosing directory that is a Shiny app, starting
-#'   with the current directory, is used.
+#' @param app A server function (i.e. a function with `input`, `output`,
+#'   and `session`), or a module function (i.e. a function with first
+#'   argument `id` that calls [moduleServer()].
+#'
+#'   You can also provide an app, a path an app, or anything that
+#'   [`as.shiny.appobj()`] can handle.
 #' @param expr Test code containing expectations. The objects from inside the
 #'   server function environment will be made available in the environment of
 #'   the test expression (this is done using a data mask with
@@ -30,7 +25,19 @@ isModuleServer <- function(x) {
 #' @include mock-session.R
 #' @rdname testServer
 #' @examples
-#' server <- function(id, multiplier = 2, prefix = "I am ") {
+#' # Testing a server function  ----------------------------------------------
+#' server <- function(input, output, session) {
+#'   x <- reactive(input$a * input$b)
+#' }
+#'
+#' testServer(server, {
+#'   session$setInputs(a = 2, b = 3)
+#'   stopifnot(x() == 6)
+#' })
+#'
+#'
+#' # Testing a module --------------------------------------------------------
+#' myModuleServer <- function(id, multiplier = 2, prefix = "I am ") {
 #'   moduleServer(id, function(input, output, session) {
 #'     myreactive <- reactive({
 #'       input$x * multiplier
@@ -41,7 +48,7 @@ isModuleServer <- function(x) {
 #'   })
 #' }
 #'
-#' testServer(server, args = list(multiplier = 2), {
+#' testServer(myModuleServer, args = list(multiplier = 2), {
 #'   session$setInputs(x = 1)
 #'   # You're also free to use third-party
 #'   # testing packages like testthat:
@@ -56,74 +63,96 @@ isModuleServer <- function(x) {
 #' })
 #' @export
 testServer <- function(app = NULL, expr, args = list(), session = MockShinySession$new()) {
-
  require(shiny)

  if (!is.null(getDefaultReactiveDomain()))
    stop("testServer() is for use only within tests and may not indirectly call itself.")

+  on.exit(if (!session$isClosed()) session$close(), add = TRUE)
  quosure <- rlang::enquo(expr)

-  on.exit(if (!session$isClosed()) session$close())
-
-  withMockContext <- function(expr) {
-    isolate(
-      withReactiveDomain(session, {
-        withr::with_options(list(`shiny.allowoutputreads` = TRUE), {
-          withLocalOptions({
-            # Sets a cache for renderCachedPlot() with cache = "app" to use.
-            shinyOptions("cache" = session$appcache)
-            expr
-          })
-        })
-      })
-    )
-  }
-
  if (isModuleServer(app)) {
    if (!("id" %in% names(args)))
      args[["id"]] <- session$genId()
    # app is presumed to be a module, and modules may take additional arguments,
    # so splice in any args.
-    withMockContext(rlang::exec(app, !!!args))
+    withMockContext(session, rlang::exec(app, !!!args))

    # If app is a module, then we must use both the module function's immediate
    # environment and also its enclosing environment to construct the mask.
    parent_clone <- rlang::env_clone(parent.env(session$env))
    clone <- rlang::env_clone(session$env, parent_clone)
    mask <- rlang::new_data_mask(clone, parent_clone)
-    withMockContext(rlang::eval_tidy(quosure, mask, rlang::caller_env()))
-  } else {
-    if (is.null(app)) {
-      app <- findEnclosingApp(".")
-    }
-
-    appobj <- as.shiny.appobj(app)
-    if (!is.null(appobj$onStart))
-      appobj$onStart()
-    # Ensure appobj$onStop() is called, and the current directory is restored,
-    # regardless of whether invoking the server function is successful.
-    tryCatch({
-      server <- appobj$serverFuncSource()
-      if (! "session" %in% names(formals(server)))
-        stop("Tested application server functions must declare input, output, and session arguments.")
-      body(server) <- rlang::expr({
-        session$setEnv(base::environment())
-        !!body(server)
-      })
-      if (length(args))
-        stop("Arguments were provided to a server function.")
-      withMockContext(server(input = session$input, output = session$output, session = session))
-    }, finally = {
-      if (!is.null(appobj$onStop))
-        appobj$onStop()
-    })
-
-    # If app is a server, we use only the server function's immediate
-    # environment to construct the mask.
-    mask <- rlang::new_data_mask(rlang::env_clone(session$env))
-    withMockContext(rlang::eval_tidy(quosure, mask, rlang::caller_env()))
+    withMockContext(session, rlang::eval_tidy(quosure, mask, rlang::caller_env()))
+    return(invisible())
  }

+  if (is.null(app)) {
+    path <- findEnclosingApp(".")
+    app <- shinyAppDir(path)
+  } else if (isServer(app)) {
+    app <- shinyApp(fluidPage(), app)
+  } else {
+    app <- as.shiny.appobj(app)
+  }
+
+  if (!is.null(app$onStart))
+    app$onStart()
+  if (!is.null(app$onStop))
+    on.exit(app$onStop(), add = TRUE)
+
+  server <- app$serverFuncSource()
+  if (!"session" %in% names(formals(server)))
+    stop("Tested application server functions must declare input, output, and session arguments.")
+  if (length(args))
+    stop("Arguments were provided to a server function.")
+
+  body(server) <- rlang::expr({
+    session$setEnv(base::environment())
+    !!body(server)
+  })
+  withMockContext(session,
+    server(input = session$input, output = session$output, session = session)
+  )
+
+  # # If app is a server, we use only the server function's immediate
+  # # environment to construct the mask.
+  mask <- rlang::new_data_mask(rlang::env_clone(session$env))
+  withMockContext(session, {
+    rlang::eval_tidy(quosure, mask, rlang::caller_env())
+  })
  invisible()
 }
+
+withMockContext <- function(session, expr) {
+  isolate(
+    withReactiveDomain(session, {
+      withr::with_options(list(`shiny.allowoutputreads` = TRUE), {
+        withLocalOptions({
+          # Sets a cache for renderCachedPlot() with cache = "app" to use.
+          shinyOptions("cache" = session$appcache)
+          expr
+        })
+      })
+    })
+  )
+}
+
+
+# Helpers -----------------------------------------------------------------
+
+isModuleServer <- function(x) {
+  is.function(x) && names(formals(x))[[1]] == "id"
+}
+
+isServer <- function(x) {
+  if (!is.function(x)) {
+    return(FALSE)
+  }
+
+  if (length(formals(x)) < 3) {
+    return(FALSE)
+  }
+
+  identical(names(formals(x))[1:3], c("input", "output", "session"))
+}
--- a/R/update-input.R
+++ b/R/update-input.R
@@ -1,8 +1,7 @@
 #' Change the value of a text input on the client
 #'
 #' @template update-input
-#' @param value The value to set for the input object.
-#' @param placeholder The placeholder to set for the input object.
+#' @inheritParams textInput
 #'
 #' @seealso [textInput()]
 #'
@@ -82,7 +81,7 @@ updateTextAreaInput <- updateTextInput
 #' Change the value of a checkbox input on the client
 #'
 #' @template update-input
-#' @param value The value to set for the input object.
+#' @inheritParams checkboxInput
 #'
 #' @seealso [checkboxInput()]
 #'
@@ -116,8 +115,7 @@ updateCheckboxInput <- function(session, inputId, label = NULL, value = NULL) {
 #' Change the label or icon of an action button on the client
 #'
 #' @template update-input
-#' @param icon The icon to set for the input object. To remove the
-#' current icon, use `icon=character(0)`.
+#' @inheritParams actionButton
 #'
 #' @seealso [actionButton()]
 #'
@@ -180,12 +178,7 @@ updateActionLink <- updateActionButton
 #' Change the value of a date input on the client
 #'
 #' @template update-input
-#' @param value The desired date value. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format. Supply `NA` to clear the date.
-#' @param min The minimum allowed date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format.
-#' @param max The maximum allowed date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format.
+#' @inheritParams dateInput
 #'
 #' @seealso [dateInput()]
 #'
@@ -228,14 +221,7 @@ updateDateInput <- function(session, inputId, label = NULL, value = NULL,
 #' Change the start and end values of a date range input on the client
 #'
 #' @template update-input
-#' @param start The start date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format. Supplying `NA` clears the start date.
-#' @param end The end date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format. Supplying `NA` clears the end date.
-#' @param min The minimum allowed date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format.
-#' @param max The maximum allowed date. Either a Date object, or a string in
-#'   `yyyy-mm-dd` format.
+#' @inheritParams dateRangeInput
 #'
 #' @seealso [dateRangeInput()]
 #'
@@ -290,7 +276,7 @@ updateDateRangeInput <- function(session, inputId, label = NULL,
 #'   `shinyServer`.
 #' @param inputId The id of the `tabsetPanel`, `navlistPanel`,
 #' or `navbarPage` object.
-#' @param selected The name of the tab to make active.
+#' @inheritParams tabsetPanel
 #'
 #' @seealso [tabsetPanel()], [navlistPanel()],
 #' [navbarPage()]
@@ -339,10 +325,7 @@ updateNavlistPanel <- updateTabsetPanel
 #' Change the value of a number input on the client
 #'
 #' @template update-input
-#' @param value The value to set for the input object.
-#' @param min Minimum value.
-#' @param max Maximum value.
-#' @param step Step size.
+#' @inheritParams numericInput
 #'
 #' @seealso [numericInput()]
 #'
@@ -389,12 +372,7 @@ updateNumericInput <- function(session, inputId, label = NULL, value = NULL,
 #' Change the value of a slider input on the client.
 #'
 #' @template update-input
-#' @param value The value to set for the input object.
-#' @param min Minimum value.
-#' @param max Maximum value.
-#' @param step Step size.
-#' @param timeFormat Date and POSIXt formatting.
-#' @param timezone The timezone offset for POSIXt objects.
+#' @inheritParams sliderInput
 #'
 #' @seealso [sliderInput()]
 #'
@@ -617,7 +595,7 @@ updateSelectInput <- function(session, inputId, label = NULL, choices = NULL,
                              selected = NULL) {
  choices <- if (!is.null(choices)) choicesWithNames(choices)
  if (!is.null(selected)) selected <- as.character(selected)
-  options <- if (!is.null(choices)) selectOptions(choices, selected)
+  options <- if (!is.null(choices)) selectOptions(choices, selected, inputId, FALSE)
  message <- dropNulls(list(label = label, options = options, value = selected))
  session$sendInputMessage(inputId, message)
 }
--- a/R/utils.R
+++ b/R/utils.R
@@ -1594,7 +1594,6 @@ URLencode <- function(value, reserved = FALSE) {
 # so that strings like "2016-08-9" are expanded to "2016-08-09"
 dateYMD <- function(date = NULL, argName = "value") {
  if (!length(date)) return(NULL)
-  if (length(date) > 1) warning("Expected `", argName, "` to be of length 1.")
  tryCatch(date <- format(as.Date(date), "%Y-%m-%d"),
    error = function(e) {
      warning(
--- a/R/viewer.R
+++ b/R/viewer.R
@@ -0,0 +1,55 @@
+#' Viewer options
+#'
+#' Use these functions to control where the gadget is displayed in RStudio (or
+#' other R environments that emulate RStudio's viewer pane/dialog APIs). If
+#' viewer APIs are not available in the current R environment, then the gadget
+#' will be displayed in the system's default web browser (see
+#' [utils::browseURL()]).
+#'
+#' @return A function that takes a single `url` parameter, suitable for
+#'   passing as the `viewer` argument of [runGadget()].
+#'
+#' @rdname viewer
+#' @name viewer
+NULL
+
+#' @param minHeight The minimum height (in pixels) desired to show the gadget in
+#'   the viewer pane. If a positive number, resize the pane if necessary to show
+#'   at least that many pixels. If `NULL`, use the existing viewer pane
+#'   size. If `"maximize"`, use the maximum available vertical space.
+#' @rdname viewer
+#' @export
+paneViewer <- function(minHeight = NULL) {
+  viewer <- getOption("viewer")
+  if (is.null(viewer)) {
+    utils::browseURL
+  } else {
+    function(url) {
+      viewer(url, minHeight)
+    }
+  }
+}
+
+#' @param dialogName The window title to display for the dialog.
+#' @param width,height The desired dialog width/height, in pixels.
+#' @rdname viewer
+#' @export
+dialogViewer <- function(dialogName, width = 600, height = 600) {
+  viewer <- getOption("shinygadgets.showdialog")
+  if (is.null(viewer)) {
+    utils::browseURL
+  } else {
+    function(url) {
+      viewer(dialogName, url, width = width, height = height)
+    }
+  }
+}
+
+#' @param browser See [utils::browseURL()].
+#' @rdname viewer
+#' @export
+browserViewer <- function(browser = getOption("browser")) {
+  function(url) {
+    utils::browseURL(url, browser = browser)
+  }
+}
--- a/inst/www/shared/datepicker/css/bootstrap-datepicker3.css
+++ b/inst/www/shared/datepicker/css/bootstrap-datepicker3.css
@@ -1,28 +1,30 @@
-/*!
- * Datepicker for Bootstrap v1.6.4 (https://github.com/eternicode/bootstrap-datepicker)
- *
- * Copyright 2012 Stefan Petre
- * Improvements by Andrew Rowls
- * Licensed under the Apache License v2.0 (http://www.apache.org/licenses/LICENSE-2.0)
- */
 .datepicker {
-  border-radius: 4px;
+  border-radius: 0.25rem;
  direction: ltr;
 }
+
 .datepicker-inline {
  width: 220px;
 }
-.datepicker.datepicker-rtl {
+
+.datepicker-rtl {
  direction: rtl;
 }
-.datepicker.datepicker-rtl table tr td span {
+
+.datepicker-rtl.dropdown-menu {
+  left: auto;
+}
+
+.datepicker-rtl table tr td span {
  float: right;
 }
+
 .datepicker-dropdown {
  top: 0;
  left: 0;
  padding: 4px;
 }
+
 .datepicker-dropdown:before {
  content: '';
  display: inline-block;
@@ -33,6 +35,7 @@
  border-bottom-color: rgba(0, 0, 0, 0.2);
  position: absolute;
 }
+
 .datepicker-dropdown:after {
  content: '';
  display: inline-block;
@@ -42,34 +45,43 @@
  border-top: 0;
  position: absolute;
 }
+
 .datepicker-dropdown.datepicker-orient-left:before {
  left: 6px;
 }
+
 .datepicker-dropdown.datepicker-orient-left:after {
  left: 7px;
 }
+
 .datepicker-dropdown.datepicker-orient-right:before {
  right: 6px;
 }
+
 .datepicker-dropdown.datepicker-orient-right:after {
  right: 7px;
 }
+
 .datepicker-dropdown.datepicker-orient-bottom:before {
  top: -7px;
 }
+
 .datepicker-dropdown.datepicker-orient-bottom:after {
  top: -6px;
 }
+
 .datepicker-dropdown.datepicker-orient-top:before {
  bottom: -7px;
  border-bottom: 0;
  border-top: 7px solid rgba(0, 0, 0, 0.15);
 }
+
 .datepicker-dropdown.datepicker-orient-top:after {
  bottom: -6px;
  border-bottom: 0;
  border-top: 6px solid #fff;
 }
+
 .datepicker table {
  margin: 0;
  -webkit-touch-callout: none;
@@ -79,424 +91,352 @@
  -ms-user-select: none;
  user-select: none;
 }
-.datepicker table tr td,
-.datepicker table tr th {
+
+.datepicker table tr td, .datepicker table tr th {
  text-align: center;
  width: 30px;
  height: 30px;
  border-radius: 4px;
  border: none;
 }
-.table-striped .datepicker table tr td,
-.table-striped .datepicker table tr th {
+
+.table-striped .datepicker table tr td, .table-striped .datepicker table tr th {
  background-color: transparent;
 }
-.datepicker table tr td.old,
-.datepicker table tr td.new {
-  color: #777777;
+
+.datepicker table tr td.old, .datepicker table tr td.new {
+  color: #6c757d;
 }
-.datepicker table tr td.day:hover,
-.datepicker table tr td.focused {
-  background: #eeeeee;
+
+.datepicker table tr td.day:hover, .datepicker table tr td.focused {
+  color: #212529;
+  background: #e9e9ea;
  cursor: pointer;
 }
-.datepicker table tr td.disabled,
-.datepicker table tr td.disabled:hover {
+
+.datepicker table tr td.disabled, .datepicker table tr td.disabled:hover {
  background: none;
-  color: #777777;
+  color: #6c757d;
  cursor: default;
 }
+
 .datepicker table tr td.highlighted {
-  color: #000;
-  background-color: #d9edf7;
-  border-color: #85c5e5;
+  color: #212529;
+  background-color: #d1ecf1;
+  border-color: #83ccd9;
  border-radius: 0;
 }
-.datepicker table tr td.highlighted:focus,
-.datepicker table tr td.highlighted.focus {
-  color: #000;
-  background-color: #afd9ee;
-  border-color: #298fc2;
+
+.datepicker table tr td.highlighted:focus, .datepicker table tr td.highlighted.focus {
+  color: #212529;
+  background-color: #bfd8dd;
+  border-color: #6aa2ad;
 }
+
 .datepicker table tr td.highlighted:hover {
-  color: #000;
-  background-color: #afd9ee;
-  border-color: #52addb;
+  color: #212529;
+  background-color: #79898d;
+  border-color: #77b8c4;
 }
-.datepicker table tr td.highlighted:active,
-.datepicker table tr td.highlighted.active {
-  color: #000;
-  background-color: #afd9ee;
-  border-color: #52addb;
+
+.datepicker table tr td.highlighted:active, .datepicker table tr td.highlighted.active {
+  color: #212529;
+  background-color: #bfd8dd;
+  border-color: #77b8c4;
 }
-.datepicker table tr td.highlighted:active:hover,
-.datepicker table tr td.highlighted.active:hover,
-.datepicker table tr td.highlighted:active:focus,
-.datepicker table tr td.highlighted.active:focus,
-.datepicker table tr td.highlighted:active.focus,
-.datepicker table tr td.highlighted.active.focus {
-  color: #000;
-  background-color: #91cbe8;
-  border-color: #298fc2;
+
+.datepicker table tr td.highlighted:active:hover, .datepicker table tr td.highlighted:active:focus, .datepicker table tr td.highlighted:active.focus, .datepicker table tr td.highlighted.active:hover, .datepicker table tr td.highlighted.active:focus, .datepicker table tr td.highlighted.active.focus {
+  color: #212529;
+  background-color: #b3cacf;
+  border-color: #6aa2ad;
 }
-.datepicker table tr td.highlighted.disabled:hover,
-.datepicker table tr td.highlighted[disabled]:hover,
+
+.datepicker table tr td.highlighted.disabled:hover, .datepicker table tr td.highlighted.disabled:focus, .datepicker table tr td.highlighted.disabled.focus, .datepicker table tr td.highlighted[disabled]:hover, .datepicker table tr td.highlighted[disabled]:focus, .datepicker table tr td.highlighted[disabled].focus,
 fieldset[disabled] .datepicker table tr td.highlighted:hover,
-.datepicker table tr td.highlighted.disabled:focus,
-.datepicker table tr td.highlighted[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.highlighted:focus,
-.datepicker table tr td.highlighted.disabled.focus,
-.datepicker table tr td.highlighted[disabled].focus,
 fieldset[disabled] .datepicker table tr td.highlighted.focus {
-  background-color: #d9edf7;
-  border-color: #85c5e5;
+  background-color: #d1ecf1;
+  border-color: #83ccd9;
 }
+
 .datepicker table tr td.highlighted.focused {
-  background: #afd9ee;
+  background: #aadce5;
 }
-.datepicker table tr td.highlighted.disabled,
-.datepicker table tr td.highlighted.disabled:active {
-  background: #d9edf7;
-  color: #777777;
+
+.datepicker table tr td.highlighted.disabled, .datepicker table tr td.highlighted.disabled:active {
+  background: #d1ecf1;
+  color: #6c757d;
 }
+
 .datepicker table tr td.today {
-  color: #000;
+  color: #212529;
  background-color: #ffdb99;
  border-color: #ffb733;
 }
-.datepicker table tr td.today:focus,
-.datepicker table tr td.today.focus {
-  color: #000;
-  background-color: #ffc966;
-  border-color: #b37400;
+
+.datepicker table tr td.today:focus, .datepicker table tr td.today.focus {
+  color: #212529;
+  background-color: #e9c98e;
+  border-color: #c89331;
 }
+
 .datepicker table tr td.today:hover {
-  color: #000;
-  background-color: #ffc966;
-  border-color: #f59e00;
+  color: #212529;
+  background-color: #908061;
+  border-color: #e4a532;
 }
-.datepicker table tr td.today:active,
-.datepicker table tr td.today.active {
-  color: #000;
-  background-color: #ffc966;
-  border-color: #f59e00;
+
+.datepicker table tr td.today:active, .datepicker table tr td.today.active {
+  color: #212529;
+  background-color: #e9c98e;
+  border-color: #e4a532;
 }
-.datepicker table tr td.today:active:hover,
-.datepicker table tr td.today.active:hover,
-.datepicker table tr td.today:active:focus,
-.datepicker table tr td.today.active:focus,
-.datepicker table tr td.today:active.focus,
-.datepicker table tr td.today.active.focus {
-  color: #000;
-  background-color: #ffbc42;
-  border-color: #b37400;
+
+.datepicker table tr td.today:active:hover, .datepicker table tr td.today:active:focus, .datepicker table tr td.today:active.focus, .datepicker table tr td.today.active:hover, .datepicker table tr td.today.active:focus, .datepicker table tr td.today.active.focus {
+  color: #212529;
+  background-color: #d9bc86;
+  border-color: #c89331;
 }
-.datepicker table tr td.today.disabled:hover,
-.datepicker table tr td.today[disabled]:hover,
+
+.datepicker table tr td.today.disabled:hover, .datepicker table tr td.today.disabled:focus, .datepicker table tr td.today.disabled.focus, .datepicker table tr td.today[disabled]:hover, .datepicker table tr td.today[disabled]:focus, .datepicker table tr td.today[disabled].focus,
 fieldset[disabled] .datepicker table tr td.today:hover,
-.datepicker table tr td.today.disabled:focus,
-.datepicker table tr td.today[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.today:focus,
-.datepicker table tr td.today.disabled.focus,
-.datepicker table tr td.today[disabled].focus,
 fieldset[disabled] .datepicker table tr td.today.focus {
  background-color: #ffdb99;
  border-color: #ffb733;
 }
+
 .datepicker table tr td.today.focused {
  background: #ffc966;
 }
-.datepicker table tr td.today.disabled,
-.datepicker table tr td.today.disabled:active {
+
+.datepicker table tr td.today.disabled, .datepicker table tr td.today.disabled:active {
  background: #ffdb99;
-  color: #777777;
+  color: #6c757d;
 }
+
 .datepicker table tr td.range {
-  color: #000;
-  background-color: #eeeeee;
-  border-color: #bbbbbb;
+  color: #212529;
+  background-color: #e9e9ea;
+  border-color: #b5b5b8;
  border-radius: 0;
 }
-.datepicker table tr td.range:focus,
-.datepicker table tr td.range.focus {
-  color: #000;
-  background-color: #d5d5d5;
-  border-color: #7c7c7c;
+
+.datepicker table tr td.range:focus, .datepicker table tr td.range.focus {
+  color: #212529;
+  background-color: #d5d5d7;
+  border-color: #909194;
 }
+
 .datepicker table tr td.range:hover {
-  color: #000;
-  background-color: #d5d5d5;
-  border-color: #9d9d9d;
+  color: #212529;
+  background-color: #85878a;
+  border-color: #a3a4a7;
 }
-.datepicker table tr td.range:active,
-.datepicker table tr td.range.active {
-  color: #000;
-  background-color: #d5d5d5;
-  border-color: #9d9d9d;
+
+.datepicker table tr td.range:active, .datepicker table tr td.range.active {
+  color: #212529;
+  background-color: #d5d5d7;
+  border-color: #a3a4a7;
 }
-.datepicker table tr td.range:active:hover,
-.datepicker table tr td.range.active:hover,
-.datepicker table tr td.range:active:focus,
-.datepicker table tr td.range.active:focus,
-.datepicker table tr td.range:active.focus,
-.datepicker table tr td.range.active.focus {
-  color: #000;
-  background-color: #c3c3c3;
-  border-color: #7c7c7c;
+
+.datepicker table tr td.range:active:hover, .datepicker table tr td.range:active:focus, .datepicker table tr td.range:active.focus, .datepicker table tr td.range.active:hover, .datepicker table tr td.range.active:focus, .datepicker table tr td.range.active.focus {
+  color: #212529;
+  background-color: #c7c8c9;
+  border-color: #909194;
 }
-.datepicker table tr td.range.disabled:hover,
-.datepicker table tr td.range[disabled]:hover,
+
+.datepicker table tr td.range.disabled:hover, .datepicker table tr td.range.disabled:focus, .datepicker table tr td.range.disabled.focus, .datepicker table tr td.range[disabled]:hover, .datepicker table tr td.range[disabled]:focus, .datepicker table tr td.range[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range:hover,
-.datepicker table tr td.range.disabled:focus,
-.datepicker table tr td.range[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.range:focus,
-.datepicker table tr td.range.disabled.focus,
-.datepicker table tr td.range[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range.focus {
-  background-color: #eeeeee;
-  border-color: #bbbbbb;
+  background-color: #e9e9ea;
+  border-color: #b5b5b8;
 }
+
 .datepicker table tr td.range.focused {
-  background: #d5d5d5;
+  background: #cfcfd1;
 }
-.datepicker table tr td.range.disabled,
-.datepicker table tr td.range.disabled:active {
-  background: #eeeeee;
-  color: #777777;
+
+.datepicker table tr td.range.disabled, .datepicker table tr td.range.disabled:active {
+  background: #e9e9ea;
+  color: #6c757d;
 }
+
 .datepicker table tr td.range.highlighted {
-  color: #000;
-  background-color: #e4eef3;
-  border-color: #9dc1d3;
+  color: #212529;
+  background-color: #ddebee;
+  border-color: #99c3cc;
 }
-.datepicker table tr td.range.highlighted:focus,
-.datepicker table tr td.range.highlighted.focus {
-  color: #000;
-  background-color: #c1d7e3;
-  border-color: #4b88a6;
+
+.datepicker table tr td.range.highlighted:focus, .datepicker table tr td.range.highlighted.focus {
+  color: #212529;
+  background-color: #cad7da;
+  border-color: #7b9ca3;
 }
+
 .datepicker table tr td.range.highlighted:hover {
-  color: #000;
-  background-color: #c1d7e3;
-  border-color: #73a6c0;
+  color: #212529;
+  background-color: #7f888c;
+  border-color: #8bb0b8;
 }
-.datepicker table tr td.range.highlighted:active,
-.datepicker table tr td.range.highlighted.active {
-  color: #000;
-  background-color: #c1d7e3;
-  border-color: #73a6c0;
+
+.datepicker table tr td.range.highlighted:active, .datepicker table tr td.range.highlighted.active {
+  color: #212529;
+  background-color: #cad7da;
+  border-color: #8bb0b8;
 }
-.datepicker table tr td.range.highlighted:active:hover,
-.datepicker table tr td.range.highlighted.active:hover,
-.datepicker table tr td.range.highlighted:active:focus,
-.datepicker table tr td.range.highlighted.active:focus,
-.datepicker table tr td.range.highlighted:active.focus,
-.datepicker table tr td.range.highlighted.active.focus {
-  color: #000;
-  background-color: #a8c8d8;
-  border-color: #4b88a6;
+
+.datepicker table tr td.range.highlighted:active:hover, .datepicker table tr td.range.highlighted:active:focus, .datepicker table tr td.range.highlighted:active.focus, .datepicker table tr td.range.highlighted.active:hover, .datepicker table tr td.range.highlighted.active:focus, .datepicker table tr td.range.highlighted.active.focus {
+  color: #212529;
+  background-color: #bdc9cd;
+  border-color: #7b9ca3;
 }
-.datepicker table tr td.range.highlighted.disabled:hover,
-.datepicker table tr td.range.highlighted[disabled]:hover,
+
+.datepicker table tr td.range.highlighted.disabled:hover, .datepicker table tr td.range.highlighted.disabled:focus, .datepicker table tr td.range.highlighted.disabled.focus, .datepicker table tr td.range.highlighted[disabled]:hover, .datepicker table tr td.range.highlighted[disabled]:focus, .datepicker table tr td.range.highlighted[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range.highlighted:hover,
-.datepicker table tr td.range.highlighted.disabled:focus,
-.datepicker table tr td.range.highlighted[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.range.highlighted:focus,
-.datepicker table tr td.range.highlighted.disabled.focus,
-.datepicker table tr td.range.highlighted[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range.highlighted.focus {
-  background-color: #e4eef3;
-  border-color: #9dc1d3;
+  background-color: #ddebee;
+  border-color: #99c3cc;
 }
+
 .datepicker table tr td.range.highlighted.focused {
-  background: #c1d7e3;
+  background: #bbd7dd;
 }
-.datepicker table tr td.range.highlighted.disabled,
-.datepicker table tr td.range.highlighted.disabled:active {
-  background: #e4eef3;
-  color: #777777;
+
+.datepicker table tr td.range.highlighted.disabled, .datepicker table tr td.range.highlighted.disabled:active {
+  background: #ddebee;
+  color: #6c757d;
 }
+
 .datepicker table tr td.range.today {
-  color: #000;
-  background-color: #f7ca77;
-  border-color: #f1a417;
+  color: #212529;
+  background-color: #f4c775;
+  border-color: #eca117;
 }
-.datepicker table tr td.range.today:focus,
-.datepicker table tr td.range.today.focus {
-  color: #000;
-  background-color: #f4b747;
-  border-color: #815608;
+
+.datepicker table tr td.range.today:focus, .datepicker table tr td.range.today.focus {
+  color: #212529;
+  background-color: #dfb76d;
+  border-color: #ba821b;
 }
+
 .datepicker table tr td.range.today:hover {
-  color: #000;
-  background-color: #f4b747;
-  border-color: #bf800c;
+  color: #212529;
+  background-color: #8b764f;
+  border-color: #d49219;
 }
-.datepicker table tr td.range.today:active,
-.datepicker table tr td.range.today.active {
-  color: #000;
-  background-color: #f4b747;
-  border-color: #bf800c;
+
+.datepicker table tr td.range.today:active, .datepicker table tr td.range.today.active {
+  color: #212529;
+  background-color: #dfb76d;
+  border-color: #d49219;
 }
-.datepicker table tr td.range.today:active:hover,
-.datepicker table tr td.range.today.active:hover,
-.datepicker table tr td.range.today:active:focus,
-.datepicker table tr td.range.today.active:focus,
-.datepicker table tr td.range.today:active.focus,
-.datepicker table tr td.range.today.active.focus {
-  color: #000;
-  background-color: #f2aa25;
-  border-color: #815608;
+
+.datepicker table tr td.range.today:active:hover, .datepicker table tr td.range.today:active:focus, .datepicker table tr td.range.today:active.focus, .datepicker table tr td.range.today.active:hover, .datepicker table tr td.range.today.active:focus, .datepicker table tr td.range.today.active.focus {
+  color: #212529;
+  background-color: #d0ab68;
+  border-color: #ba821b;
 }
-.datepicker table tr td.range.today.disabled:hover,
-.datepicker table tr td.range.today[disabled]:hover,
+
+.datepicker table tr td.range.today.disabled:hover, .datepicker table tr td.range.today.disabled:focus, .datepicker table tr td.range.today.disabled.focus, .datepicker table tr td.range.today[disabled]:hover, .datepicker table tr td.range.today[disabled]:focus, .datepicker table tr td.range.today[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range.today:hover,
-.datepicker table tr td.range.today.disabled:focus,
-.datepicker table tr td.range.today[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.range.today:focus,
-.datepicker table tr td.range.today.disabled.focus,
-.datepicker table tr td.range.today[disabled].focus,
 fieldset[disabled] .datepicker table tr td.range.today.focus {
-  background-color: #f7ca77;
-  border-color: #f1a417;
+  background-color: #f4c775;
+  border-color: #eca117;
 }
-.datepicker table tr td.range.today.disabled,
-.datepicker table tr td.range.today.disabled:active {
-  background: #f7ca77;
-  color: #777777;
+
+.datepicker table tr td.range.today.disabled, .datepicker table tr td.range.today.disabled:active {
+  background: #f4c775;
+  color: #6c757d;
 }
-.datepicker table tr td.selected,
-.datepicker table tr td.selected.highlighted {
+
+.datepicker table tr td.selected, .datepicker table tr td.selected.highlighted {
  color: #fff;
-  background-color: #777777;
-  border-color: #555555;
+  background-color: #898b8d;
+  border-color: #6b6e71;
  text-shadow: 0 -1px 0 rgba(0, 0, 0, 0.25);
 }
-.datepicker table tr td.selected:focus,
-.datepicker table tr td.selected.highlighted:focus,
-.datepicker table tr td.selected.focus,
-.datepicker table tr td.selected.highlighted.focus {
+
+.datepicker table tr td.selected:focus, .datepicker table tr td.selected.focus, .datepicker table tr td.selected.highlighted:focus, .datepicker table tr td.selected.highlighted.focus {
  color: #fff;
-  background-color: #5e5e5e;
-  border-color: #161616;
+  background-color: #959798;
+  border-color: #909295;
 }
-.datepicker table tr td.selected:hover,
-.datepicker table tr td.selected.highlighted:hover {
+
+.datepicker table tr td.selected:hover, .datepicker table tr td.selected.highlighted:hover {
  color: #fff;
-  background-color: #5e5e5e;
-  border-color: #373737;
+  background-color: #c4c5c6;
+  border-color: #7d7f82;
 }
-.datepicker table tr td.selected:active,
-.datepicker table tr td.selected.highlighted:active,
-.datepicker table tr td.selected.active,
-.datepicker table tr td.selected.highlighted.active {
+
+.datepicker table tr td.selected:active, .datepicker table tr td.selected.active, .datepicker table tr td.selected.highlighted:active, .datepicker table tr td.selected.highlighted.active {
  color: #fff;
-  background-color: #5e5e5e;
-  border-color: #373737;
+  background-color: #959798;
+  border-color: #7d7f82;
 }
-.datepicker table tr td.selected:active:hover,
-.datepicker table tr td.selected.highlighted:active:hover,
-.datepicker table tr td.selected.active:hover,
-.datepicker table tr td.selected.highlighted.active:hover,
-.datepicker table tr td.selected:active:focus,
-.datepicker table tr td.selected.highlighted:active:focus,
-.datepicker table tr td.selected.active:focus,
-.datepicker table tr td.selected.highlighted.active:focus,
-.datepicker table tr td.selected:active.focus,
-.datepicker table tr td.selected.highlighted:active.focus,
-.datepicker table tr td.selected.active.focus,
-.datepicker table tr td.selected.highlighted.active.focus {
+
+.datepicker table tr td.selected:active:hover, .datepicker table tr td.selected:active:focus, .datepicker table tr td.selected:active.focus, .datepicker table tr td.selected.active:hover, .datepicker table tr td.selected.active:focus, .datepicker table tr td.selected.active.focus, .datepicker table tr td.selected.highlighted:active:hover, .datepicker table tr td.selected.highlighted:active:focus, .datepicker table tr td.selected.highlighted:active.focus, .datepicker table tr td.selected.highlighted.active:hover, .datepicker table tr td.selected.highlighted.active:focus, .datepicker table tr td.selected.highlighted.active.focus {
  color: #fff;
-  background-color: #4c4c4c;
-  border-color: #161616;
+  background-color: #9d9fa0;
+  border-color: #909295;
 }
-.datepicker table tr td.selected.disabled:hover,
-.datepicker table tr td.selected.highlighted.disabled:hover,
-.datepicker table tr td.selected[disabled]:hover,
-.datepicker table tr td.selected.highlighted[disabled]:hover,
+
+.datepicker table tr td.selected.disabled:hover, .datepicker table tr td.selected.disabled:focus, .datepicker table tr td.selected.disabled.focus, .datepicker table tr td.selected[disabled]:hover, .datepicker table tr td.selected[disabled]:focus, .datepicker table tr td.selected[disabled].focus,
 fieldset[disabled] .datepicker table tr td.selected:hover,
-fieldset[disabled] .datepicker table tr td.selected.highlighted:hover,
-.datepicker table tr td.selected.disabled:focus,
-.datepicker table tr td.selected.highlighted.disabled:focus,
-.datepicker table tr td.selected[disabled]:focus,
-.datepicker table tr td.selected.highlighted[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.selected:focus,
+fieldset[disabled] .datepicker table tr td.selected.focus, .datepicker table tr td.selected.highlighted.disabled:hover, .datepicker table tr td.selected.highlighted.disabled:focus, .datepicker table tr td.selected.highlighted.disabled.focus, .datepicker table tr td.selected.highlighted[disabled]:hover, .datepicker table tr td.selected.highlighted[disabled]:focus, .datepicker table tr td.selected.highlighted[disabled].focus,
+fieldset[disabled] .datepicker table tr td.selected.highlighted:hover,
 fieldset[disabled] .datepicker table tr td.selected.highlighted:focus,
-.datepicker table tr td.selected.disabled.focus,
-.datepicker table tr td.selected.highlighted.disabled.focus,
-.datepicker table tr td.selected[disabled].focus,
-.datepicker table tr td.selected.highlighted[disabled].focus,
-fieldset[disabled] .datepicker table tr td.selected.focus,
 fieldset[disabled] .datepicker table tr td.selected.highlighted.focus {
-  background-color: #777777;
-  border-color: #555555;
+  background-color: #898b8d;
+  border-color: #6b6e71;
 }
-.datepicker table tr td.active,
-.datepicker table tr td.active.highlighted {
+
+.datepicker table tr td.active, .datepicker table tr td.active.highlighted {
  color: #fff;
-  background-color: #337ab7;
-  border-color: #2e6da4;
+  background-color: #007bff;
+  border-color: #0277f4;
  text-shadow: 0 -1px 0 rgba(0, 0, 0, 0.25);
 }
-.datepicker table tr td.active:focus,
-.datepicker table tr td.active.highlighted:focus,
-.datepicker table tr td.active.focus,
-.datepicker table tr td.active.highlighted.focus {
+
+.datepicker table tr td.active:focus, .datepicker table tr td.active.focus, .datepicker table tr td.active.highlighted:focus, .datepicker table tr td.active.highlighted.focus {
  color: #fff;
-  background-color: #286090;
-  border-color: #122b40;
+  background-color: #1a88ff;
+  border-color: #4199f7;
 }
-.datepicker table tr td.active:hover,
-.datepicker table tr td.active.highlighted:hover {
+
+.datepicker table tr td.active:hover, .datepicker table tr td.active.highlighted:hover {
  color: #fff;
-  background-color: #286090;
-  border-color: #204d74;
+  background-color: #80bdff;
+  border-color: #2087f5;
 }
-.datepicker table tr td.active:active,
-.datepicker table tr td.active.highlighted:active,
-.datepicker table tr td.active.active,
-.datepicker table tr td.active.highlighted.active {
+
+.datepicker table tr td.active:active, .datepicker table tr td.active.active, .datepicker table tr td.active.highlighted:active, .datepicker table tr td.active.highlighted.active {
  color: #fff;
-  background-color: #286090;
-  border-color: #204d74;
+  background-color: #1a88ff;
+  border-color: #2087f5;
 }
-.datepicker table tr td.active:active:hover,
-.datepicker table tr td.active.highlighted:active:hover,
-.datepicker table tr td.active.active:hover,
-.datepicker table tr td.active.highlighted.active:hover,
-.datepicker table tr td.active:active:focus,
-.datepicker table tr td.active.highlighted:active:focus,
-.datepicker table tr td.active.active:focus,
-.datepicker table tr td.active.highlighted.active:focus,
-.datepicker table tr td.active:active.focus,
-.datepicker table tr td.active.highlighted:active.focus,
-.datepicker table tr td.active.active.focus,
-.datepicker table tr td.active.highlighted.active.focus {
+
+.datepicker table tr td.active:active:hover, .datepicker table tr td.active:active:focus, .datepicker table tr td.active:active.focus, .datepicker table tr td.active.active:hover, .datepicker table tr td.active.active:focus, .datepicker table tr td.active.active.focus, .datepicker table tr td.active.highlighted:active:hover, .datepicker table tr td.active.highlighted:active:focus, .datepicker table tr td.active.highlighted:active.focus, .datepicker table tr td.active.highlighted.active:hover, .datepicker table tr td.active.highlighted.active:focus, .datepicker table tr td.active.highlighted.active.focus {
  color: #fff;
-  background-color: #204d74;
-  border-color: #122b40;
+  background-color: #2b91ff;
+  border-color: #4199f7;
 }
-.datepicker table tr td.active.disabled:hover,
-.datepicker table tr td.active.highlighted.disabled:hover,
-.datepicker table tr td.active[disabled]:hover,
-.datepicker table tr td.active.highlighted[disabled]:hover,
+
+.datepicker table tr td.active.disabled:hover, .datepicker table tr td.active.disabled:focus, .datepicker table tr td.active.disabled.focus, .datepicker table tr td.active[disabled]:hover, .datepicker table tr td.active[disabled]:focus, .datepicker table tr td.active[disabled].focus,
 fieldset[disabled] .datepicker table tr td.active:hover,
-fieldset[disabled] .datepicker table tr td.active.highlighted:hover,
-.datepicker table tr td.active.disabled:focus,
-.datepicker table tr td.active.highlighted.disabled:focus,
-.datepicker table tr td.active[disabled]:focus,
-.datepicker table tr td.active.highlighted[disabled]:focus,
 fieldset[disabled] .datepicker table tr td.active:focus,
+fieldset[disabled] .datepicker table tr td.active.focus, .datepicker table tr td.active.highlighted.disabled:hover, .datepicker table tr td.active.highlighted.disabled:focus, .datepicker table tr td.active.highlighted.disabled.focus, .datepicker table tr td.active.highlighted[disabled]:hover, .datepicker table tr td.active.highlighted[disabled]:focus, .datepicker table tr td.active.highlighted[disabled].focus,
+fieldset[disabled] .datepicker table tr td.active.highlighted:hover,
 fieldset[disabled] .datepicker table tr td.active.highlighted:focus,
-.datepicker table tr td.active.disabled.focus,
-.datepicker table tr td.active.highlighted.disabled.focus,
-.datepicker table tr td.active[disabled].focus,
-.datepicker table tr td.active.highlighted[disabled].focus,
-fieldset[disabled] .datepicker table tr td.active.focus,
 fieldset[disabled] .datepicker table tr td.active.highlighted.focus {
-  background-color: #337ab7;
-  border-color: #2e6da4;
+  background-color: #007bff;
+  border-color: #0277f4;
 }
+
 .datepicker table tr td span {
  display: block;
  width: 23%;
@@ -507,172 +447,127 @@ fieldset[disabled] .datepicker table tr td.active.highlighted.focus {
  cursor: pointer;
  border-radius: 4px;
 }
-.datepicker table tr td span:hover,
-.datepicker table tr td span.focused {
-  background: #eeeeee;
+
+.datepicker table tr td span:hover, .datepicker table tr td span.focused {
+  color: #212529;
+  background: #e9e9ea;
 }
-.datepicker table tr td span.disabled,
-.datepicker table tr td span.disabled:hover {
+
+.datepicker table tr td span.disabled, .datepicker table tr td span.disabled:hover {
  background: none;
-  color: #777777;
+  color: #6c757d;
  cursor: default;
 }
-.datepicker table tr td span.active,
-.datepicker table tr td span.active:hover,
-.datepicker table tr td span.active.disabled,
-.datepicker table tr td span.active.disabled:hover {
+
+.datepicker table tr td span.active, .datepicker table tr td span.active:hover, .datepicker table tr td span.active.disabled, .datepicker table tr td span.active.disabled:hover {
  color: #fff;
-  background-color: #337ab7;
-  border-color: #2e6da4;
+  background-color: #007bff;
+  border-color: #0277f4;
  text-shadow: 0 -1px 0 rgba(0, 0, 0, 0.25);
 }
-.datepicker table tr td span.active:focus,
-.datepicker table tr td span.active:hover:focus,
-.datepicker table tr td span.active.disabled:focus,
-.datepicker table tr td span.active.disabled:hover:focus,
-.datepicker table tr td span.active.focus,
-.datepicker table tr td span.active:hover.focus,
-.datepicker table tr td span.active.disabled.focus,
-.datepicker table tr td span.active.disabled:hover.focus {
+
+.datepicker table tr td span.active:focus, .datepicker table tr td span.active.focus, .datepicker table tr td span.active:hover:focus, .datepicker table tr td span.active:hover.focus, .datepicker table tr td span.active.disabled:focus, .datepicker table tr td span.active.disabled.focus, .datepicker table tr td span.active.disabled:hover:focus, .datepicker table tr td span.active.disabled:hover.focus {
  color: #fff;
-  background-color: #286090;
-  border-color: #122b40;
+  background-color: #1a88ff;
+  border-color: #4199f7;
 }
-.datepicker table tr td span.active:hover,
-.datepicker table tr td span.active:hover:hover,
-.datepicker table tr td span.active.disabled:hover,
-.datepicker table tr td span.active.disabled:hover:hover {
+
+.datepicker table tr td span.active:hover, .datepicker table tr td span.active:hover:hover, .datepicker table tr td span.active.disabled:hover, .datepicker table tr td span.active.disabled:hover:hover {
  color: #fff;
-  background-color: #286090;
-  border-color: #204d74;
+  background-color: #80bdff;
+  border-color: #2087f5;
 }
-.datepicker table tr td span.active:active,
-.datepicker table tr td span.active:hover:active,
-.datepicker table tr td span.active.disabled:active,
-.datepicker table tr td span.active.disabled:hover:active,
-.datepicker table tr td span.active.active,
-.datepicker table tr td span.active:hover.active,
-.datepicker table tr td span.active.disabled.active,
-.datepicker table tr td span.active.disabled:hover.active {
+
+.datepicker table tr td span.active:active, .datepicker table tr td span.active.active, .datepicker table tr td span.active:hover:active, .datepicker table tr td span.active:hover.active, .datepicker table tr td span.active.disabled:active, .datepicker table tr td span.active.disabled.active, .datepicker table tr td span.active.disabled:hover:active, .datepicker table tr td span.active.disabled:hover.active {
  color: #fff;
-  background-color: #286090;
-  border-color: #204d74;
+  background-color: #1a88ff;
+  border-color: #2087f5;
 }
-.datepicker table tr td span.active:active:hover,
-.datepicker table tr td span.active:hover:active:hover,
-.datepicker table tr td span.active.disabled:active:hover,
-.datepicker table tr td span.active.disabled:hover:active:hover,
-.datepicker table tr td span.active.active:hover,
-.datepicker table tr td span.active:hover.active:hover,
-.datepicker table tr td span.active.disabled.active:hover,
-.datepicker table tr td span.active.disabled:hover.active:hover,
-.datepicker table tr td span.active:active:focus,
-.datepicker table tr td span.active:hover:active:focus,
-.datepicker table tr td span.active.disabled:active:focus,
-.datepicker table tr td span.active.disabled:hover:active:focus,
-.datepicker table tr td span.active.active:focus,
-.datepicker table tr td span.active:hover.active:focus,
-.datepicker table tr td span.active.disabled.active:focus,
-.datepicker table tr td span.active.disabled:hover.active:focus,
-.datepicker table tr td span.active:active.focus,
-.datepicker table tr td span.active:hover:active.focus,
-.datepicker table tr td span.active.disabled:active.focus,
-.datepicker table tr td span.active.disabled:hover:active.focus,
-.datepicker table tr td span.active.active.focus,
-.datepicker table tr td span.active:hover.active.focus,
-.datepicker table tr td span.active.disabled.active.focus,
-.datepicker table tr td span.active.disabled:hover.active.focus {
+
+.datepicker table tr td span.active:active:hover, .datepicker table tr td span.active:active:focus, .datepicker table tr td span.active:active.focus, .datepicker table tr td span.active.active:hover, .datepicker table tr td span.active.active:focus, .datepicker table tr td span.active.active.focus, .datepicker table tr td span.active:hover:active:hover, .datepicker table tr td span.active:hover:active:focus, .datepicker table tr td span.active:hover:active.focus, .datepicker table tr td span.active:hover.active:hover, .datepicker table tr td span.active:hover.active:focus, .datepicker table tr td span.active:hover.active.focus, .datepicker table tr td span.active.disabled:active:hover, .datepicker table tr td span.active.disabled:active:focus, .datepicker table tr td span.active.disabled:active.focus, .datepicker table tr td span.active.disabled.active:hover, .datepicker table tr td span.active.disabled.active:focus, .datepicker table tr td span.active.disabled.active.focus, .datepicker table tr td span.active.disabled:hover:active:hover, .datepicker table tr td span.active.disabled:hover:active:focus, .datepicker table tr td span.active.disabled:hover:active.focus, .datepicker table tr td span.active.disabled:hover.active:hover, .datepicker table tr td span.active.disabled:hover.active:focus, .datepicker table tr td span.active.disabled:hover.active.focus {
  color: #fff;
-  background-color: #204d74;
-  border-color: #122b40;
+  background-color: #2b91ff;
+  border-color: #4199f7;
 }
-.datepicker table tr td span.active.disabled:hover,
-.datepicker table tr td span.active:hover.disabled:hover,
-.datepicker table tr td span.active.disabled.disabled:hover,
-.datepicker table tr td span.active.disabled:hover.disabled:hover,
-.datepicker table tr td span.active[disabled]:hover,
-.datepicker table tr td span.active:hover[disabled]:hover,
-.datepicker table tr td span.active.disabled[disabled]:hover,
-.datepicker table tr td span.active.disabled:hover[disabled]:hover,
+
+.datepicker table tr td span.active.disabled:hover, .datepicker table tr td span.active.disabled:focus, .datepicker table tr td span.active.disabled.focus, .datepicker table tr td span.active[disabled]:hover, .datepicker table tr td span.active[disabled]:focus, .datepicker table tr td span.active[disabled].focus,
 fieldset[disabled] .datepicker table tr td span.active:hover,
-fieldset[disabled] .datepicker table tr td span.active:hover:hover,
-fieldset[disabled] .datepicker table tr td span.active.disabled:hover,
-fieldset[disabled] .datepicker table tr td span.active.disabled:hover:hover,
-.datepicker table tr td span.active.disabled:focus,
-.datepicker table tr td span.active:hover.disabled:focus,
-.datepicker table tr td span.active.disabled.disabled:focus,
-.datepicker table tr td span.active.disabled:hover.disabled:focus,
-.datepicker table tr td span.active[disabled]:focus,
-.datepicker table tr td span.active:hover[disabled]:focus,
-.datepicker table tr td span.active.disabled[disabled]:focus,
-.datepicker table tr td span.active.disabled:hover[disabled]:focus,
 fieldset[disabled] .datepicker table tr td span.active:focus,
+fieldset[disabled] .datepicker table tr td span.active.focus, .datepicker table tr td span.active:hover.disabled:hover, .datepicker table tr td span.active:hover.disabled:focus, .datepicker table tr td span.active:hover.disabled.focus, .datepicker table tr td span.active:hover[disabled]:hover, .datepicker table tr td span.active:hover[disabled]:focus, .datepicker table tr td span.active:hover[disabled].focus,
+fieldset[disabled] .datepicker table tr td span.active:hover:hover,
 fieldset[disabled] .datepicker table tr td span.active:hover:focus,
+fieldset[disabled] .datepicker table tr td span.active:hover.focus, .datepicker table tr td span.active.disabled.disabled:hover, .datepicker table tr td span.active.disabled.disabled:focus, .datepicker table tr td span.active.disabled.disabled.focus, .datepicker table tr td span.active.disabled[disabled]:hover, .datepicker table tr td span.active.disabled[disabled]:focus, .datepicker table tr td span.active.disabled[disabled].focus,
+fieldset[disabled] .datepicker table tr td span.active.disabled:hover,
 fieldset[disabled] .datepicker table tr td span.active.disabled:focus,
+fieldset[disabled] .datepicker table tr td span.active.disabled.focus, .datepicker table tr td span.active.disabled:hover.disabled:hover, .datepicker table tr td span.active.disabled:hover.disabled:focus, .datepicker table tr td span.active.disabled:hover.disabled.focus, .datepicker table tr td span.active.disabled:hover[disabled]:hover, .datepicker table tr td span.active.disabled:hover[disabled]:focus, .datepicker table tr td span.active.disabled:hover[disabled].focus,
+fieldset[disabled] .datepicker table tr td span.active.disabled:hover:hover,
 fieldset[disabled] .datepicker table tr td span.active.disabled:hover:focus,
-.datepicker table tr td span.active.disabled.focus,
-.datepicker table tr td span.active:hover.disabled.focus,
-.datepicker table tr td span.active.disabled.disabled.focus,
-.datepicker table tr td span.active.disabled:hover.disabled.focus,
-.datepicker table tr td span.active[disabled].focus,
-.datepicker table tr td span.active:hover[disabled].focus,
-.datepicker table tr td span.active.disabled[disabled].focus,
-.datepicker table tr td span.active.disabled:hover[disabled].focus,
-fieldset[disabled] .datepicker table tr td span.active.focus,
-fieldset[disabled] .datepicker table tr td span.active:hover.focus,
-fieldset[disabled] .datepicker table tr td span.active.disabled.focus,
 fieldset[disabled] .datepicker table tr td span.active.disabled:hover.focus {
-  background-color: #337ab7;
-  border-color: #2e6da4;
+  background-color: #007bff;
+  border-color: #0277f4;
 }
-.datepicker table tr td span.old,
-.datepicker table tr td span.new {
-  color: #777777;
+
+.datepicker table tr td span.old, .datepicker table tr td span.new {
+  color: #6c757d;
 }
+
 .datepicker .datepicker-switch {
  width: 145px;
 }
+
 .datepicker .datepicker-switch,
 .datepicker .prev,
 .datepicker .next,
 .datepicker tfoot tr th {
  cursor: pointer;
 }
+
 .datepicker .datepicker-switch:hover,
 .datepicker .prev:hover,
 .datepicker .next:hover,
 .datepicker tfoot tr th:hover {
-  background: #eeeeee;
+  color: #212529;
+  background: #e9e9ea;
 }
+
+.datepicker .prev.disabled, .datepicker .next.disabled {
+  visibility: hidden;
+}
+
 .datepicker .cw {
  font-size: 10px;
  width: 12px;
  padding: 0 2px 0 5px;
  vertical-align: middle;
 }
+
 .input-group.date .input-group-addon {
  cursor: pointer;
 }
+
 .input-daterange {
  width: 100%;
 }
+
 .input-daterange input {
  text-align: center;
 }
+
 .input-daterange input:first-child {
  border-radius: 3px 0 0 3px;
 }
+
 .input-daterange input:last-child {
  border-radius: 0 3px 3px 0;
 }
+
 .input-daterange .input-group-addon {
  width: auto;
  min-width: 16px;
  padding: 4px 5px;
-  line-height: 1.42857143;
-  text-shadow: 0 1px 0 #fff;
+  line-height: 1.5;
  border-width: 1px 0;
  margin-left: -5px;
  margin-right: -5px;
 }
-/*# sourceMappingURL=bootstrap-datepicker3.css.map */
+
--- a/inst/www/shared/datepicker/css/bootstrap-datepicker3.min.css
+++ b/inst/www/shared/datepicker/css/bootstrap-datepicker3.min.css
--- a/inst/www/shared/datepicker/js/bootstrap-datepicker.js
+++ b/inst/www/shared/datepicker/js/bootstrap-datepicker.js
--- a/inst/www/shared/datepicker/js/bootstrap-datepicker.min.js
+++ b/inst/www/shared/datepicker/js/bootstrap-datepicker.min.js
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker-en-CA.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker-en-CA.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["en-CA"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:0,format:"yyyy-mm-dd"},a.fn.datepicker.deprecated("This filename doesn't follow the convention, use bootstrap-datepicker.en-CA.js instead.")}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ar-tn.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ar-tn.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["ar-tn"]={days:["الأحد","الاثنين","الثلاثاء","الأربعاء","الخميس","الجمعة","السبت","الأحد"],daysShort:["أحد","اثنين","ثلاثاء","أربعاء","خميس","جمعة","سبت","أحد"],daysMin:["ح","ن","ث","ع","خ","ج","س","ح"],months:["جانفي","فيفري","مارس","أفريل","ماي","جوان","جويليه","أوت","سبتمبر","أكتوبر","نوفمبر","ديسمبر"],monthsShort:["جانفي","فيفري","مارس","أفريل","ماي","جوان","جويليه","أوت","سبتمبر","أكتوبر","نوفمبر","ديسمبر"],today:"هذا اليوم",rtl:!0}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.az.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.az.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.az={days:["Bazar","Bazar ertəsi","Çərşənbə axşamı","Çərşənbə","Cümə axşamı","Cümə","Şənbə"],daysShort:["B.","B.e","Ç.a","Ç.","C.a","C.","Ş."],daysMin:["B.","B.e","Ç.a","Ç.","C.a","C.","Ş."],months:["Yanvar","Fevral","Mart","Aprel","May","İyun","İyul","Avqust","Sentyabr","Oktyabr","Noyabr","Dekabr"],monthsShort:["Yan","Fev","Mar","Apr","May","İyun","İyul","Avq","Sen","Okt","Noy","Dek"],today:"Bu gün",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates.az={days:["Bazar","Bazar ertəsi","Çərşənbə axşamı","Çərşənbə","Cümə axşamı","Cümə","Şənbə"],daysShort:["B.","B.e","Ç.a","Ç.","C.a","C.","Ş."],daysMin:["B.","B.e","Ç.a","Ç.","C.a","C.","Ş."],months:["Yanvar","Fevral","Mart","Aprel","May","İyun","İyul","Avqust","Sentyabr","Oktyabr","Noyabr","Dekabr"],monthsShort:["Yan","Fev","Mar","Apr","May","İyun","İyul","Avq","Sen","Okt","Noy","Dek"],today:"Bu gün",weekStart:1,clear:"Təmizlə",monthsTitle:"Aylar"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.bm.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.bm.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.bm={days:["Kari","Ntɛnɛn","Tarata","Araba","Alamisa","Juma","Sibiri"],daysShort:["Kar","Ntɛ","Tar","Ara","Ala","Jum","Sib"],daysMin:["Ka","Nt","Ta","Ar","Al","Ju","Si"],months:["Zanwuyekalo","Fewuruyekalo","Marisikalo","Awirilikalo","Mɛkalo","Zuwɛnkalo","Zuluyekalo","Utikalo","Sɛtanburukalo","ɔkutɔburukalo","Nowanburukalo","Desanburukalo"],monthsShort:["Zan","Few","Mar","Awi","Mɛ","Zuw","Zul","Uti","Sɛt","ɔku","Now","Des"],today:"Bi",monthsTitle:"Kalo",clear:"Ka jɔsi",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.bn.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.bn.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.bn={days:["রবিবার","সোমবার","মঙ্গলবার","বুধবার","বৃহস্পতিবার","শুক্রবার","শনিবার"],daysShort:["রবিবার","সোমবার","মঙ্গলবার","বুধবার","বৃহস্পতিবার","শুক্রবার","শনিবার"],daysMin:["রবি","সোম","মঙ্গল","বুধ","বৃহস্পতি","শুক্র","শনি"],months:["জানুয়ারী","ফেব্রুয়ারি","মার্চ","এপ্রিল","মে","জুন","জুলাই","অগাস্ট","সেপ্টেম্বর","অক্টোবর","নভেম্বর","ডিসেম্বর"],monthsShort:["জানুয়ারী","ফেব্রুয়ারি","মার্চ","এপ্রিল","মে","জুন","জুলাই","অগাস্ট","সেপ্টেম্বর","অক্টোবর","নভেম্বর","ডিসেম্বর"],today:"আজ",monthsTitle:"মাস",clear:"পরিষ্কার",weekStart:0,format:"mm/dd/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.br.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.br.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.br={days:["Sul","Lun","Meurzh","Merc'her","Yaou","Gwener","Sadorn"],daysShort:["Sul","Lun","Meu.","Mer.","Yao.","Gwe.","Sad."],daysMin:["Su","L","Meu","Mer","Y","G","Sa"],months:["Genver","C'hwevrer","Meurzh","Ebrel","Mae","Mezheven","Gouere","Eost","Gwengolo","Here","Du","Kerzu"],monthsShort:["Genv.","C'hw.","Meur.","Ebre.","Mae","Mezh.","Goue.","Eost","Gwen.","Here","Du","Kerz."],today:"Hiziv",monthsTitle:"Miz",clear:"Dilemel",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.cs.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.cs.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.cs={days:["Neděle","Pondělí","Úterý","Středa","Čtvrtek","Pátek","Sobota"],daysShort:["Ned","Pon","Úte","Stř","Čtv","Pát","Sob"],daysMin:["Ne","Po","Út","St","Čt","Pá","So"],months:["Leden","Únor","Březen","Duben","Květen","Červen","Červenec","Srpen","Září","Říjen","Listopad","Prosinec"],monthsShort:["Led","Úno","Bře","Dub","Kvě","Čer","Čnc","Srp","Zář","Říj","Lis","Pro"],today:"Dnes",clear:"Vymazat",weekStart:1,format:"dd.m.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates.cs={days:["Neděle","Pondělí","Úterý","Středa","Čtvrtek","Pátek","Sobota"],daysShort:["Ned","Pon","Úte","Stř","Čtv","Pát","Sob"],daysMin:["Ne","Po","Út","St","Čt","Pá","So"],months:["Leden","Únor","Březen","Duben","Květen","Červen","Červenec","Srpen","Září","Říjen","Listopad","Prosinec"],monthsShort:["Led","Úno","Bře","Dub","Kvě","Čer","Čnc","Srp","Zář","Říj","Lis","Pro"],today:"Dnes",clear:"Vymazat",monthsTitle:"Měsíc",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.da.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.da.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.da={days:["søndag","mandag","tirsdag","onsdag","torsdag","fredag","lørdag"],daysShort:["søn","man","tir","ons","tor","fre","lør"],daysMin:["sø","ma","ti","on","to","fr","lø"],months:["januar","februar","marts","april","maj","juni","juli","august","september","oktober","november","december"],monthsShort:["jan","feb","mar","apr","maj","jun","jul","aug","sep","okt","nov","dec"],today:"I Dag",clear:"Nulstil"}}(jQuery);
+!function(a){a.fn.datepicker.dates.da={days:["Søndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag"],daysShort:["Søn","Man","Tir","Ons","Tor","Fre","Lør"],daysMin:["Sø","Ma","Ti","On","To","Fr","Lø"],months:["Januar","Februar","Marts","April","Maj","Juni","Juli","August","September","Oktober","November","December"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec"],today:"I Dag",weekStart:1,clear:"Nulstil",format:"dd/mm/yyyy",monthsTitle:"Måneder"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-CA.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-CA.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["en-CA"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:0,format:"yyyy-mm-dd"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-IE.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-IE.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["en-IE"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-NZ.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-NZ.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["en-NZ"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"d/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-ZA.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.en-ZA.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["en-ZA"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"yyyy/mm/d"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.eu.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.eu.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.eu={days:["Igandea","Astelehena","Asteartea","Asteazkena","Osteguna","Ostirala","Larunbata"],daysShort:["Ig","Al","Ar","Az","Og","Ol","Lr"],daysMin:["Ig","Al","Ar","Az","Og","Ol","Lr"],months:["Urtarrila","Otsaila","Martxoa","Apirila","Maiatza","Ekaina","Uztaila","Abuztua","Iraila","Urria","Azaroa","Abendua"],monthsShort:["Urt","Ots","Mar","Api","Mai","Eka","Uzt","Abu","Ira","Urr","Aza","Abe"],today:"Gaur"}}(jQuery);
+!function(a){a.fn.datepicker.dates.eu={days:["Igandea","Astelehena","Asteartea","Asteazkena","Osteguna","Ostirala","Larunbata"],daysShort:["Ig","Al","Ar","Az","Og","Ol","Lr"],daysMin:["Ig","Al","Ar","Az","Og","Ol","Lr"],months:["Urtarrila","Otsaila","Martxoa","Apirila","Maiatza","Ekaina","Uztaila","Abuztua","Iraila","Urria","Azaroa","Abendua"],monthsShort:["Urt","Ots","Mar","Api","Mai","Eka","Uzt","Abu","Ira","Urr","Aza","Abe"],today:"Gaur",monthsTitle:"Hilabeteak",clear:"Ezabatu",weekStart:1,format:"yyyy/mm/dd"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.hi.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.hi.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.hi={days:["रविवार","सोमवार","मंगलवार","बुधवार","गुरुवार","शुक्रवार","शनिवार"],daysShort:["सूर्य","सोम","मंगल","बुध","गुरु","शुक्र","शनि"],daysMin:["र","सो","मं","बु","गु","शु","श"],months:["जनवरी","फ़रवरी","मार्च","अप्रैल","मई","जून","जुलाई","अगस्त","सितम्बर","अक्टूबर","नवंबर","दिसम्बर"],monthsShort:["जन","फ़रवरी","मार्च","अप्रैल","मई","जून","जुलाई","अगस्त","सितं","अक्टूबर","नवं","दिसम्बर"],today:"आज",monthsTitle:"महीने",clear:"साफ",weekStart:1,format:"dd / mm / yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.hy.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.hy.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.hy={days:["Կիրակի","Երկուշաբթի","Երեքշաբթի","Չորեքշաբթի","Հինգշաբթի","Ուրբաթ","Շաբաթ"],daysShort:["Կրկ","Երկ","Երք","Չրք","Հնգ","Ուր","Շբթ"],daysMin:["Կրկ","Երկ","Երք","Չրք","Հնգ","Ուր","Շբթ"],months:["Հունվար","Փետրվար","Մարտ","Ապրիլ","Մայիս","Հունիս","Հուլիս","Օգոստոս","Սեպտեմբեր","Հոկտեմբեր","Նոյեմբեր","Դեկտեմբեր"],monthsShort:["Հուն","Փետ","Մար","Ապր","Մայ","Հնս","Հլս","Օգս","Սեպ","Հոկ","Նմբ","Դեկ"],today:"Այսօր",clear:"Ջնջել",format:"dd.mm.yyyy",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates.hy={days:["Կիրակի","Երկուշաբթի","Երեքշաբթի","Չորեքշաբթի","Հինգշաբթի","Ուրբաթ","Շաբաթ"],daysShort:["Կիր","Երկ","Երե","Չոր","Հին","Ուրբ","Շաբ"],daysMin:["Կի","Եկ","Եք","Չո","Հի","Ու","Շա"],months:["Հունվար","Փետրվար","Մարտ","Ապրիլ","Մայիս","Հունիս","Հուլիս","Օգոստոս","Սեպտեմբեր","Հոկտեմբեր","Նոյեմբեր","Դեկտեմբեր"],monthsShort:["Հնվ","Փետ","Մար","Ապր","Մայ","Հուն","Հուլ","Օգս","Սեպ","Հոկ","Նոյ","Դեկ"],today:"Այսօր",clear:"Ջնջել",format:"dd.mm.yyyy",weekStart:1,monthsTitle:"Ամիսնէր"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ka.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ka.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.ka={days:["კვირა","ორშაბათი","სამშაბათი","ოთხშაბათი","ხუთშაბათი","პარასკევი","შაბათი"],daysShort:["კვი","ორშ","სამ","ოთხ","ხუთ","პარ","შაბ"],daysMin:["კვ","ორ","სა","ოთ","ხუ","პა","შა"],months:["იანვარი","თებერვალი","მარტი","აპრილი","მაისი","ივნისი","ივლისი","აგვისტო","სექტემბერი","ოქტომები","ნოემბერი","დეკემბერი"],monthsShort:["იან","თებ","მარ","აპრ","მაი","ივნ","ივლ","აგვ","სექ","ოქტ","ნოე","დეკ"],today:"დღეს",clear:"გასუფთავება",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates.ka={days:["კვირა","ორშაბათი","სამშაბათი","ოთხშაბათი","ხუთშაბათი","პარასკევი","შაბათი"],daysShort:["კვი","ორშ","სამ","ოთხ","ხუთ","პარ","შაბ"],daysMin:["კვ","ორ","სა","ოთ","ხუ","პა","შა"],months:["იანვარი","თებერვალი","მარტი","აპრილი","მაისი","ივნისი","ივლისი","აგვისტო","სექტემბერი","ოქტომბერი","ნოემბერი","დეკემბერი"],monthsShort:["იან","თებ","მარ","აპრ","მაი","ივნ","ივლ","აგვ","სექ","ოქტ","ნოე","დეკ"],today:"დღეს",clear:"გასუფთავება",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.kh.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.kh.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.kh={days:["អាទិត្យ","ចន្ទ","អង្គារ","ពុធ","ព្រហស្បតិ៍","សុក្រ","សៅរ៍","អាទិត្យ"],daysShort:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍","អា.ទិ"],daysMin:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍","អា.ទិ"],months:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],monthsShort:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],today:"ថ្ងៃនេះ",clear:"សំអាត"}}(jQuery);
+!function(a){a.fn.datepicker.dates.kh={days:["អាទិត្យ","ចន្ទ","អង្គារ","ពុធ","ព្រហស្បតិ៍","សុក្រ","សៅរ៍"],daysShort:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍"],daysMin:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍"],months:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],monthsShort:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],today:"ថ្ងៃនេះ",clear:"សំអាត"},a.fn.datepicker.deprecated('The language code "kh" is deprecated and will be removed in 2.0. For Khmer support use "km" instead.')}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.km.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.km.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.km={days:["អាទិត្យ","ចន្ទ","អង្គារ","ពុធ","ព្រហស្បតិ៍","សុក្រ","សៅរ៍"],daysShort:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍"],daysMin:["អា.ទិ","ចន្ទ","អង្គារ","ពុធ","ព្រ.ហ","សុក្រ","សៅរ៍"],months:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],monthsShort:["មករា","កុម្ភះ","មិនា","មេសា","ឧសភា","មិថុនា","កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ"],today:"ថ្ងៃនេះ",clear:"សំអាត"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.kr.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.kr.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.kr={days:["일요일","월요일","화요일","수요일","목요일","금요일","토요일"],daysShort:["일","월","화","수","목","금","토"],daysMin:["일","월","화","수","목","금","토"],months:["1월","2월","3월","4월","5월","6월","7월","8월","9월","10월","11월","12월"],monthsShort:["1월","2월","3월","4월","5월","6월","7월","8월","9월","10월","11월","12월"]}}(jQuery);
+!function(a){a.fn.datepicker.dates.kr={days:["일요일","월요일","화요일","수요일","목요일","금요일","토요일"],daysShort:["일","월","화","수","목","금","토"],daysMin:["일","월","화","수","목","금","토"],months:["1월","2월","3월","4월","5월","6월","7월","8월","9월","10월","11월","12월"],monthsShort:["1월","2월","3월","4월","5월","6월","7월","8월","9월","10월","11월","12월"]},a.fn.datepicker.deprecated('The language code "kr" is deprecated and will be removed in 2.0. For korean support use "ko" instead.')}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.lv.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.lv.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.lv={days:["Svētdiena","Pirmdiena","Otrdiena","Trešdiena","Ceturtdiena","Piektdiena","Sestdiena"],daysShort:["Sv","P","O","T","C","Pk","S"],daysMin:["Sv","Pr","Ot","Tr","Ce","Pk","Se"],months:["Janvāris","Februāris","Marts","Aprīlis","Maijs","Jūnijs","Jūlijs","Augusts","Septembris","Oktobris","Novembris","Decembris"],monthsShort:["Jan","Feb","Mar","Apr","Mai","Jūn","Jūl","Aug","Sep","Okt","Nov","Dec"],today:"Šodien",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates.lv={days:["Svētdiena","Pirmdiena","Otrdiena","Trešdiena","Ceturtdiena","Piektdiena","Sestdiena"],daysShort:["Sv","P","O","T","C","Pk","S"],daysMin:["Sv","Pr","Ot","Tr","Ce","Pk","Se"],months:["Janvāris","Februāris","Marts","Aprīlis","Maijs","Jūnijs","Jūlijs","Augusts","Septembris","Oktobris","Novembris","Decembris"],monthsShort:["Jan","Feb","Mar","Apr","Mai","Jūn","Jūl","Aug","Sep","Okt","Nov","Dec"],monthsTitle:"Mēneši",today:"Šodien",clear:"Nodzēst",weekStart:1}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.nb.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.nb.min.js
@@ -1 +0,0 @@
-!function(a){a.fn.datepicker.dates.nb={days:["Søndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag"],daysShort:["Søn","Man","Tir","Ons","Tor","Fre","Lør"],daysMin:["Sø","Ma","Ti","On","To","Fr","Lø"],months:["Januar","Februar","Mars","April","Mai","Juni","Juli","August","September","Oktober","November","Desember"],monthsShort:["Jan","Feb","Mar","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Des"],today:"I Dag",format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.no.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.no.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.no={days:["Søndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag"],daysShort:["Søn","Man","Tir","Ons","Tor","Fre","Lør"],daysMin:["Sø","Ma","Ti","On","To","Fr","Lø"],months:["Januar","Februar","Mars","April","Mai","Juni","Juli","August","September","Oktober","November","Desember"],monthsShort:["Jan","Feb","Mar","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Des"],today:"I dag",clear:"Nullstill",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates.no={days:["søndag","mandag","tirsdag","onsdag","torsdag","fredag","lørdag"],daysShort:["søn","man","tir","ons","tor","fre","lør"],daysMin:["sø","ma","ti","on","to","fr","lø"],months:["januar","februar","mars","april","mai","juni","juli","august","september","oktober","november","desember"],monthsShort:["jan","feb","mar","apr","mai","jun","jul","aug","sep","okt","nov","des"],today:"i dag",monthsTitle:"Måneder",clear:"Nullstill",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.oc.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.oc.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.oc={days:["Dimenge","Diluns","Dimars","Dimècres","Dijòus","Divendres","Dissabte"],daysShort:["Dim","Dil","Dmr","Dmc","Dij","Div","Dis"],daysMin:["dg","dl","dr","dc","dj","dv","ds"],months:["Genièr","Febrièr","Març","Abrial","Mai","Junh","Julhet","Agost","Setembre","Octobre","Novembre","Decembre"],monthsShort:["Gen","Feb","Mar","Abr","Mai","Jun","Jul","Ago","Set","Oct","Nov","Dec"],today:"Uèi",monthsTitle:"Meses",clear:"Escafar",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.pl.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.pl.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.pl={days:["niedziela","poniedziałek","wtorek","środa","czwartek","piątek","sobota"],daysShort:["niedz.","pon.","wt.","śr.","czw.","piąt.","sob."],daysMin:["ndz.","pn.","wt.","śr.","czw.","pt.","sob."],months:["styczeń","luty","marzec","kwiecień","maj","czerwiec","lipiec","sierpień","wrzesień","październik","listopad","grudzień"],monthsShort:["sty.","lut.","mar.","kwi.","maj","cze.","lip.","sie.","wrz.","paź.","lis.","gru."],today:"dzisiaj",weekStart:1,clear:"wyczyść",format:"dd.mm.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates.pl={days:["Niedziela","Poniedziałek","Wtorek","Środa","Czwartek","Piątek","Sobota"],daysShort:["Niedz.","Pon.","Wt.","Śr.","Czw.","Piąt.","Sob."],daysMin:["Ndz.","Pn.","Wt.","Śr.","Czw.","Pt.","Sob."],months:["Styczeń","Luty","Marzec","Kwiecień","Maj","Czerwiec","Lipiec","Sierpień","Wrzesień","Październik","Listopad","Grudzień"],monthsShort:["Sty.","Lut.","Mar.","Kwi.","Maj","Cze.","Lip.","Sie.","Wrz.","Paź.","Lis.","Gru."],today:"Dzisiaj",weekStart:1,clear:"Wyczyść",format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ro.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ro.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.ro={days:["Duminică","Luni","Marţi","Miercuri","Joi","Vineri","Sâmbătă"],daysShort:["Dum","Lun","Mar","Mie","Joi","Vin","Sâm"],daysMin:["Du","Lu","Ma","Mi","Jo","Vi","Sâ"],months:["Ianuarie","Februarie","Martie","Aprilie","Mai","Iunie","Iulie","August","Septembrie","Octombrie","Noiembrie","Decembrie"],monthsShort:["Ian","Feb","Mar","Apr","Mai","Iun","Iul","Aug","Sep","Oct","Nov","Dec"],today:"Astăzi",clear:"Șterge",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates.ro={days:["Duminică","Luni","Marţi","Miercuri","Joi","Vineri","Sâmbătă"],daysShort:["Dum","Lun","Mar","Mie","Joi","Vin","Sâm"],daysMin:["Du","Lu","Ma","Mi","Jo","Vi","Sâ"],months:["Ianuarie","Februarie","Martie","Aprilie","Mai","Iunie","Iulie","August","Septembrie","Octombrie","Noiembrie","Decembrie"],monthsShort:["Ian","Feb","Mar","Apr","Mai","Iun","Iul","Aug","Sep","Oct","Nov","Dec"],today:"Astăzi",clear:"Șterge",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.rs-latin.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.rs-latin.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates["rs-latin"]={days:["Nedelja","Ponedeljak","Utorak","Sreda","Četvrtak","Petak","Subota"],daysShort:["Ned","Pon","Uto","Sre","Čet","Pet","Sub"],daysMin:["N","Po","U","Sr","Č","Pe","Su"],months:["Januar","Februar","Mart","April","Maj","Jun","Jul","Avgust","Septembar","Oktobar","Novembar","Decembar"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Avg","Sep","Okt","Nov","Dec"],today:"Danas",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates["rs-latin"]={days:["Nedelja","Ponedeljak","Utorak","Sreda","Četvrtak","Petak","Subota"],daysShort:["Ned","Pon","Uto","Sre","Čet","Pet","Sub"],daysMin:["N","Po","U","Sr","Č","Pe","Su"],months:["Januar","Februar","Mart","April","Maj","Jun","Jul","Avgust","Septembar","Oktobar","Novembar","Decembar"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Avg","Sep","Okt","Nov","Dec"],today:"Danas",weekStart:1,format:"dd.mm.yyyy"},a.fn.datepicker.deprecated('This language code "rs-latin" is deprecated (invalid serbian language code) and will be removed in 2.0. For Serbian latin support use "sr-latin" instead.')}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.rs.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.rs.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.rs={days:["Недеља","Понедељак","Уторак","Среда","Четвртак","Петак","Субота"],daysShort:["Нед","Пон","Уто","Сре","Чет","Пет","Суб"],daysMin:["Н","По","У","Ср","Ч","Пе","Су"],months:["Јануар","Фебруар","Март","Април","Мај","Јун","Јул","Август","Септембар","Октобар","Новембар","Децембар"],monthsShort:["Јан","Феб","Мар","Апр","Мај","Јун","Јул","Авг","Сеп","Окт","Нов","Дец"],today:"Данас",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
+!function(a){a.fn.datepicker.dates.rs={days:["Недеља","Понедељак","Уторак","Среда","Четвртак","Петак","Субота"],daysShort:["Нед","Пон","Уто","Сре","Чет","Пет","Суб"],daysMin:["Н","По","У","Ср","Ч","Пе","Су"],months:["Јануар","Фебруар","Март","Април","Мај","Јун","Јул","Август","Септембар","Октобар","Новембар","Децембар"],monthsShort:["Јан","Феб","Мар","Апр","Мај","Јун","Јул","Авг","Сеп","Окт","Нов","Дец"],today:"Данас",weekStart:1,format:"dd.mm.yyyy"},a.fn.datepicker.deprecated('This language code "rs" is deprecated (invalid serbian language code) and will be removed in 2.0. For Serbian support use "sr" instead.')}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ru.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ru.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.ru={days:["Воскресенье","Понедельник","Вторник","Среда","Четверг","Пятница","Суббота"],daysShort:["Вск","Пнд","Втр","Срд","Чтв","Птн","Суб"],daysMin:["Вс","Пн","Вт","Ср","Чт","Пт","Сб"],months:["Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь"],monthsShort:["Янв","Фев","Мар","Апр","Май","Июн","Июл","Авг","Сен","Окт","Ноя","Дек"],today:"Сегодня",clear:"Очистить",format:"dd.mm.yyyy",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates.ru={days:["Воскресенье","Понедельник","Вторник","Среда","Четверг","Пятница","Суббота"],daysShort:["Вск","Пнд","Втр","Срд","Чтв","Птн","Суб"],daysMin:["Вс","Пн","Вт","Ср","Чт","Пт","Сб"],months:["Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь"],monthsShort:["Янв","Фев","Мар","Апр","Май","Июн","Июл","Авг","Сен","Окт","Ноя","Дек"],today:"Сегодня",clear:"Очистить",format:"dd.mm.yyyy",weekStart:1,monthsTitle:"Месяцы"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.si.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.si.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.si={days:["ඉරිදා","සඳුදා","අඟහරුවාදා","බදාදා","බ්‍රහස්පතින්දා","සිකුරාදා","සෙනසුරාදා"],daysShort:["ඉරි","සඳු","අඟ","බදා","බ්‍රහ","සිකු","සෙන"],daysMin:["ඉ","ස","අ","බ","බ්‍ර","සි","සෙ"],months:["ජනවාරි","පෙබරවාරි","මාර්තු","අප්‍රේල්","මැයි","ජුනි","ජූලි","අගෝස්තු","සැප්තැම්බර්","ඔක්තෝබර්","නොවැම්බර්","දෙසැම්බර්"],monthsShort:["ජන","පෙබ","මාර්","අප්‍රේ","මැයි","ජුනි","ජූලි","අගෝ","සැප්","ඔක්","නොවැ","දෙසැ"],today:"අද",monthsTitle:"මාස",clear:"මකන්න",weekStart:0,format:"yyyy-mm-dd"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sl.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sl.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.sl={days:["Nedelja","Ponedeljek","Torek","Sreda","Četrtek","Petek","Sobota"],daysShort:["Ned","Pon","Tor","Sre","Čet","Pet","Sob"],daysMin:["Ne","Po","To","Sr","Če","Pe","So"],months:["Januar","Februar","Marec","April","Maj","Junij","Julij","Avgust","September","Oktober","November","December"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Avg","Sep","Okt","Nov","Dec"],today:"Danes"}}(jQuery);
+!function(a){a.fn.datepicker.dates.sl={days:["Nedelja","Ponedeljek","Torek","Sreda","Četrtek","Petek","Sobota"],daysShort:["Ned","Pon","Tor","Sre","Čet","Pet","Sob"],daysMin:["Ne","Po","To","Sr","Če","Pe","So"],months:["Januar","Februar","Marec","April","Maj","Junij","Julij","Avgust","September","Oktober","November","December"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Avg","Sep","Okt","Nov","Dec"],today:"Danes",weekStart:1}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sq.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sq.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.sq={days:["E Diel","E Hënë","E Martē","E Mërkurë","E Enjte","E Premte","E Shtunë"],daysShort:["Die","Hën","Mar","Mër","Enj","Pre","Shtu"],daysMin:["Di","Hë","Ma","Më","En","Pr","Sht"],months:["Janar","Shkurt","Mars","Prill","Maj","Qershor","Korrik","Gusht","Shtator","Tetor","Nëntor","Dhjetor"],monthsShort:["Jan","Shk","Mar","Pri","Maj","Qer","Korr","Gu","Sht","Tet","Nën","Dhjet"],today:"Sot"}}(jQuery);
+!function(a){a.fn.datepicker.dates.sq={days:["E Diel","E Hënë","E Martē","E Mërkurë","E Enjte","E Premte","E Shtunë"],daysShort:["Die","Hën","Mar","Mër","Enj","Pre","Shtu"],daysMin:["Di","Hë","Ma","Më","En","Pr","Sht"],months:["Janar","Shkurt","Mars","Prill","Maj","Qershor","Korrik","Gusht","Shtator","Tetor","Nëntor","Dhjetor"],monthsShort:["Jan","Shk","Mar","Pri","Maj","Qer","Korr","Gu","Sht","Tet","Nën","Dhjet"],monthsTitle:"Muaj",today:"Sot",weekStart:1,format:"dd/mm/yyyy",clear:"Pastro"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sv.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.sv.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates.sv={days:["Söndag","Måndag","Tisdag","Onsdag","Torsdag","Fredag","Lördag"],daysShort:["Sön","Mån","Tis","Ons","Tor","Fre","Lör"],daysMin:["Sö","Må","Ti","On","To","Fr","Lö"],months:["Januari","Februari","Mars","April","Maj","Juni","Juli","Augusti","September","Oktober","November","December"],monthsShort:["Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec"],today:"Idag",format:"yyyy-mm-dd",weekStart:1,clear:"Rensa"}}(jQuery);
+!function(a){a.fn.datepicker.dates.sv={days:["söndag","måndag","tisdag","onsdag","torsdag","fredag","lördag"],daysShort:["sön","mån","tis","ons","tor","fre","lör"],daysMin:["sö","må","ti","on","to","fr","lö"],months:["januari","februari","mars","april","maj","juni","juli","augusti","september","oktober","november","december"],monthsShort:["jan","feb","mar","apr","maj","jun","jul","aug","sep","okt","nov","dec"],today:"Idag",format:"yyyy-mm-dd",weekStart:1,clear:"Rensa"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ta.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.ta.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.ta={days:["ஞாயிறு","திங்கள்","செவ்வாய்","புதன்","வியாழன்","வெள்ளி","சனி"],daysShort:["ஞாயி","திங்","செவ்","புத","வியா","வெள்","சனி"],daysMin:["ஞா","தி","செ","பு","வி","வெ","ச"],months:["ஜனவரி","பிப்ரவரி","மார்ச்","ஏப்ரல்","மே","ஜூன்","ஜூலை","ஆகஸ்டு","செப்டம்பர்","அக்டோபர்","நவம்பர்","டிசம்பர்"],monthsShort:["ஜன","பிப்","மார்","ஏப்","மே","ஜூன்","ஜூலை","ஆக","செப்","அக்","நவ","டிச"],today:"இன்று",monthsTitle:"மாதங்கள்",clear:"நீக்கு",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.tg.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.tg.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.tg={days:["Якшанбе","Душанбе","Сешанбе","Чоршанбе","Панҷшанбе","Ҷумъа","Шанбе"],daysShort:["Яшб","Дшб","Сшб","Чшб","Пшб","Ҷум","Шнб"],daysMin:["Яш","Дш","Сш","Чш","Пш","Ҷм","Шб"],months:["Январ","Феврал","Март","Апрел","Май","Июн","Июл","Август","Сентябр","Октябр","Ноябр","Декабр"],monthsShort:["Янв","Фев","Мар","Апр","Май","Июн","Июл","Авг","Сен","Окт","Ноя","Дек"],today:"Имрӯз",monthsTitle:"Моҳҳо",clear:"Тоза намудан",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.tk.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.tk.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates.tk={days:["Ýekşenbe","Duşenbe","Sişenbe","Çarşenbe","Penşenbe","Anna","Şenbe"],daysShort:["Ýek","Duş","Siş","Çar","Pen","Ann","Şen"],daysMin:["Ýe","Du","Si","Ça","Pe","An","Şe"],months:["Ýanwar","Fewral","Mart","Aprel","Maý","Iýun","Iýul","Awgust","Sentýabr","Oktýabr","Noýabr","Dekabr"],monthsShort:["Ýan","Few","Mar","Apr","Maý","Iýn","Iýl","Awg","Sen","Okt","Noý","Dek"],today:"Bu gün",monthsTitle:"Aýlar",clear:"Aýyr",weekStart:1,format:"dd.mm.yyyy"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.uz-cyrl.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.uz-cyrl.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["uz-cyrl"]={days:["Якшанба","Душанба","Сешанба","Чоршанба","Пайшанба","Жума","Шанба"],daysShort:["Якш","Ду","Се","Чор","Пай","Жу","Ша"],daysMin:["Як","Ду","Се","Чо","Па","Жу","Ша"],months:["Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь"],monthsShort:["Янв","Фев","Мар","Апр","Май","Июн","Июл","Авг","Сен","Окт","Ноя","Дек"],today:"Бугун",clear:"Ўчириш",format:"dd.mm.yyyy",weekStart:1,monthsTitle:"Ойлар"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.uz-latn.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.uz-latn.min.js
@@ -0,0 +1 @@
+!function(a){a.fn.datepicker.dates["uz-latn"]={days:["Yakshanba","Dushanba","Seshanba","Chorshanba","Payshanba","Juma","Shanba"],daysShort:["Yak","Du","Se","Chor","Pay","Ju","Sha"],daysMin:["Ya","Du","Se","Cho","Pa","Ju","Sha"],months:["Yanvar","Fevral","Mart","Aprel","May","Iyun","Iyul","Avgust","Sentabr","Oktabr","Noyabr","Dekabr"],monthsShort:["Yan","Fev","Mar","Apr","May","Iyn","Iyl","Avg","Sen","Okt","Noy","Dek"],today:"Bugun",clear:"O'chirish",format:"dd.mm.yyyy",weekStart:1,monthsTitle:"Oylar"}}(jQuery);
--- a/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.zh-CN.min.js
+++ b/inst/www/shared/datepicker/js/locales/bootstrap-datepicker.zh-CN.min.js
@@ -1 +1 @@
-!function(a){a.fn.datepicker.dates["zh-CN"]={days:["星期日","星期一","星期二","星期三","星期四","星期五","星期六"],daysShort:["周日","周一","周二","周三","周四","周五","周六"],daysMin:["日","一","二","三","四","五","六"],months:["一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"],monthsShort:["1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月"],today:"今日",clear:"清除",format:"yyyy年mm月dd日",titleFormat:"yyyy年mm月",weekStart:1}}(jQuery);
+!function(a){a.fn.datepicker.dates["zh-CN"]={days:["星期日","星期一","星期二","星期三","星期四","星期五","星期六"],daysShort:["周日","周一","周二","周三","周四","周五","周六"],daysMin:["日","一","二","三","四","五","六"],months:["一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"],monthsShort:["1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月"],today:"今天",monthsTitle:"选择月份",clear:"清除",format:"yyyy-mm-dd",titleFormat:"yyyy年mm月",weekStart:1}}(jQuery);
--- a/inst/www/shared/datepicker/scss/build3.scss
+++ b/inst/www/shared/datepicker/scss/build3.scss
@@ -0,0 +1,92 @@
+// Datepicker .scss buildfile.  Includes select mixins/variables from bootstrap
+// and imports the included datepicker.scss to output a minimal datepicker.css
+//
+// Usage:
+//     lessc build3.scss datepicker.css
+//
+// Variables and mixins copied from Bootstrap 3.3.5
+
+// These are BS3 variables that are used in datepicker3.scss. So, when compiling against
+// a BS3 bootstraplib theme, these variables should already be defined. Here we set
+// *defaults* for these variables based on BS4 variables, so this scss can work for
+// both BS3 and BS4
+$gray:                mix($body-bg, $body-color, 33.5%) !default;
+$gray-light:          mix($body-bg, $body-color, 46.7%) !default;
+$gray-lighter:        mix($body-bg, $body-color, 90%) !default;
+$brand-primary:       $primary !default;
+$btn-primary-color:   $body-bg !default;
+$btn-primary-bg:      $primary !default;
+$btn-primary-border:  mix($body-color, $btn-primary-bg, 5%) !default;
+$state-info-bg:       mix($body-bg, $info, 80%) !default;
+$border-radius-base:  $border-radius !default;
+$dropdown-border:     $dropdown-border-color !default;
+// These variables are also used in datepicker3.scss, but we don't need to set them since
+// they're the same in BS3 and BS4
+//$line-height-base:        1.428571429;
+//$btn-link-disabled-color: $gray-light;
+//$dropdown-bg:             #fff;
+
+// Setup BS4 style color contrasting
+$yiq-contrasted-threshold:  150 !default;
+$yiq-text-dark:             #212529 !default;
+$yiq-text-light:            #fff !default;
+
+@function color-yiq($color, $dark: $yiq-text-dark, $light: $yiq-text-light) {
+  $r: red($color);
+  $g: green($color);
+  $b: blue($color);
+
+  $yiq: (($r * 299) + ($g * 587) + ($b * 114)) / 1000;
+
+  @if ($yiq >= $yiq-contrasted-threshold) {
+    @return $dark;
+  } @else {
+    @return $light;
+  }
+}
+
+@mixin button-variant($background, $border) {
+  $color: color-yiq($background);
+
+  color: $color;
+  background-color: $background;
+  border-color: $border;
+
+  &:focus,
+  &.focus {
+    color: $color;
+    background-color: mix($background, $color, 90%);
+        border-color: mix($border, $color, 75%);
+  }
+  &:hover {
+    color: $color;
+    background-color: mix($background, $color, 50%);
+        border-color: mix($border, $color, 88%);
+  }
+  &:active,
+  &.active {
+    color: $color;
+    background-color: mix($background, $color, 90%);
+        border-color: mix($border, $color, 88%);
+
+    &:hover,
+    &:focus,
+    &.focus {
+      color: $color;
+      background-color: mix($background, $color, 83%);
+          border-color: mix($border, $color, 75%);
+    }
+  }
+  &.disabled,
+  &[disabled],
+  fieldset[disabled] & {
+    &:hover,
+    &:focus,
+    &.focus {
+      background-color: $background;
+          border-color: $border;
+    }
+  }
+}
+
+@import "datepicker3.scss";
--- a/inst/www/shared/datepicker/scss/datepicker3.scss
+++ b/inst/www/shared/datepicker/scss/datepicker3.scss
@@ -0,0 +1,260 @@
+.datepicker {
+	border-radius: $border-radius-base;
+	&-inline {
+		width: 220px;
+	}
+	direction: ltr;
+	&-rtl {
+		direction: rtl;
+		&.dropdown-menu { left: auto; }
+		table tr td span {
+			float: right;
+		}
+	}
+	&-dropdown {
+		top: 0;
+		left: 0;
+		padding: 4px;
+		&:before {
+			content: '';
+			display: inline-block;
+			border-left:   7px solid transparent;
+			border-right:  7px solid transparent;
+			border-bottom: 7px solid $dropdown-border;
+			border-top:    0;
+			border-bottom-color: rgba(0,0,0,.2);
+			position: absolute;
+		}
+		&:after {
+			content: '';
+			display: inline-block;
+			border-left:   6px solid transparent;
+			border-right:  6px solid transparent;
+			border-bottom: 6px solid $dropdown-bg;
+			border-top:    0;
+			position: absolute;
+		}
+		&.datepicker-orient-left:before   { left: 6px; }
+		&.datepicker-orient-left:after    { left: 7px; }
+		&.datepicker-orient-right:before  { right: 6px; }
+		&.datepicker-orient-right:after   { right: 7px; }
+		&.datepicker-orient-bottom:before { top: -7px; }
+		&.datepicker-orient-bottom:after  { top: -6px; }
+		&.datepicker-orient-top:before {
+			bottom: -7px;
+			border-bottom: 0;
+			border-top:    7px solid $dropdown-border;
+		}
+		&.datepicker-orient-top:after {
+			bottom: -6px;
+			border-bottom: 0;
+			border-top:    6px solid $dropdown-bg;
+		}
+	}
+	table {
+		margin: 0;
+		-webkit-touch-callout: none;
+		-webkit-user-select: none;
+		-khtml-user-select: none;
+		-moz-user-select: none;
+		-ms-user-select: none;
+		user-select: none;
+		tr {
+			td, th {
+				text-align: center;
+				width: 30px;
+				height: 30px;
+				border-radius: 4px;
+				border: none;
+			}
+		}
+	}
+	// Inline display inside a table presents some problems with
+	// border and background colors.
+	.table-striped & table tr {
+		td, th {
+			background-color: transparent;
+		}
+	}
+	table tr td {
+		&.old,
+		&.new {
+			color: $btn-link-disabled-color;
+		}
+		&.day:hover,
+		&.focused {
+		  color: color-yiq($gray-lighter);
+			background: $gray-lighter;
+			cursor: pointer;
+		}
+		&.disabled,
+		&.disabled:hover {
+			background: none;
+			color: $btn-link-disabled-color;
+			cursor: default;
+		}
+		&.highlighted {
+			$highlighted-bg: $state-info-bg;
+			@include button-variant($highlighted-bg, darken($highlighted-bg, 20%));
+			border-radius: 0;
+
+			&.focused {
+				background: darken($highlighted-bg, 10%);
+			}
+
+			&.disabled,
+			&.disabled:active {
+				background: $highlighted-bg;
+				color: $btn-link-disabled-color;
+			}
+		}
+		&.today {
+			$today-bg: lighten(orange, 30%);
+			@include button-variant($today-bg, darken($today-bg, 20%));
+
+			&.focused {
+				background: darken($today-bg, 10%);
+			}
+
+			&.disabled,
+			&.disabled:active {
+				background: $today-bg;
+				color: $btn-link-disabled-color;
+			}
+		}
+		&.range {
+			$range-bg: $gray-lighter;
+			@include button-variant($range-bg, darken($range-bg, 20%));
+			border-radius: 0;
+
+			&.focused {
+				background: darken($range-bg, 10%);
+			}
+
+			&.disabled,
+			&.disabled:active {
+				background: $range-bg;
+				color: $btn-link-disabled-color;
+			}
+		}
+		&.range.highlighted {
+			$range-highlighted-bg: mix($state-info-bg, $gray-lighter, 50%);
+			@include button-variant($range-highlighted-bg, darken($range-highlighted-bg, 20%));
+
+			&.focused {
+				background: darken($range-highlighted-bg, 10%);
+			}
+
+			&.disabled,
+			&.disabled:active {
+				background: $range-highlighted-bg;
+				color: $btn-link-disabled-color;
+			}
+		}
+		&.range.today {
+			$range-today-bg: mix(orange, $gray-lighter, 50%);
+			@include button-variant($range-today-bg, darken($range-today-bg, 20%));
+
+			&.disabled,
+			&.disabled:active {
+				background: $range-today-bg;
+				color: $btn-link-disabled-color;
+			}
+		}
+		&.selected,
+		&.selected.highlighted {
+			@include button-variant($gray-light, $gray);
+			text-shadow: 0 -1px 0 rgba(0,0,0,.25);
+		}
+		&.active,
+		&.active.highlighted {
+			@include button-variant($btn-primary-bg, $btn-primary-border);
+			text-shadow: 0 -1px 0 rgba(0,0,0,.25);
+		}
+		span {
+			display: block;
+			width: 23%;
+			height: 54px;
+			line-height: 54px;
+			float: left;
+			margin: 1%;
+			cursor: pointer;
+			border-radius: 4px;
+			&:hover,
+			&.focused {
+			  color: color-yiq($gray-lighter);
+				background: $gray-lighter;
+			}
+			&.disabled,
+			&.disabled:hover {
+				background: none;
+				color: $btn-link-disabled-color;
+				cursor: default;
+			}
+			&.active,
+			&.active:hover,
+			&.active.disabled,
+			&.active.disabled:hover {
+				@include button-variant($btn-primary-bg, $btn-primary-border);
+				text-shadow: 0 -1px 0 rgba(0,0,0,.25);
+			}
+			&.old,
+			&.new {
+				color: $btn-link-disabled-color;
+			}
+		}
+	}
+
+	.datepicker-switch {
+		width: 145px;
+	}
+
+	.datepicker-switch,
+	.prev,
+	.next,
+	tfoot tr th {
+		cursor: pointer;
+		&:hover {
+		  color: color-yiq($gray-lighter);
+		  background: $gray-lighter;
+		}
+	}
+
+	.prev, .next {
+		&.disabled {
+			visibility: hidden;
+		}
+	}
+
+	// Basic styling for calendar-week cells
+	.cw {
+		font-size: 10px;
+		width: 12px;
+		padding: 0 2px 0 5px;
+		vertical-align: middle;
+	}
+}
+.input-group.date .input-group-addon {
+	cursor: pointer;
+}
+.input-daterange {
+	width: 100%;
+	input {
+		text-align: center;
+	}
+	input:first-child {
+		border-radius: 3px 0 0 3px;
+	}
+	input:last-child {
+		border-radius: 0 3px 3px 0;
+	}
+	.input-group-addon {
+		width: auto;
+		min-width: 16px;
+		padding: 4px 5px;
+		line-height: $line-height-base;
+		border-width: 1px 0;
+		margin-left: -5px;
+		margin-right: -5px;
+	}
+}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.css
@@ -1,150 +1,264 @@
-/* Ion.RangeSlider
-// css version 2.0.3
-// © 2013-2014 Denis Ineshin | IonDen.com
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// RangeSlider */
-
+@charset "UTF-8";
+/* 'shiny' skin for Ion.RangeSlider, largely based on the 'big' skin, but with smaller dimensions, grayscale grid text, and without gradients
+© RStudio, Inc, 2014
+© Denis Ineshin, 2014  https://github.com/IonDen
+© guybowden, 2014  https://github.com/guybowden
+*/
 .irs {
-    position: relative; display: block;
-    -webkit-touch-callout: none;
-    -webkit-user-select: none;
-     -khtml-user-select: none;
-       -moz-user-select: none;
-        -ms-user-select: none;
-            user-select: none;
+  position: relative;
+  display: block;
+  -webkit-touch-callout: none;
+  -webkit-user-select: none;
+  -khtml-user-select: none;
+  -moz-user-select: none;
+  -ms-user-select: none;
+  user-select: none;
+  font-size: 12px;
+  font-family: Arial, sans-serif;
 }
-    .irs-line {
-        position: relative; display: block;
-        overflow: hidden;
-        outline: none !important;
-    }
-        .irs-line-left, .irs-line-mid, .irs-line-right {
-            position: absolute; display: block;
-            top: 0;
-        }
-        .irs-line-left {
-            left: 0; width: 11%;
-        }
-        .irs-line-mid {
-            left: 9%; width: 82%;
-        }
-        .irs-line-right {
-            right: 0; width: 11%;
-        }

-    .irs-bar {
-        position: absolute; display: block;
-        left: 0; width: 0;
-    }
-        .irs-bar-edge {
-            position: absolute; display: block;
-            top: 0; left: 0;
-        }
+.irs-line {
+  position: relative;
+  display: block;
+  overflow: hidden;
+  outline: none !important;
+}

-    .irs-shadow {
-        position: absolute; display: none;
-        left: 0; width: 0;
-    }
+.irs-bar {
+  position: absolute;
+  display: block;
+  left: 0;
+  width: 0;
+}

-    .irs-slider {
-        position: absolute; display: block;
-        cursor: default;
-        z-index: 1;
-    }
-        .irs-slider.single {
+.irs-shadow {
+  position: absolute;
+  display: none;
+  left: 0;
+  width: 0;
+}

-        }
-        .irs-slider.from {
+.irs-handle {
+  position: absolute;
+  display: block;
+  box-sizing: border-box;
+  cursor: pointer;
+  z-index: 1;
+}

-        }
-        .irs-slider.to {
+.irs-handle.type_last {
+  z-index: 2;
+}

-        }
-        .irs-slider.type_last {
-            z-index: 2;
-        }
+.irs-min, .irs-max {
+  position: absolute;
+  display: block;
+  cursor: default;
+}

-    .irs-min {
-        position: absolute; display: block;
-        left: 0;
-        cursor: default;
-    }
-    .irs-max {
-        position: absolute; display: block;
-        right: 0;
-        cursor: default;
-    }
+.irs-min {
+  left: 0;
+}

-    .irs-from, .irs-to, .irs-single {
-        position: absolute; display: block;
-        top: 0; left: 0;
-        cursor: default;
-        white-space: nowrap;
-    }
+.irs-max {
+  right: 0;
+}
+
+.irs-from, .irs-to, .irs-single {
+  position: absolute;
+  display: block;
+  top: 0;
+  left: 0;
+  cursor: default;
+  white-space: nowrap;
+}

 .irs-grid {
-    position: absolute; display: none;
-    bottom: 0; left: 0;
-    width: 100%; height: 20px;
+  position: absolute;
+  display: none;
+  bottom: 0;
+  left: 0;
+  width: 100%;
+  height: 20px;
 }
+
 .irs-with-grid .irs-grid {
-    display: block;
+  display: block;
+}
+
+.irs-grid-pol {
+  position: absolute;
+  top: 0;
+  left: 0;
+  width: 1px;
+  height: 8px;
+  background: #000;
+}
+
+.irs-grid-pol.small {
+  height: 4px;
+}
+
+.irs-grid-text {
+  position: absolute;
+  bottom: 0;
+  left: 0;
+  white-space: nowrap;
+  text-align: center;
+  font-size: 9px;
+  line-height: 9px;
+  padding: 0 3px;
+  color: #000;
 }
-    .irs-grid-pol {
-        position: absolute;
-        top: 0; left: 0;
-        width: 1px; height: 8px;
-        background: #000;
-    }
-    .irs-grid-pol.small {
-        height: 4px;
-    }
-    .irs-grid-text {
-        position: absolute;
-        bottom: 0; left: 0;
-        white-space: nowrap;
-        text-align: center;
-        font-size: 9px; line-height: 9px;
-        padding: 0 3px;
-        color: #000;
-    }

 .irs-disable-mask {
-    position: absolute; display: block;
-    top: 0; left: -1%;
-    width: 102%; height: 100%;
-    cursor: default;
-    background: rgba(0,0,0,0.0);
-    z-index: 2;
+  position: absolute;
+  display: block;
+  top: 0;
+  left: -1%;
+  width: 102%;
+  height: 100%;
+  cursor: default;
+  background: rgba(0, 0, 0, 0);
+  z-index: 2;
 }
+
 .lt-ie9 .irs-disable-mask {
-    background: #000;
-    filter: alpha(opacity=0);
-    cursor: not-allowed;
+  background: #000;
+  filter: alpha(opacity=0);
+  cursor: not-allowed;
 }

 .irs-disabled {
-    opacity: 0.4;
+  opacity: 0.4;
 }

-
 .irs-hidden-input {
-    position: absolute !important;
-    display: block !important;
-    top: 0 !important;
-    left: 0 !important;
-    width: 0 !important;
-    height: 0 !important;
-    font-size: 0 !important;
-    line-height: 0 !important;
-    padding: 0 !important;
-    margin: 0 !important;
-    overflow: hidden;
-    outline: none !important;
-    z-index: -9999 !important;
-    background: none !important;
-    border-style: solid !important;
-    border-color: transparent !important;
+  position: absolute !important;
+  display: block !important;
+  top: 0 !important;
+  left: 0 !important;
+  width: 0 !important;
+  height: 0 !important;
+  font-size: 0 !important;
+  line-height: 0 !important;
+  padding: 0 !important;
+  margin: 0 !important;
+  overflow: hidden;
+  outline: none !important;
+  z-index: -9999 !important;
+  background: none !important;
+  border-style: solid !important;
+  border-color: transparent !important;
 }
+
+.irs {
+  font-family: Arial, sans-serif;
+}
+
+.irs--shiny {
+  height: 40px;
+}
+
+.irs--shiny.irs-with-grid {
+  height: 60px;
+}
+
+.irs--shiny .irs-line {
+  top: 25px;
+  height: 8px;
+  background: linear-gradient(to bottom, #dedede -50%, white 150%);
+  background-color: #ededed;
+  border: 1px solid #cccccc;
+  border-radius: 8px;
+}
+
+.irs--shiny .irs-bar {
+  top: 25px;
+  height: 8px;
+  border-top: 1px solid #428bca;
+  border-bottom: 1px solid #428bca;
+  background: #428bca;
+}
+
+.irs--shiny .irs-bar--single {
+  border-radius: 8px 0 0 8px;
+}
+
+.irs--shiny .irs-shadow {
+  top: 38px;
+  height: 2px;
+  background: rgba(0, 0, 0, 0.3);
+  border-radius: 5px;
+}
+
+.irs--shiny .lt-ie9 .irs-shadow {
+  filter: alpha(opacity=30);
+}
+
+.irs--shiny .irs-handle {
+  top: 17px;
+  width: 22px;
+  height: 22px;
+  border: 1px solid #ababab;
+  background-color: #dedede;
+  box-shadow: 1px 1px 3px rgba(255, 255, 255, 0.3);
+  border-radius: 22px;
+}
+
+.irs--shiny .irs-handle.state_hover, .irs--shiny .irs-handle:hover {
+  background: white;
+}
+
+.irs--shiny .irs-min,
+.irs--shiny .irs-max {
+  top: 0;
+  padding: 1px 3px;
+  color: #333333;
+  text-shadow: none;
+  background-color: rgba(0, 0, 0, 0.1);
+  border-radius: 3px;
+  font-size: 10px;
+  line-height: 1.333;
+}
+
+.irs--shiny .lt-ie9 .irs-min,
+.irs--shiny .lt-ie9 .irs-max {
+  background: #cccccc;
+}
+
+.irs--shiny .irs-from,
+.irs--shiny .irs-to,
+.irs--shiny .irs-single {
+  color: #fff;
+  text-shadow: none;
+  padding: 1px 3px;
+  background-color: #428bca;
+  border-radius: 3px;
+  font-size: 11px;
+  line-height: 1.333;
+}
+
+.irs--shiny .lt-ie9 .irs-from,
+.irs--shiny .lt-ie9 .irs-to,
+.irs--shiny .lt-ie9 .irs-single {
+  background: #999999;
+}
+
+.irs--shiny .irs-grid {
+  height: 27px;
+}
+
+.irs--shiny .irs-grid-pol {
+  background-color: black;
+}
+
+.irs--shiny .irs-grid-text {
+  bottom: 5px;
+  color: #1a1a1a;
+}
+
+.irs--shiny .irs-grid-pol.small {
+  background-color: #999999;
+}
+
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinFlat.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinFlat.css
@@ -1,106 +0,0 @@
-/* Ion.RangeSlider, Flat UI Skin
-// css version 2.0.3
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs-line-mid,
-.irs-line-left,
-.irs-line-right,
-.irs-bar,
-.irs-bar-edge,
-.irs-slider {
-    background: url(../img/sprite-skin-flat.png) repeat-x;
-}
-
-.irs {
-    height: 40px;
-}
-.irs-with-grid {
-    height: 60px;
-}
-.irs-line {
-    height: 12px; top: 25px;
-}
-    .irs-line-left {
-        height: 12px;
-        background-position: 0 -30px;
-    }
-    .irs-line-mid {
-        height: 12px;
-        background-position: 0 0;
-    }
-    .irs-line-right {
-        height: 12px;
-        background-position: 100% -30px;
-    }
-
-.irs-bar {
-    height: 12px; top: 25px;
-    background-position: 0 -60px;
-}
-    .irs-bar-edge {
-        top: 25px;
-        height: 12px; width: 9px;
-        background-position: 0 -90px;
-    }
-
-.irs-shadow {
-    height: 3px; top: 34px;
-    background: #000;
-    opacity: 0.25;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=25);
-}
-
-.irs-slider {
-    width: 16px; height: 18px;
-    top: 22px;
-    background-position: 0 -120px;
-}
-.irs-slider.state_hover, .irs-slider:hover {
-    background-position: 0 -150px;
-}
-
-.irs-min, .irs-max {
-    color: #999;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    top: 0; padding: 1px 3px;
-    background: #e1e4e9;
-    -moz-border-radius: 4px;
-    border-radius: 4px;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 5px;
-    background: #ed5565;
-    -moz-border-radius: 4px;
-    border-radius: 4px;
-}
-.irs-from:after, .irs-to:after, .irs-single:after {
-    position: absolute; display: block; content: "";
-    bottom: -6px; left: 50%;
-    width: 0; height: 0;
-    margin-left: -3px;
-    overflow: hidden;
-    border: 3px solid transparent;
-    border-top-color: #ed5565;
-}
-
-
-.irs-grid-pol {
-    background: #e1e4e9;
-}
-.irs-grid-text {
-    color: #999;
-}
-
-.irs-disabled {
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinHTML5.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinHTML5.css
@@ -1,124 +0,0 @@
-/* Ion.RangeSlider, Simple Skin
-// css version 2.0.3
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// © guybowden, 2014        https://github.com/guybowden
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs {
-    height: 55px;
-}
-.irs-with-grid {
-    height: 75px;
-}
-.irs-line {
-    height: 10px; top: 33px;
-    background: #EEE;
-    background: linear-gradient(to bottom, #DDD -50%, #FFF 150%); /* W3C */
-    border: 1px solid #CCC;
-    border-radius: 16px;
-    -moz-border-radius: 16px;
-}
-    .irs-line-left {
-        height: 8px;
-    }
-    .irs-line-mid {
-        height: 8px;
-    }
-    .irs-line-right {
-        height: 8px;
-    }
-
-.irs-bar {
-    height: 10px; top: 33px;
-    border-top: 1px solid #428bca;
-    border-bottom: 1px solid #428bca;
-    background: #428bca;
-    background: linear-gradient(to top, rgba(66,139,202,1) 0%,rgba(127,195,232,1) 100%); /* W3C */
-}
-    .irs-bar-edge {
-        height: 10px; top: 33px;
-        width: 14px;
-        border: 1px solid #428bca;
-        border-right: 0;
-        background: #428bca;
-        background: linear-gradient(to top, rgba(66,139,202,1) 0%,rgba(127,195,232,1) 100%); /* W3C */
-        border-radius: 16px 0 0 16px;
-        -moz-border-radius: 16px 0 0 16px;
-    }
-
-.irs-shadow {
-    height: 2px; top: 38px;
-    background: #000;
-    opacity: 0.3;
-    border-radius: 5px;
-    -moz-border-radius: 5px;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=30);
-}
-
-.irs-slider {
-    top: 25px;
-    width: 27px; height: 27px;
-    border: 1px solid #AAA;
-    background: #DDD;
-    background: linear-gradient(to bottom, rgba(255,255,255,1) 0%,rgba(220,220,220,1) 20%,rgba(255,255,255,1) 100%); /* W3C */
-    border-radius: 27px;
-    -moz-border-radius: 27px;
-    box-shadow: 1px 1px 3px rgba(0,0,0,0.3);
-    cursor: pointer;
-}
-
-.irs-slider.state_hover, .irs-slider:hover {
-    background: #FFF;
-}
-
-.irs-min, .irs-max {
-    color: #333;
-    font-size: 12px; line-height: 1.333;
-    text-shadow: none;
-    top: 0;
-    padding: 1px 5px;
-    background: rgba(0,0,0,0.1);
-    border-radius: 3px;
-    -moz-border-radius: 3px;
-}
-
-.lt-ie9 .irs-min, .lt-ie9 .irs-max {
-    background: #ccc;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 14px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 5px;
-    background: #428bca;
-    border-radius: 3px;
-    -moz-border-radius: 3px;
-}
-.lt-ie9 .irs-from, .lt-ie9 .irs-to, .lt-ie9 .irs-single {
-    background: #999;
-}
-
-.irs-grid {
-    height: 27px;
-}
-.irs-grid-pol {
-    opacity: 0.5;
-    background: #428bca;
-}
-.irs-grid-pol.small {
-    background: #999;
-}
-
-.irs-grid-text {
-    bottom: 5px;
-    color: #99a4ac;
-}
-
-.irs-disabled {
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinModern.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinModern.css
@@ -1,116 +0,0 @@
-/* Ion.RangeSlider, Modern Skin
-// css version 2.0.3
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs-line-mid,
-.irs-line-left,
-.irs-line-right,
-.irs-bar,
-.irs-bar-edge,
-.irs-slider {
-    background: url(../img/sprite-skin-modern.png) repeat-x;
-}
-
-.irs {
-    height: 50px;
-}
-.irs-with-grid {
-    height: 70px;
-}
-.irs-line {
-    height: 6px; top: 25px;
-}
-    .irs-line-left {
-        height: 6px;
-        background-position: 0 -30px;
-    }
-    .irs-line-mid {
-        height: 6px;
-        background-position: 0 0;
-    }
-    .irs-line-right {
-        height: 6px;
-        background-position: 100% -30px;
-    }
-
-.irs-bar {
-    height: 6px; top: 25px;
-    background-position: 0 -60px;
-}
-    .irs-bar-edge {
-        top: 25px;
-        height: 6px; width: 6px;
-        background-position: 0 -90px;
-    }
-
-.irs-shadow {
-    height: 5px; top: 25px;
-    background: #000;
-    opacity: 0.25;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=25);
-}
-
-.irs-slider {
-    width: 11px; height: 18px;
-    top: 31px;
-    background-position: 0 -120px;
-}
-.irs-slider.state_hover, .irs-slider:hover {
-    background-position: 0 -150px;
-}
-
-.irs-min, .irs-max {
-    color: #999;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    top: 0; padding: 1px 3px;
-    background: #e1e4e9;
-    -moz-border-radius: 4px;
-    border-radius: 4px;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 5px;
-    background: #20b426;
-    -moz-border-radius: 4px;
-    border-radius: 4px;
-}
-.irs-from:after, .irs-to:after, .irs-single:after {
-    position: absolute; display: block; content: "";
-    bottom: -6px; left: 50%;
-    width: 0; height: 0;
-    margin-left: -3px;
-    overflow: hidden;
-    border: 3px solid transparent;
-    border-top-color: #20b426;
-}
-
-.irs-grid {
-    height: 34px;
-}
-.irs-grid-pol {
-    background: #c0c0c0;
-}
-.irs-grid-text {
-    bottom: 12px;
-    color: #c0c0c0;
-}
-
-.irs-disable-mask {
-
-}
-.irs-disabled {
-
-}
-.lt-ie9 .irs-disabled {
-
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinNice.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinNice.css
@@ -1,102 +0,0 @@
-/* Ion.RangeSlider, Nice Skin
-// css version 2.0.3
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs-line-mid,
-.irs-line-left,
-.irs-line-right,
-.irs-bar,
-.irs-bar-edge,
-.irs-slider {
-    background: url(../img/sprite-skin-nice.png) repeat-x;
-}
-
-.irs {
-    height: 40px;
-}
-.irs-with-grid {
-    height: 60px;
-}
-.irs-line {
-    height: 8px; top: 25px;
-}
-    .irs-line-left {
-        height: 8px;
-        background-position: 0 -30px;
-    }
-    .irs-line-mid {
-        height: 8px;
-        background-position: 0 0;
-    }
-    .irs-line-right {
-        height: 8px;
-        background-position: 100% -30px;
-    }
-
-.irs-bar {
-    height: 8px; top: 25px;
-    background-position: 0 -60px;
-}
-    .irs-bar-edge {
-        top: 25px;
-        height: 8px; width: 11px;
-        background-position: 0 -90px;
-    }
-
-.irs-shadow {
-    height: 1px; top: 34px;
-    background: #000;
-    opacity: 0.15;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=15);
-}
-
-.irs-slider {
-    width: 22px; height: 22px;
-    top: 17px;
-    background-position: 0 -120px;
-}
-.irs-slider.state_hover, .irs-slider:hover {
-    background-position: 0 -150px;
-}
-
-.irs-min, .irs-max {
-    color: #999;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    top: 0; padding: 1px 3px;
-    background: rgba(0,0,0,0.1);
-    -moz-border-radius: 3px;
-    border-radius: 3px;
-}
-.lt-ie9 .irs-min, .lt-ie9 .irs-max {
-    background: #ccc;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 5px;
-    background: rgba(0,0,0,0.3);
-    -moz-border-radius: 3px;
-    border-radius: 3px;
-}
-.lt-ie9 .irs-from, .lt-ie9 .irs-to, .lt-ie9 .irs-single {
-    background: #999;
-}
-
-.irs-grid-pol {
-    background: #99a4ac;
-}
-.irs-grid-text {
-    color: #99a4ac;
-}
-
-.irs-disabled {
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinRound.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinRound.css
@@ -1,108 +0,0 @@
-/* Ion.RangeSlider, Round Skin
-// css version 2.2.0
-// © Denis Ineshin, 2014           https://github.com/IonDen
-// © Veaceslav Grimalschi, 2018    https://github.com/grimalschi
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs {
-    height: 50px;
-    font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
-}
-
-.irs-with-grid {
-    height: 67px;
-}
-
-.irs-line {
-    top: 36px;
-    height: 4px;
-    background: #DEE4EC;
-    border-radius: 16px;
-}
-
-.irs-bar, .irs-bar-edge {
-    top: 36px;
-    height: 4px;
-    background: #006CFA;
-}
-.irs-bar-edge {
-    width: 12px;
-}
-
-.irs-shadow {
-    height: 4px;
-    top: 40px;
-    background: #DEE4EC;
-    opacity: 0.5;
-}
-
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=25);
-}
-
-.irs-slider {
-    top: 35px;
-    width: 16px;
-    height: 16px;
-    margin-top: -10px;
-    border: 4px solid #006CFA;
-    background: white;
-    border-radius: 27px;
-    box-shadow: 0 1px 3px rgba(0,0,255,0.3);
-    cursor: pointer;
-    box-sizing: content-box;
-}
-
-.irs-slider.state_hover, .irs-slider:hover {
-    background: #f0f6ff;
-}
-
-.irs-min, .irs-max {
-    color: #333;
-    font-size: 14px;
-    top: 0;
-    padding: 3px 5px;
-    background: rgba(0,0,0,0.1);
-    border-radius: 3px;
-    line-height: 1;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 14px;
-    text-shadow: none;
-    padding: 3px 5px;
-    background: #006CFA;
-    border-radius: 3px;
-    line-height: 1;
-}
-.irs-from:after, .irs-to:after, .irs-single:after {
-    position: absolute;
-    display: block;
-    content: "";
-    bottom: -6px;
-    left: 50%;
-    width: 0;
-    height: 0;
-    margin-left: -3px;
-    overflow: hidden;
-    border: 3px solid transparent;
-    border-top-color: #006CFA;
-}
-
-.irs-grid {
-    height: 27px;
-}
-.irs-grid-pol {
-    background: #DEE4EC;
-}
-
-.irs-grid-text {
-    bottom: 4px;
-    color: silver;
-    font-size: 12px;
-}
-
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinShiny.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinShiny.css
@@ -1,128 +0,0 @@
-/* Ion.RangeSlider, Shiny Skin
-
-// This skin has been modified for use with Shiny.
-// It's based on the HTML5 skin, which doesn't require any sprites, but
-// has been modified to have no gradients, and to have dimensions similar to
-// the skinNice theme.
-
-// css version 2.0.0
-// © RStudio, Inc, 2014
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// © guybowden, 2014        https://github.com/guybowden
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs {
-    height: 40px;
-}
-.irs-with-grid {
-    height: 60px;
-}
-.irs-line {
-    height: 8px; top: 25px;
-    background: #EEE;
-    background: linear-gradient(to bottom, #DDD -50%, #FFF 150%); /* W3C */
-    border: 1px solid #CCC;
-    border-radius: 16px;
-    -moz-border-radius: 16px;
-}
-    .irs-line-left {
-        height: 8px;
-    }
-    .irs-line-mid {
-        height: 8px;
-    }
-    .irs-line-right {
-        height: 8px;
-    }
-
-.irs-bar {
-    height: 8px; top: 25px;
-    border-top: 1px solid #428bca;
-    border-bottom: 1px solid #428bca;
-    background: #428bca;
-}
-    .irs-bar-edge {
-        height: 8px; top: 25px;
-        width: 14px;
-        border: 1px solid #428bca;
-        border-right: 0;
-        background: #428bca;
-        border-radius: 16px 0 0 16px;
-        -moz-border-radius: 16px 0 0 16px;
-    }
-
-.irs-shadow {
-    height: 2px; top: 38px;
-    background: #000;
-    opacity: 0.3;
-    border-radius: 5px;
-    -moz-border-radius: 5px;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=30);
-}
-
-.irs-slider {
-    top: 17px;
-    width: 22px; height: 22px;
-    border: 1px solid #AAA;
-    background: #DDD;
-    border-radius: 27px;
-    -moz-border-radius: 27px;
-    box-shadow: 1px 1px 3px rgba(0,0,0,0.3);
-    cursor: pointer;
-}
-
-#irs-active-slider, .irs-slider:hover {
-    background: #FFF;
-}
-
-.irs-min, .irs-max {
-    color: #333;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    top: 0;
-    padding: 1px 3px;
-    background: rgba(0,0,0,0.1);
-    border-radius: 3px;
-    -moz-border-radius: 3px;
-}
-
-.lt-ie9 .irs-min, .lt-ie9 .irs-max {
-    background: #ccc;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 11px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 3px;
-    background: #428bca;
-    border-radius: 3px;
-    -moz-border-radius: 3px;
-}
-.lt-ie9 .irs-from, .lt-ie9 .irs-to, .lt-ie9 .irs-single {
-    background: #999;
-}
-
-.irs-grid {
-    height: 27px;
-}
-.irs-grid-pol {
-    opacity: 0.5;
-    background: #428bca;
-}
-.irs-grid-pol.small {
-    background: #999;
-}
-
-.irs-grid-text {
-    bottom: 5px;
-    color: #99a4ac;
-}
-
-.irs-disabled {
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinSimple.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinSimple.css
@@ -1,102 +0,0 @@
-/* Ion.RangeSlider, Simple Skin
-// css version 2.0.3
-// © Denis Ineshin, 2014    https://github.com/IonDen
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs-line-mid,
-.irs-line-left,
-.irs-line-right,
-.irs-bar,
-.irs-bar-edge,
-.irs-slider {
-    background: url(../img/sprite-skin-simple.png) repeat-x;
-}
-
-.irs {
-    height: 40px;
-}
-.irs-with-grid {
-    height: 60px;
-}
-.irs-line {
-    height: 6px; top: 25px;
-}
-    .irs-line-left {
-        height: 6px;
-        background-position: 0 -30px;
-    }
-    .irs-line-mid {
-        height: 6px;
-        background-position: 0 0;
-    }
-    .irs-line-right {
-        height: 6px;
-        background-position: 100% -30px;
-    }
-
-.irs-bar {
-    height: 6px; top: 25px;
-    background-position: 0 -60px;
-}
-    .irs-bar-edge {
-        top: 25px;
-        height: 6px; width: 7px;
-        background-position: 0 -90px;
-    }
-
-.irs-shadow {
-    height: 1px; top: 34px;
-    background: #000;
-    opacity: 0.75;
-}
-.lt-ie9 .irs-shadow {
-    filter: alpha(opacity=75);
-}
-
-.irs-slider {
-    width: 8px; height: 15px;
-    top: 21px;
-    background-position: 0 -120px;
-}
-.irs-slider.state_hover, .irs-slider:hover {
-    background-position: 0 -150px;
-}
-
-.irs-min, .irs-max {
-    color: #c0c0c0;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    top: 0; padding: 1px 3px;
-    background: rgba(0,0,0,0.1);
-    -moz-border-radius: 3px;
-    border-radius: 3px;
-}
-.lt-ie9 .irs-min, .lt-ie9 .irs-max {
-    background: #3654b0;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #000;
-    font-size: 10px; line-height: 1.333;
-    text-shadow: none;
-    padding: 1px 5px;
-    background: rgba(255,255,255,0.8);
-    -moz-border-radius: 3px;
-    border-radius: 3px;
-}
-.lt-ie9 .irs-from, .lt-ie9 .irs-to, .lt-ie9 .irs-single {
-    background: #d8dff3;
-}
-
-.irs-grid-pol {
-    background: #777;
-}
-.irs-grid-text {
-    color: #e0e0e0;
-}
-
-.irs-disabled {
-}
--- a/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinSquare.css
+++ b/inst/www/shared/ionrangeslider/css/ion.rangeSlider.skinSquare.css
@@ -1,87 +0,0 @@
-/* Ion.RangeSlider, Square Skin
-// css version 2.2.0
-// © Denis Ineshin, 2014           https://github.com/IonDen
-// © Veaceslav Grimalschi, 2018    https://github.com/grimalschi
-// ===================================================================================================================*/
-
-/* =====================================================================================================================
-// Skin details */
-
-.irs {
-    height: 45px;
-    font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
-}
-
-.irs-with-grid {
-    height: 62px;
-}
-
-.irs-line {
-    top: 31px;
-    height: 4px;
-    background: #DEDEDE;
-}
-
-.irs-bar, .irs-bar-edge {
-    top: 31px;
-    height: 4px;
-    background: black;
-}
-.irs-bar-edge {
-    width: 8px;
-}
-
-.irs-shadow {
-    height: 2px;
-    top: 37px;
-    background: #DEDEDE;
-}
-
-.irs-slider {
-    top: 30px;
-    width: 10px;
-    height: 10px;
-    margin-top: -5px;
-    border: 3px solid black;
-    background: white;
-    cursor: pointer;
-    box-sizing: content-box;
-    -webkit-transform: rotate(45deg);
-    -ms-transform: rotate(45deg);
-    transform: rotate(45deg);
-}
-
-.irs-slider.state_hover, .irs-slider:hover {
-    background: #f0f0f0;
-}
-
-.irs-min, .irs-max {
-    color: #333;
-    font-size: 13px;
-    top: 0;
-    padding: 3px 4px;
-    background: rgba(0,0,0,0.1);
-    line-height: 1;
-}
-
-.irs-from, .irs-to, .irs-single {
-    color: #fff;
-    font-size: 13px;
-    text-shadow: none;
-    padding: 3px 4px;
-    background: black;
-    line-height: 1;
-}
-
-.irs-grid {
-    height: 27px;
-}
-.irs-grid-pol {
-    background: #DEDEDE;
-}
-
-.irs-grid-text {
-    bottom: 4px;
-    color: silver;
-    font-size: 11px;
-}
--- a/inst/www/shared/ionrangeslider/css/normalize.css
+++ b/inst/www/shared/ionrangeslider/css/normalize.css
@@ -1,427 +0,0 @@
-/*! normalize.css v3.0.2 | MIT License | git.io/normalize */
-
-/**
- * 1. Set default font family to sans-serif.
- * 2. Prevent iOS text size adjust after orientation change, without disabling
- *    user zoom.
- */
-
-html {
-    font-family: sans-serif; /* 1 */
-    -ms-text-size-adjust: 100%; /* 2 */
-    -webkit-text-size-adjust: 100%; /* 2 */
-}
-
-/**
- * Remove default margin.
- */
-
-body {
-    margin: 0;
-}
-
-/* HTML5 display definitions
-   ========================================================================== */
-
-/**
- * Correct `block` display not defined for any HTML5 element in IE 8/9.
- * Correct `block` display not defined for `details` or `summary` in IE 10/11
- * and Firefox.
- * Correct `block` display not defined for `main` in IE 11.
- */
-
-article,
-aside,
-details,
-figcaption,
-figure,
-footer,
-header,
-hgroup,
-main,
-menu,
-nav,
-section,
-summary {
-    display: block;
-}
-
-/**
- * 1. Correct `inline-block` display not defined in IE 8/9.
- * 2. Normalize vertical alignment of `progress` in Chrome, Firefox, and Opera.
- */
-
-audio,
-canvas,
-progress,
-video {
-    display: inline-block; /* 1 */
-    vertical-align: baseline; /* 2 */
-}
-
-/**
- * Prevent modern browsers from displaying `audio` without controls.
- * Remove excess height in iOS 5 devices.
- */
-
-audio:not([controls]) {
-    display: none;
-    height: 0;
-}
-
-/**
- * Address `[hidden]` styling not present in IE 8/9/10.
- * Hide the `template` element in IE 8/9/11, Safari, and Firefox < 22.
- */
-
-[hidden],
-template {
-    display: none;
-}
-
-/* Links
-   ========================================================================== */
-
-/**
- * Remove the gray background color from active links in IE 10.
- */
-
-a {
-    background-color: transparent;
-}
-
-/**
- * Improve readability when focused and also mouse hovered in all browsers.
- */
-
-a:active,
-a:hover {
-    outline: 0;
-}
-
-/* Text-level semantics
-   ========================================================================== */
-
-/**
- * Address styling not present in IE 8/9/10/11, Safari, and Chrome.
- */
-
-abbr[title] {
-    border-bottom: 1px dotted;
-}
-
-/**
- * Address style set to `bolder` in Firefox 4+, Safari, and Chrome.
- */
-
-b,
-strong {
-    font-weight: bold;
-}
-
-/**
- * Address styling not present in Safari and Chrome.
- */
-
-dfn {
-    font-style: italic;
-}
-
-/**
- * Address variable `h1` font-size and margin within `section` and `article`
- * contexts in Firefox 4+, Safari, and Chrome.
- */
-
-h1 {
-    font-size: 2em;
-    margin: 0.67em 0;
-}
-
-/**
- * Address styling not present in IE 8/9.
- */
-
-mark {
-    background: #ff0;
-    color: #000;
-}
-
-/**
- * Address inconsistent and variable font size in all browsers.
- */
-
-small {
-    font-size: 80%;
-}
-
-/**
- * Prevent `sub` and `sup` affecting `line-height` in all browsers.
- */
-
-sub,
-sup {
-    font-size: 75%;
-    line-height: 0;
-    position: relative;
-    vertical-align: baseline;
-}
-
-sup {
-    top: -0.5em;
-}
-
-sub {
-    bottom: -0.25em;
-}
-
-/* Embedded content
-   ========================================================================== */
-
-/**
- * Remove border when inside `a` element in IE 8/9/10.
- */
-
-img {
-    border: 0;
-}
-
-/**
- * Correct overflow not hidden in IE 9/10/11.
- */
-
-svg:not(:root) {
-    overflow: hidden;
-}
-
-/* Grouping content
-   ========================================================================== */
-
-/**
- * Address margin not present in IE 8/9 and Safari.
- */
-
-figure {
-    margin: 1em 40px;
-}
-
-/**
- * Address differences between Firefox and other browsers.
- */
-
-hr {
-    -moz-box-sizing: content-box;
-    box-sizing: content-box;
-    height: 0;
-}
-
-/**
- * Contain overflow in all browsers.
- */
-
-pre {
-    overflow: auto;
-}
-
-/**
- * Address odd `em`-unit font size rendering in all browsers.
- */
-
-code,
-kbd,
-pre,
-samp {
-    font-family: monospace, monospace;
-    font-size: 1em;
-}
-
-/* Forms
-   ========================================================================== */
-
-/**
- * Known limitation: by default, Chrome and Safari on OS X allow very limited
- * styling of `select`, unless a `border` property is set.
- */
-
-/**
- * 1. Correct color not being inherited.
- *    Known issue: affects color of disabled elements.
- * 2. Correct font properties not being inherited.
- * 3. Address margins set differently in Firefox 4+, Safari, and Chrome.
- */
-
-button,
-input,
-optgroup,
-select,
-textarea {
-    color: inherit; /* 1 */
-    font: inherit; /* 2 */
-    margin: 0; /* 3 */
-}
-
-/**
- * Address `overflow` set to `hidden` in IE 8/9/10/11.
- */
-
-button {
-    overflow: visible;
-}
-
-/**
- * Address inconsistent `text-transform` inheritance for `button` and `select`.
- * All other form control elements do not inherit `text-transform` values.
- * Correct `button` style inheritance in Firefox, IE 8/9/10/11, and Opera.
- * Correct `select` style inheritance in Firefox.
- */
-
-button,
-select {
-    text-transform: none;
-}
-
-/**
- * 1. Avoid the WebKit bug in Android 4.0.* where (2) destroys native `audio`
- *    and `video` controls.
- * 2. Correct inability to style clickable `input` types in iOS.
- * 3. Improve usability and consistency of cursor style between image-type
- *    `input` and others.
- */
-
-button,
-html input[type="button"], /* 1 */
-input[type="reset"],
-input[type="submit"] {
-    -webkit-appearance: button; /* 2 */
-    cursor: pointer; /* 3 */
-}
-
-/**
- * Re-set default cursor for disabled elements.
- */
-
-button[disabled],
-html input[disabled] {
-    cursor: default;
-}
-
-/**
- * Remove inner padding and border in Firefox 4+.
- */
-
-button::-moz-focus-inner,
-input::-moz-focus-inner {
-    border: 0;
-    padding: 0;
-}
-
-/**
- * Address Firefox 4+ setting `line-height` on `input` using `!important` in
- * the UA stylesheet.
- */
-
-input {
-    line-height: normal;
-}
-
-/**
- * It's recommended that you don't attempt to style these elements.
- * Firefox's implementation doesn't respect box-sizing, padding, or width.
- *
- * 1. Address box sizing set to `content-box` in IE 8/9/10.
- * 2. Remove excess padding in IE 8/9/10.
- */
-
-input[type="checkbox"],
-input[type="radio"] {
-    box-sizing: border-box; /* 1 */
-    padding: 0; /* 2 */
-}
-
-/**
- * Fix the cursor style for Chrome's increment/decrement buttons. For certain
- * `font-size` values of the `input`, it causes the cursor style of the
- * decrement button to change from `default` to `text`.
- */
-
-input[type="number"]::-webkit-inner-spin-button,
-input[type="number"]::-webkit-outer-spin-button {
-    height: auto;
-}
-
-/**
- * 1. Address `appearance` set to `searchfield` in Safari and Chrome.
- * 2. Address `box-sizing` set to `border-box` in Safari and Chrome
- *    (include `-moz` to future-proof).
- */
-
-input[type="search"] {
-    -webkit-appearance: textfield; /* 1 */
-    -moz-box-sizing: content-box;
-    -webkit-box-sizing: content-box; /* 2 */
-    box-sizing: content-box;
-}
-
-/**
- * Remove inner padding and search cancel button in Safari and Chrome on OS X.
- * Safari (but not Chrome) clips the cancel button when the search input has
- * padding (and `textfield` appearance).
- */
-
-input[type="search"]::-webkit-search-cancel-button,
-input[type="search"]::-webkit-search-decoration {
-    -webkit-appearance: none;
-}
-
-/**
- * Define consistent border, margin, and padding.
- */
-
-fieldset {
-    border: 1px solid #c0c0c0;
-    margin: 0 2px;
-    padding: 0.35em 0.625em 0.75em;
-}
-
-/**
- * 1. Correct `color` not being inherited in IE 8/9/10/11.
- * 2. Remove padding so people aren't caught out if they zero out fieldsets.
- */
-
-legend {
-    border: 0; /* 1 */
-    padding: 0; /* 2 */
-}
-
-/**
- * Remove default vertical scrollbar in IE 8/9/10/11.
- */
-
-textarea {
-    overflow: auto;
-}
-
-/**
- * Don't inherit the `font-weight` (applied by a rule above).
- * NOTE: the default cannot safely be changed in Chrome and Safari on OS X.
- */
-
-optgroup {
-    font-weight: bold;
-}
-
-/* Tables
-   ========================================================================== */
-
-/**
- * Remove most spacing between table cells.
- */
-
-table {
-    border-collapse: collapse;
-    border-spacing: 0;
-}
-
-td,
-th {
-    padding: 0;
-}
--- a/inst/www/shared/ionrangeslider/img/sprite-skin-flat.png
+++ b/inst/www/shared/ionrangeslider/img/sprite-skin-flat.png
--- a/inst/www/shared/ionrangeslider/img/sprite-skin-modern.png
+++ b/inst/www/shared/ionrangeslider/img/sprite-skin-modern.png
--- a/inst/www/shared/ionrangeslider/img/sprite-skin-nice.png
+++ b/inst/www/shared/ionrangeslider/img/sprite-skin-nice.png
--- a/inst/www/shared/ionrangeslider/img/sprite-skin-simple.png
+++ b/inst/www/shared/ionrangeslider/img/sprite-skin-simple.png
--- a/inst/www/shared/ionrangeslider/js/ion.rangeSlider.js
+++ b/inst/www/shared/ionrangeslider/js/ion.rangeSlider.js
@@ -1,6 +1,6 @@
 // Ion.RangeSlider
-// version 2.2.0 Build: 380
-// © Denis Ineshin, 2017
+// version 2.3.1 Build: 382
+// © Denis Ineshin, 2019
 // https://github.com/IonDen
 //
 // Project page:    http://ionden.com/a/plugins/ion.rangeSlider/en.html
@@ -11,11 +11,11 @@
 // =====================================================================================================================

 ;(function(factory) {
-    if (typeof define === "function" && define.amd) {
+    if ((typeof jQuery === 'undefined' || !jQuery) && typeof define === "function" && define.amd) {
        define(["jquery"], function (jQuery) {
            return factory(jQuery, document, window, navigator);
        });
-    } else if (typeof exports === "object") {
+    } else if ((typeof jQuery === 'undefined' || !jQuery) && typeof exports === "object") {
        factory(require("jquery"), document, window, navigator);
    } else {
        factory(jQuery, document, window, navigator);
@@ -121,23 +121,23 @@

    var base_html =
        '<span class="irs">' +
-        '<span class="irs-line" tabindex="0"><span class="irs-line-left"></span><span class="irs-line-mid"></span><span class="irs-line-right"></span></span>' +
+        '<span class="irs-line" tabindex="0"></span>' +
        '<span class="irs-min">0</span><span class="irs-max">1</span>' +
        '<span class="irs-from">0</span><span class="irs-to">0</span><span class="irs-single">0</span>' +
        '</span>' +
-        '<span class="irs-grid"></span>' +
-        '<span class="irs-bar"></span>';
+        '<span class="irs-grid"></span>';

    var single_html =
-        '<span class="irs-bar-edge"></span>' +
+        '<span class="irs-bar irs-bar--single"></span>' +
        '<span class="irs-shadow shadow-single"></span>' +
-        '<span class="irs-slider single"></span>';
+        '<span class="irs-handle single"><i></i><i></i><i></i></span>';

    var double_html =
+        '<span class="irs-bar"></span>' +
        '<span class="irs-shadow shadow-from"></span>' +
        '<span class="irs-shadow shadow-to"></span>' +
-        '<span class="irs-slider from"></span>' +
-        '<span class="irs-slider to"></span>';
+        '<span class="irs-handle from"><i></i><i></i><i></i></span>' +
+        '<span class="irs-handle to"><i></i><i></i><i></i></span>';

    var disable_html =
        '<span class="irs-disable-mask"></span>';
@@ -156,7 +156,7 @@
     * @constructor
     */
    var IonRangeSlider = function (input, options, plugin_count) {
-        this.VERSION = "2.2.0";
+        this.VERSION = "2.3.1";
        this.input = input;
        this.plugin_count = plugin_count;
        this.current_plugin = 0;
@@ -272,6 +272,7 @@

        // default config
        config = {
+            skin: "flat",
            type: "single",

            min: 10,
@@ -342,6 +343,7 @@

        // config from data-attributes extends js config
        config_from_data = {
+            skin: $inp.data("skin"),
            type: $inp.data("type"),

            min: $inp.data("min"),
@@ -503,7 +505,7 @@
         * Appends slider template to a DOM
         */
        append: function () {
-            var container_html = '<span class="irs js-irs-' + this.plugin_count + ' ' + this.options.extra_classes + '"></span>';
+            var container_html = '<span class="irs irs--' + this.options.skin + ' js-irs-' + this.plugin_count + ' ' + this.options.extra_classes + '"></span>';
            this.$cache.input.before(container_html);
            this.$cache.input.prop("readonly", true);
            this.$cache.cont = this.$cache.input.prev();
@@ -516,12 +518,12 @@
            this.$cache.from = this.$cache.cont.find(".irs-from");
            this.$cache.to = this.$cache.cont.find(".irs-to");
            this.$cache.single = this.$cache.cont.find(".irs-single");
-            this.$cache.bar = this.$cache.cont.find(".irs-bar");
            this.$cache.line = this.$cache.cont.find(".irs-line");
            this.$cache.grid = this.$cache.cont.find(".irs-grid");

            if (this.options.type === "single") {
                this.$cache.cont.append(single_html);
+                this.$cache.bar = this.$cache.cont.find(".irs-bar");
                this.$cache.edge = this.$cache.cont.find(".irs-bar-edge");
                this.$cache.s_single = this.$cache.cont.find(".single");
                this.$cache.from[0].style.visibility = "hidden";
@@ -529,6 +531,7 @@
                this.$cache.shad_single = this.$cache.cont.find(".shadow-single");
            } else {
                this.$cache.cont.append(double_html);
+                this.$cache.bar = this.$cache.cont.find(".irs-bar");
                this.$cache.s_from = this.$cache.cont.find(".from");
                this.$cache.s_to = this.$cache.cont.find(".to");
                this.$cache.shad_from = this.$cache.cont.find(".shadow-from");
@@ -803,7 +806,7 @@
            if ($.contains(this.$cache.cont[0], e.target) || this.dragging) {
                this.callOnFinish();
            }
-            
+
            this.dragging = false;
        },

@@ -1392,6 +1395,9 @@
                this.$cache.bar[0].style.width = this.coords.p_bar_w + "%";

                if (this.options.type === "single") {
+                    this.$cache.bar[0].style.left = 0;
+                    this.$cache.bar[0].style.width = this.coords.p_bar_w + this.coords.p_bar_x + "%";
+
                    this.$cache.s_single[0].style.left = this.coords.p_single_fake + "%";

                    this.$cache.single[0].style.left = this.labels.p_single_left + "%";
@@ -2196,19 +2202,12 @@
            this.calcGridMargin();

            if (o.grid_snap) {
-
-                if (total > 50) {
-                    big_num = 50 / o.step;
-                    big_p = this.toFixed(o.step / 0.5);
-                } else {
-                    big_num = total / o.step;
-                    big_p = this.toFixed(o.step / (total / 100));
-                }
-
-            } else {
-                big_p = this.toFixed(100 / big_num);
+                big_num = total / o.step;
            }

+            if (big_num > 50) big_num = 50;
+            big_p = this.toFixed(100 / big_num);
+
            if (big_num > 4) {
                small_max = 3;
            }
--- a/inst/www/shared/ionrangeslider/js/ion.rangeSlider.min.js
+++ b/inst/www/shared/ionrangeslider/js/ion.rangeSlider.min.js
--- a/inst/www/shared/ionrangeslider/scss/_base.scss
+++ b/inst/www/shared/ionrangeslider/scss/_base.scss
@@ -0,0 +1,145 @@
+@import "_mixins";
+
+.irs {
+    @include pos-r();
+    -webkit-touch-callout: none;
+    @include no-click();
+    font-size: 12px;
+    font-family: Arial, sans-serif;
+
+    &-line {
+        @include pos-r();
+        overflow: hidden;
+        outline: none !important;
+    }
+
+    &-bar {
+        @include pos-a();
+        left: 0;
+        width: 0;
+    }
+
+    &-shadow {
+        position: absolute;
+        display: none;
+        left: 0;
+        width: 0;
+    }
+
+    &-handle {
+        @include pos-a();
+        box-sizing: border-box;
+        cursor: pointer;
+        z-index: 1;
+
+        &.single,
+        &.from,
+        &.to {}
+
+        &.type_last {
+            z-index: 2;
+        }
+    }
+
+    &-min,
+    &-max {
+        @include pos-a();
+        cursor: default;
+    }
+
+    &-min {
+        left: 0;
+    }
+
+    &-max {
+        right: 0;
+    }
+
+    &-from,
+    &-to,
+    &-single {
+        @include pos-a();
+        top: 0;
+        left: 0;
+        cursor: default;
+        white-space: nowrap;
+    }
+
+    &-grid {
+        position: absolute;
+        display: none;
+        bottom: 0;
+        left: 0;
+        width: 100%;
+        height: 20px;
+
+        .irs-with-grid & {
+            display: block;
+        }
+
+        &-pol {
+            position: absolute;
+            top: 0;
+            left: 0;
+            width: 1px;
+            height: 8px;
+            background: #000;
+
+            &.small {
+                height: 4px;
+            }
+        }
+
+        &-text {
+            position: absolute;
+            bottom: 0;
+            left: 0;
+            white-space: nowrap;
+            text-align: center;
+            font-size: 9px;
+            line-height: 9px;
+            padding: 0 3px;
+            color: #000;
+        }
+    }
+
+    &-disable-mask {
+        @include pos-a();
+        top: 0;
+        left: -1%;
+        width: 102%;
+        height: 100%;
+        cursor: default;
+        background: rgba(0,0,0,0.0);
+        z-index: 2;
+
+        .lt-ie9 & {
+            background: #000;
+            filter: alpha(opacity=0);
+            cursor: not-allowed;
+        }
+    }
+
+    &-disabled {
+        opacity: 0.4;
+    }
+
+    &-hidden-input {
+        position: absolute !important;
+        display: block !important;
+        top: 0 !important;
+        left: 0 !important;
+        width: 0 !important;
+        height: 0 !important;
+        font-size: 0 !important;
+        line-height: 0 !important;
+        padding: 0 !important;
+        margin: 0 !important;
+        overflow: hidden;
+        outline: none !important;
+        z-index: -9999 !important;
+        background: none !important;
+        border-style: solid !important;
+        border-color: transparent !important;
+    }
+}
--- a/inst/www/shared/ionrangeslider/scss/_mixins.scss
+++ b/inst/www/shared/ionrangeslider/scss/_mixins.scss
@@ -0,0 +1,17 @@
+@mixin no-click() {
+    -webkit-user-select: none;
+    -khtml-user-select: none;
+    -moz-user-select: none;
+    -ms-user-select: none;
+    user-select: none;
+}
+
+@mixin pos-r() {
+    position: relative;
+    display: block;
+}
+
+@mixin pos-a() {
+    position: absolute;
+    display: block;
+}
--- a/inst/www/shared/ionrangeslider/scss/shiny.scss
+++ b/inst/www/shared/ionrangeslider/scss/shiny.scss
@@ -0,0 +1,182 @@
+/* 'shiny' skin for Ion.RangeSlider, largely based on the 'big' skin, but with smaller dimensions, grayscale grid text, and without gradients
+© RStudio, Inc, 2014
+© Denis Ineshin, 2014  https://github.com/IonDen
+© guybowden, 2014  https://github.com/guybowden
+*/
+
+@import "_base";
+
+////////////////////////////////////////////////////////////////////////////
+// Setup BS4 style color contrasting
+$yiq-contrasted-threshold:  150 !default;
+$yiq-text-dark:             #212529 !default;
+$yiq-text-light:            #fff !default;
+
+@function color-yiq($color, $dark: $yiq-text-dark, $light: $yiq-text-light) {
+  $r: red($color);
+  $g: green($color);
+  $b: blue($color);
+
+  $yiq: (($r * 299) + ($g * 587) + ($b * 114)) / 1000;
+
+  @if ($yiq >= $yiq-contrasted-threshold) {
+    @return $dark;
+  } @else {
+    @return $light;
+  }
+}
+////////////////////////////////////////////////////////////////////////////
+
+// Re-define font-family on .irs to make it configurable
+$font-family: Arial, sans-serif !default;
+.irs {
+  font-family: $font-family;
+}
+
+.irs--shiny {
+  $name: irs !default;
+
+  // Sizing controls
+  $top:           25px !default;
+  $line_height:   8px !default;
+  $handle_width:  22px !default;
+  $handle_height: 22px !default;
+  $custom_radius: 3px !default;
+
+  // "High-level" coloring
+  $bg:     white !default;
+  $fg:     black !default;
+  $accent: #428bca !default;
+
+  // "Low-level" coloring, borders, and fonts
+  $line_bg:            linear-gradient(to bottom, mix($bg, $fg, 87%) -50%, $bg 150%) !default;
+  $line_bg_color:      mix($bg, $fg, 93%) !default;
+  $line_border:        1px solid mix($bg, $fg, 80%) !default;
+
+  $bar_color:          $accent !default;
+
+  $handle_color:       mix($bg, $fg, 87%) !default;
+  $handle_color_hover: $bg !default;
+  $handle_border:      1px solid mix($bg, $fg, 67%) !default;
+  $handle_box_shadow:  1px 1px 3px rgba($bg, 0.3) !default;
+
+  $minmax_text_color:  mix($bg, $fg, 20%) !default;
+  $minmax_bg_color:    rgba($fg, 0.1) !default;
+  $minmax_font_size:   10px !default;
+  $minmax_line_height: 1.333 !default;
+
+  $fromto_bg_color:    $accent !default;
+  $fromto_color:       color-yiq($fromto_bg_color) !default;
+  $fromto_font_size:   11px !default;
+  $fromto_line_height: 1.333 !default;
+
+  $grid_major_color:  $fg !default;
+  $grid_minor_color:  mix($bg, $fg, 60%) !default;
+  $grid_text_color:   mix($bg, $fg, 10%) !default;
+
+
+  height: 40px;
+
+  &.irs-with-grid {
+    height: 60px;
+  }
+
+  .#{$name}-line {
+    top: $top;
+    height: $line_height;
+    background: $line_bg;
+    background-color: $line_bg_color;
+    border: $line_border;
+    border-radius: $line_height;
+  }
+
+  .#{$name}-bar {
+    top: $top;
+    height: $line_height;
+    border-top: 1px solid $bar_color;
+    border-bottom: 1px solid $bar_color;
+    background: $bar_color;
+
+    &--single {
+      border-radius: $line_height 0 0 $line_height;
+    }
+  }
+
+  // sliderInput() doesn't currently support from_min/from_max, so this isn't relevant
+  .#{$name}-shadow {
+    top: 38px;
+    height: 2px;
+    background: rgba($fg, 0.3);
+    border-radius: 5px;
+  }
+  .lt-ie9 .#{$name}-shadow {
+    filter: alpha(opacity=30);
+  }
+
+  // .irs-slider changed to .irs-handle in v2.3.0
+  // https://github.com/IonDen/ion.rangeSlider/commit/c98c10d3d360aa52e997bb8e4fd371c958f78e4b#diff-91cc6fde25fe380ac2a7ac58e1538dceR140
+  .#{$name}-handle {
+    top: 17px;
+    width: $handle_width;
+    height: $handle_height;
+    border: $handle_border;
+    background-color: $handle_color;
+    box-shadow: $handle_box_shadow;
+    border-radius: $handle_width;
+
+    &.state_hover,
+    &:hover {
+      background: $handle_color_hover;
+    }
+  }
+
+  .#{$name}-min,
+  .#{$name}-max {
+    top: 0;
+    padding: 1px 3px;
+    color: $minmax_text_color;
+    text-shadow: none;
+    background-color: $minmax_bg_color;
+    border-radius: $custom_radius;
+    font-size: $minmax_font_size;
+    line-height: $minmax_line_height;
+  }
+
+  .lt-ie9 .#{$name}-min,
+  .lt-ie9 .#{$name}-max {
+    background: mix($bg, $fg, 80%);
+  }
+
+  .#{$name}-from,
+  .#{$name}-to,
+  .#{$name}-single {
+    color: $fromto_color;
+    text-shadow: none;
+    padding: 1px 3px;
+    background-color: $fromto_bg_color;
+    border-radius: $custom_radius;
+    font-size: $fromto_font_size;
+    line-height: $fromto_line_height;
+  }
+
+  .lt-ie9 .#{$name}-from,
+  .lt-ie9 .#{$name}-to,
+  .lt-ie9 .#{$name}-single {
+    background: mix($bg, $fg, 60%);
+  }
+
+  .#{$name}-grid {
+    height: 27px;
+    &-pol {
+      background-color: $grid_major_color;
+    }
+    &-text {
+      bottom: 5px;
+      color: $grid_text_color;
+    }
+    &-pol.small {
+      background-color: $grid_minor_color;
+    }
+  }
+
+}
--- a/inst/www/shared/selectize/accessibility/js/selectize-plugin-a11y.js
+++ b/inst/www/shared/selectize/accessibility/js/selectize-plugin-a11y.js
@@ -0,0 +1,151 @@
+/* global Selectize */
+Selectize.define("selectize-plugin-a11y", function (options) {
+  var self = this;
+  var KEY_RETURN = 13;
+
+  if (typeof self.accessibility === "undefined") {
+    self.accessibility = {};
+  }
+
+  self.accessibility.helpers = {
+    randomId: function (len) {
+      var str = "",
+        strLength = len || 10,
+        base = "abcdefghijklmnopqrstuvwxyz0123456789",
+        baseLength = base.length;
+
+      for (var i = 0; i < strLength; i++) {
+        str += base[Math.floor(baseLength * Math.random())];
+      }
+
+      return str;
+    }
+  };
+
+  self.accessibility.liveRegion = {
+    $region: "",
+    speak: function (msg) {
+      var $container = $("<div></div>");
+      $container.text(msg);
+      this.$region.html($container);
+    },
+    domListener: function () {
+      var observer = new MutationObserver(function (mutations) {
+        mutations.forEach(function (mutation) {
+          var $target = $(mutation.target);
+          if ($target.hasClass("items")) {
+            if ($target.hasClass("dropdown-active")) {
+              // open
+              self.$control_input.attr("aria-expanded", "true");
+              var kids = self.$dropdown_content[0].children;
+              for (i = 0; i < kids.length; i++) {
+                var attrs = kids[i].attributes;
+                if (!attrs.role) {
+                  kids[i].setAttribute("role", "option");
+                }
+                if (!attrs.id) {
+                  kids[i].setAttribute("id", self.accessibility.helpers.randomId());
+                }
+              }
+            } else {
+              // close
+              self.$control_input.attr("aria-expanded", "false");
+              self.$control_input.removeAttr("aria-activedescendant");
+            }
+          } else {
+            // option change
+            if ($target.hasClass("active")) {
+              if (!!$target.attr("data-value")) { // eslint-disable-line no-extra-boolean-cast
+                self.$control_input.attr(
+                  "aria-activedescendant",
+                  $target.attr("id")
+                );
+                self.accessibility.liveRegion.speak($target.text(), 500);
+              }
+            }
+          }
+        });
+      });
+      observer.observe(self.$dropdown[0], {
+        attributes: true,
+        attributeFilter: ["class"],
+        subtree: true,
+        attributeOldValue: true
+      });
+
+      observer.observe(self.$control[0], {
+        attributes: true,
+        attributeFilter: ["class"]
+      });
+
+      observer.observe(self.$control_input[0], {
+        attributes: true,
+        attributeFilter: ["value"]
+      });
+    },
+    setAttributes: function () {
+      this.$region.attr({
+        "aria-live": "assertive",
+        role: "log",
+        "aria-relevant": "additions",
+        "aria-atomic": "true"
+      });
+    },
+    setStyles: function () {
+      this.$region.css({
+        position: "absolute",
+        width: "1px",
+        height: "1px",
+        "margin-top": "-1px",
+        clip: "rect(1px, 1px, 1px, 1px)",
+        overflow: "hidden"
+      });
+    },
+    init: function () {
+      this.$region = $("<div>");
+      this.setAttributes();
+      this.setStyles();
+      $("body").append(this.$region);
+      this.domListener();
+    }
+  };
+
+  this.setup = (function () {
+    var original = self.setup;
+    return function () {
+      original.apply(this, arguments);
+      var inputId = self.accessibility.helpers.randomId(),
+        listboxId = self.accessibility.helpers.randomId();
+
+      self.$control.on("keydown", function (e) {
+        if (e.keyCode === KEY_RETURN) {
+          $(this).click();
+        }
+      });
+
+      self.$control_input.attr({
+        role: "combobox",
+        "aria-expanded": "false",
+        haspopup: "listbox",
+        "aria-owns": listboxId,
+        "aria-label": self.$wrapper
+          .closest("[data-accessibility-selectize-label]")
+          .attr("data-accessibility-selectize-label")
+      });
+
+      self.$dropdown_content.attr({
+        role: "listbox",
+        id: listboxId
+      });
+      self.accessibility.liveRegion.init();
+    };
+  })();
+
+  this.destroy = (function () {
+    var original = self.destroy;
+    return function () {
+      self.accessibility.liveRegion.$region.remove();
+      return original.apply(this, arguments);
+    };
+  })();
+});
--- a/inst/www/shared/selectize/accessibility/js/selectize-plugin-a11y.min.js
+++ b/inst/www/shared/selectize/accessibility/js/selectize-plugin-a11y.min.js
@@ -0,0 +1 @@
+Selectize.define("selectize-plugin-a11y",function(t){var e,a,s=this;void 0===s.accessibility&&(s.accessibility={}),s.accessibility.helpers={randomId:function(t){for(var i="",e=t||10,a="abcdefghijklmnopqrstuvwxyz0123456789",r=a.length,s=0;s<e;s++)i+=a[Math.floor(r*Math.random())];return i}},s.accessibility.liveRegion={$region:"",speak:function(t){var i=$("<div></div>");i.text(t),this.$region.html(i)},domListener:function(){var t=new MutationObserver(function(t){t.forEach(function(t){var e=$(t.target);if(e.hasClass("items"))if(e.hasClass("dropdown-active")){s.$control_input.attr("aria-expanded","true");var a=s.$dropdown_content[0].children;for(i=0;i<a.length;i++){var r=a[i].attributes;r.role||a[i].setAttribute("role","option"),r.id||a[i].setAttribute("id",s.accessibility.helpers.randomId())}}else s.$control_input.attr("aria-expanded","false"),s.$control_input.removeAttr("aria-activedescendant");else e.hasClass("active")&&e.attr("data-value")&&(s.$control_input.attr("aria-activedescendant",e.attr("id")),s.accessibility.liveRegion.speak(e.text(),500))})});t.observe(s.$dropdown[0],{attributes:!0,attributeFilter:["class"],subtree:!0,attributeOldValue:!0}),t.observe(s.$control[0],{attributes:!0,attributeFilter:["class"]}),t.observe(s.$control_input[0],{attributes:!0,attributeFilter:["value"]})},setAttributes:function(){this.$region.attr({"aria-live":"assertive",role:"log","aria-relevant":"additions","aria-atomic":"true"})},setStyles:function(){this.$region.css({position:"absolute",width:"1px",height:"1px","margin-top":"-1px",clip:"rect(1px, 1px, 1px, 1px)",overflow:"hidden"})},init:function(){this.$region=$("<div>"),this.setAttributes(),this.setStyles(),$("body").append(this.$region),this.domListener()}},this.setup=(e=s.setup,function(){e.apply(this,arguments);s.accessibility.helpers.randomId();var t=s.accessibility.helpers.randomId();s.$control.on("keydown",function(t){13===t.keyCode&&$(this).click()}),s.$control_input.attr({role:"combobox","aria-expanded":"false",haspopup:"listbox","aria-owns":t,"aria-label":s.$wrapper.closest("[data-accessibility-selectize-label]").attr("data-accessibility-selectize-label")}),s.$dropdown_content.attr({role:"listbox",id:t}),s.accessibility.liveRegion.init()}),this.destroy=(a=s.destroy,function(){return s.accessibility.liveRegion.$region.remove(),a.apply(this,arguments)})});
--- a/inst/www/shared/selectize/js/es5-shim.min.js
+++ b/inst/www/shared/selectize/js/es5-shim.min.js
@@ -1,17 +0,0 @@
-(function(o){"function"==typeof define?define(o):"function"==typeof YUI?YUI.add("es5",o):o()})(function(){function o(){}function v(a){a=+a;a!==a?a=0:0!==a&&(a!==1/0&&a!==-(1/0))&&(a=(0<a||-1)*Math.floor(Math.abs(a)));return a}function s(a){var b=typeof a;return null===a||"undefined"===b||"boolean"===b||"number"===b||"string"===b}Function.prototype.bind||(Function.prototype.bind=function(a){var b=this;if("function"!=typeof b)throw new TypeError("Function.prototype.bind called on incompatible "+b);
-var d=q.call(arguments,1),c=function(){if(this instanceof c){var e=b.apply(this,d.concat(q.call(arguments)));return Object(e)===e?e:this}return b.apply(a,d.concat(q.call(arguments)))};b.prototype&&(o.prototype=b.prototype,c.prototype=new o,o.prototype=null);return c});var k=Function.prototype.call,p=Object.prototype,q=Array.prototype.slice,h=k.bind(p.toString),t=k.bind(p.hasOwnProperty);t(p,"__defineGetter__")&&(k.bind(p.__defineGetter__),k.bind(p.__defineSetter__),k.bind(p.__lookupGetter__),k.bind(p.__lookupSetter__));
-if(2!=[1,2].splice(0).length){var y=Array.prototype.splice;Array.prototype.splice=function(a,b){return arguments.length?y.apply(this,[a===void 0?0:a,b===void 0?this.length-a:b].concat(q.call(arguments,2))):[]}}if(1!=[].unshift(0)){var z=Array.prototype.unshift;Array.prototype.unshift=function(){z.apply(this,arguments);return this.length}}Array.isArray||(Array.isArray=function(a){return h(a)=="[object Array]"});var k=Object("a"),l="a"!=k[0]||!(0 in k);Array.prototype.forEach||(Array.prototype.forEach=
-function(a,b){var d=n(this),c=l&&h(this)=="[object String]"?this.split(""):d,e=-1,f=c.length>>>0;if(h(a)!="[object Function]")throw new TypeError;for(;++e<f;)e in c&&a.call(b,c[e],e,d)});Array.prototype.map||(Array.prototype.map=function(a,b){var d=n(this),c=l&&h(this)=="[object String]"?this.split(""):d,e=c.length>>>0,f=Array(e);if(h(a)!="[object Function]")throw new TypeError(a+" is not a function");for(var g=0;g<e;g++)g in c&&(f[g]=a.call(b,c[g],g,d));return f});Array.prototype.filter||(Array.prototype.filter=
-function(a,b){var d=n(this),c=l&&h(this)=="[object String]"?this.split(""):d,e=c.length>>>0,f=[],g;if(h(a)!="[object Function]")throw new TypeError(a+" is not a function");for(var i=0;i<e;i++)if(i in c){g=c[i];a.call(b,g,i,d)&&f.push(g)}return f});Array.prototype.every||(Array.prototype.every=function(a,b){var d=n(this),c=l&&h(this)=="[object String]"?this.split(""):d,e=c.length>>>0;if(h(a)!="[object Function]")throw new TypeError(a+" is not a function");for(var f=0;f<e;f++)if(f in c&&!a.call(b,c[f],
-f,d))return false;return true});Array.prototype.some||(Array.prototype.some=function(a,b){var d=n(this),c=l&&h(this)=="[object String]"?this.split(""):d,e=c.length>>>0;if(h(a)!="[object Function]")throw new TypeError(a+" is not a function");for(var f=0;f<e;f++)if(f in c&&a.call(b,c[f],f,d))return true;return false});Array.prototype.reduce||(Array.prototype.reduce=function(a){var b=n(this),d=l&&h(this)=="[object String]"?this.split(""):b,c=d.length>>>0;if(h(a)!="[object Function]")throw new TypeError(a+
-" is not a function");if(!c&&arguments.length==1)throw new TypeError("reduce of empty array with no initial value");var e=0,f;if(arguments.length>=2)f=arguments[1];else{do{if(e in d){f=d[e++];break}if(++e>=c)throw new TypeError("reduce of empty array with no initial value");}while(1)}for(;e<c;e++)e in d&&(f=a.call(void 0,f,d[e],e,b));return f});Array.prototype.reduceRight||(Array.prototype.reduceRight=function(a){var b=n(this),d=l&&h(this)=="[object String]"?this.split(""):b,c=d.length>>>0;if(h(a)!=
-"[object Function]")throw new TypeError(a+" is not a function");if(!c&&arguments.length==1)throw new TypeError("reduceRight of empty array with no initial value");var e,c=c-1;if(arguments.length>=2)e=arguments[1];else{do{if(c in d){e=d[c--];break}if(--c<0)throw new TypeError("reduceRight of empty array with no initial value");}while(1)}do c in this&&(e=a.call(void 0,e,d[c],c,b));while(c--);return e});if(!Array.prototype.indexOf||-1!=[0,1].indexOf(1,2))Array.prototype.indexOf=function(a){var b=l&&
-h(this)=="[object String]"?this.split(""):n(this),d=b.length>>>0;if(!d)return-1;var c=0;arguments.length>1&&(c=v(arguments[1]));for(c=c>=0?c:Math.max(0,d+c);c<d;c++)if(c in b&&b[c]===a)return c;return-1};if(!Array.prototype.lastIndexOf||-1!=[0,1].lastIndexOf(0,-3))Array.prototype.lastIndexOf=function(a){var b=l&&h(this)=="[object String]"?this.split(""):n(this),d=b.length>>>0;if(!d)return-1;var c=d-1;arguments.length>1&&(c=Math.min(c,v(arguments[1])));for(c=c>=0?c:d-Math.abs(c);c>=0;c--)if(c in b&&
-a===b[c])return c;return-1};if(!Object.keys){var w=!0,x="toString toLocaleString valueOf hasOwnProperty isPrototypeOf propertyIsEnumerable constructor".split(" "),A=x.length,r;for(r in{toString:null})w=!1;Object.keys=function(a){if(typeof a!="object"&&typeof a!="function"||a===null)throw new TypeError("Object.keys called on a non-object");var b=[],d;for(d in a)t(a,d)&&b.push(d);if(w)for(d=0;d<A;d++){var c=x[d];t(a,c)&&b.push(c)}return b}}if(!Date.prototype.toISOString||-1===(new Date(-621987552E5)).toISOString().indexOf("-000001"))Date.prototype.toISOString=
-function(){var a,b,d,c;if(!isFinite(this))throw new RangeError("Date.prototype.toISOString called on non-finite value.");c=this.getUTCFullYear();a=this.getUTCMonth();c=c+Math.floor(a/12);a=[(a%12+12)%12+1,this.getUTCDate(),this.getUTCHours(),this.getUTCMinutes(),this.getUTCSeconds()];c=(c<0?"-":c>9999?"+":"")+("00000"+Math.abs(c)).slice(0<=c&&c<=9999?-4:-6);for(b=a.length;b--;){d=a[b];d<10&&(a[b]="0"+d)}return c+"-"+a.slice(0,2).join("-")+"T"+a.slice(2).join(":")+"."+("000"+this.getUTCMilliseconds()).slice(-3)+
-"Z"};r=!1;try{r=Date.prototype.toJSON&&null===(new Date(NaN)).toJSON()&&-1!==(new Date(-621987552E5)).toJSON().indexOf("-000001")&&Date.prototype.toJSON.call({toISOString:function(){return true}})}catch(H){}r||(Date.prototype.toJSON=function(){var a=Object(this),b;a:if(s(a))b=a;else{b=a.valueOf;if(typeof b==="function"){b=b.call(a);if(s(b))break a}b=a.toString;if(typeof b==="function"){b=b.call(a);if(s(b))break a}throw new TypeError;}if(typeof b==="number"&&!isFinite(b))return null;b=a.toISOString;
-if(typeof b!="function")throw new TypeError("toISOString property is not callable");return b.call(a)});var g=Date,m=function(a,b,d,c,e,f,h){var i=arguments.length;if(this instanceof g){i=i==1&&String(a)===a?new g(m.parse(a)):i>=7?new g(a,b,d,c,e,f,h):i>=6?new g(a,b,d,c,e,f):i>=5?new g(a,b,d,c,e):i>=4?new g(a,b,d,c):i>=3?new g(a,b,d):i>=2?new g(a,b):i>=1?new g(a):new g;i.constructor=m;return i}return g.apply(this,arguments)},u=function(a,b){var d=b>1?1:0;return B[b]+Math.floor((a-1969+d)/4)-Math.floor((a-
-1901+d)/100)+Math.floor((a-1601+d)/400)+365*(a-1970)},C=RegExp("^(\\d{4}|[+-]\\d{6})(?:-(\\d{2})(?:-(\\d{2})(?:T(\\d{2}):(\\d{2})(?::(\\d{2})(?:\\.(\\d{3}))?)?(Z|(?:([-+])(\\d{2}):(\\d{2})))?)?)?)?$"),B=[0,31,59,90,120,151,181,212,243,273,304,334,365],j;for(j in g)m[j]=g[j];m.now=g.now;m.UTC=g.UTC;m.prototype=g.prototype;m.prototype.constructor=m;m.parse=function(a){var b=C.exec(a);if(b){var d=Number(b[1]),c=Number(b[2]||1)-1,e=Number(b[3]||1)-1,f=Number(b[4]||0),h=Number(b[5]||0),i=Number(b[6]||
-0),j=Number(b[7]||0),m=!b[4]||b[8]?0:Number(new g(1970,0)),k=b[9]==="-"?1:-1,l=Number(b[10]||0),b=Number(b[11]||0);if(f<(h>0||i>0||j>0?24:25)&&h<60&&i<60&&j<1E3&&c>-1&&c<12&&l<24&&b<60&&e>-1&&e<u(d,c+1)-u(d,c)){d=((u(d,c)+e)*24+f+l*k)*60;d=((d+h+b*k)*60+i)*1E3+j+m;if(-864E13<=d&&d<=864E13)return d}return NaN}return g.parse.apply(this,arguments)};Date=m;Date.now||(Date.now=function(){return(new Date).getTime()});if("0".split(void 0,0).length){var D=String.prototype.split;String.prototype.split=function(a,
-b){return a===void 0&&b===0?[]:D.apply(this,arguments)}}if("".substr&&"b"!=="0b".substr(-1)){var E=String.prototype.substr;String.prototype.substr=function(a,b){return E.call(this,a<0?(a=this.length+a)<0?0:a:a,b)}}j="\t\n\x0B\f\r \u00a0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000\u2028\u2029\ufeff";if(!String.prototype.trim||j.trim()){j="["+j+"]";var F=RegExp("^"+j+j+"*"),G=RegExp(j+j+"*$");String.prototype.trim=function(){if(this===void 0||this===
-null)throw new TypeError("can't convert "+this+" to object");return String(this).replace(F,"").replace(G,"")}}var n=function(a){if(a==null)throw new TypeError("can't convert "+a+" to object");return Object(a)}});
--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
Winston Chang	ee9c004cb0	Re-document	2020-09-24 13:43:30 -05:00
Winston Chang	dfca8d6ac4	Split server-resource-paths.R from server.R	2020-09-24 13:41:43 -05:00
Winston Chang	9611b10628	Split server-resource-paths.R from server.R	2020-09-24 13:40:38 -05:00
Winston Chang	f01ce831fb	Create server-resource-paths.R from server.R	2020-09-24 13:37:37 -05:00
Winston Chang	ae0f5f8531	Re-document	2020-09-24 13:36:24 -05:00
Winston Chang	74a3600704	Split runapp.R from server.R	2020-09-24 13:35:54 -05:00
Winston Chang	1f3bf3164f	Split runapp.R from server.R	2020-09-24 13:34:31 -05:00
Winston Chang	5db5713ac2	Create runapp.R from server.R	2020-09-24 13:33:35 -05:00
Winston Chang	e1e99bb21a	Re-document	2020-09-24 13:31:51 -05:00
Winston Chang	d21598cc79	Split viewer.R from server.R	2020-09-24 13:31:06 -05:00
Winston Chang	98cc3c66e1	Split viewer.R from server.R	2020-09-24 13:19:07 -05:00
Winston Chang	2287086eaa	Create viewer.R from server.R	2020-09-24 13:18:01 -05:00
Winston Chang	44e083e0a9	Re-document	2020-09-24 12:58:06 -05:00
Winston Chang	a5418cf6ee	Rename app.R to shinyapp.R	2020-09-24 12:57:27 -05:00
Winston Chang	c74630d6eb	Split knitr.R from app.R	2020-09-24 12:55:53 -05:00
Winston Chang	157d4ac9a9	Split knitr.R from app.R	2020-09-24 12:48:32 -05:00
Winston Chang	8228613c01	Create knitr.R from app.R	2020-09-24 12:47:21 -05:00
Winston Chang	6b32611356	Rebuild shiny.js	2020-09-24 10:41:01 -05:00
colin	770ebc394f	updateRadioButton with character(0) (#3043 ) Squashed commit of the following: commit a095d75b67a0bad439e8d6c495ef81af25c0b1a9 Author: Winston Chang <winston@stdout.org> Date: Thu Sep 24 10:30:47 2020 -0500 Update NEWS commit 715a10ebd63c34eb2f464a7388e0b89b994bee0f Author: Winston Chang <winston@stdout.org> Date: Thu Sep 24 10:24:24 2020 -0500 Update docs for radioButtons about having none selected commit eff9036884693002a84f84df16cf699be2358c1c Author: Winston Chang <winston@stdout.org> Date: Thu Sep 24 10:15:59 2020 -0500 Cleaner check for no selected radioButtons commit 1666baa746f4dea986be4929720de2a5653acbb6 Merge: `c0d35e84` `b04ba393` Author: Winston Chang <winston@stdout.org> Date: Thu Sep 24 10:02:16 2020 -0500 Merge branch '2688' of https://github.com/ColinFay/shiny into ColinFay-2688 commit `b04ba393b8` Author: colin <colin@thinkr.fr> Date: Thu Sep 24 08:37:58 2020 +0200 changed the test structure commit `866a86946a` Author: colin <colin@thinkr.fr> Date: Sun Sep 13 20:50:44 2020 +0200 restore old `$escape` behavior commit `d45af353fd` Author: colin <colin@thinkr.fr> Date: Fri Sep 11 08:54:25 2020 +0200 added trailing ; and space before { commit `5e95ee03a1` Author: colin <colin@thinkr.fr> Date: Thu Sep 10 21:55:02 2020 +0200 return early if the value is undefined in setValue of radio commit `24ac6ec624` Author: colin <colin@thinkr.fr> Date: Thu Sep 10 21:53:41 2020 +0200 Testing that the type of val is a string, instead of relying on the length commit `18ec3b8540` Author: colin <colin@thinkr.fr> Date: Wed Sep 9 22:08:45 2020 +0200 Radio buttons can now be reset with character(0), and their value is set to NULL Close #2688 and close #2266 commit `d7f66165d0` Author: colin <colin@thinkr.fr> Date: Wed Sep 9 22:08:06 2020 +0200 Correct bug when $escape received an empty value	2020-09-24 10:38:12 -05:00
Joe Cheng	c0d35e84b1	Allow setting the state of RestoreContext (#3053 ) * Allow setting the state of RestoreContext This setter only sets public fields, but it's still necessary because the RestoreInputSet R6 class is not exported. (I needed this functionality for shinytableau config dialogs to do a bookmark-like restore, but not at all based on querystring) * Use list instead of values to prevent accidental mutation See discussion here: https://github.com/rstudio/shiny/pull/3053#discussion_r488948453 * Rebuild JS for new version number	2020-09-21 13:27:59 -07:00
Andrew Baxter	5e74478864	Remove test for date object length>1 (Closes #2936 ) (#3061 ) Co-authored-by: Winston Chang <winston@stdout.org>	2020-09-16 17:11:06 -05:00
Winston Chang	46852e2051	Include sources in source maps Uglify changed the option to include sources; this fix reinstates them.	2020-09-15 15:48:55 -05:00
Winston Chang	b9dded0bef	Rebuild JS assets	2020-09-15 15:37:03 -05:00
Winston Chang	6d05f403a5	yarn upgrade	2020-09-15 15:34:47 -05:00
Winston Chang	8368634f85	Merge pull request #2959 from rstudio/joe/feature/select-choices-warning	2020-09-15 15:21:58 -05:00
Winston Chang	8d57d909b4	Merge branch 'master' into joe/feature/select-choices-warning	2020-09-15 15:21:45 -05:00
Winston Chang	9b7855d597	Add more authors	2020-09-15 15:13:42 -05:00
Winston Chang	6a5e1b9998	Add Barret to Authors	2020-09-15 13:15:04 -05:00
Carson Sievert	af6e558699	Make sure we only include one version of Bootstrap (#3048 ) * Make sure we only include one version of Bootstrap and throw a warning if both bootstraplib and theme file is provided * code review	2020-09-11 17:52:08 -05:00
Carson Sievert	26d4dddffd	Remove modalButton() from pkgdown reference (it's not included on modalDialog()) (#3046 )	2020-09-11 15:04:53 -05:00
Hadley Wickham	e2765b4881	Document modalButton with modalDialog (#2907 )	2020-09-11 08:49:21 -05:00
Hadley Wickham	9796b25f33	Combine point events into one doc file (#2906 )	2020-09-10 17:47:45 -05:00
Carson Sievert	01b8d3a314	More themable dateInput()/dateRangeInput() (#2964 ) * upgrade bootstrap-datepicker from 1.6.4 to 1.9.0; setup infrastructure for bootstraplib theming Note also that the 000 patch is no longer relevant as 1.9.0 includes the same fix https://github.com/uxsolutions/bootstrap-datepicker/pull/2009 * Patch sass code for BS4 support and more general color contrasting * Wrap sass compilation into reusable function * remove check warning * Have bootstrapPage() use bootstraplib * yarn build * Use new output_template() * Deprecate bootstrapLib() in favor of bootstraplib::bootstrap() * Require bootstraplib 0.1.0.9001 * Sync up DESCRIPTION * document * rollback changes to pkgdown	2020-09-09 15:20:59 -05:00
Carson Sievert	50c48de0de	More themable selectInput() (#2950 ) * Add option to use bootstraplib and have selectInput() theming variables * Use getShinyOption() * Have useBsTheme() error out with informative messages if a theme isn't active * Better Sass variables defaults that account for both bootswatch themes and bs_theme_base_colors() * Add Carson as an author * Provide better BS3/BS4 selectize sass variable defaults as a patch to the source files * tidy up tools script * add sass to suggests * yarn install && yarn build * Wrap sass compilation into reusable function * Bring -color-item closer to -color-input * Leverage the new sass::output_file() * naming change * Sync up with other PRs * Sync up DESCRIPTION * Forgot to update CSS output file logic * document	2020-09-09 15:02:05 -05:00
Carson Sievert	bfc90da054	More themable sliderInput() (#2958 ) * More themable sliderInput() * Slider's accent color default should derive from primary theme color * Remove custom theming args (skin, accentColor, sassVars) but still support theming via bootstraplib * Wrap sass compilation into reusable function * remove check warning * Make font-family configurable; auto-contrast fromto handle text color; increase color contrasting (for accessbility) * Sync up with other PRs * Sync up DESCRIPTION * Forgot to update CSS output file logic * document * code review	2020-09-09 14:38:10 -05:00
Winston Chang	43344d9a78	Merge pull request #3009 from jooyoungseo/landmark-a11y Added a11y semantic landmarks for main and sidebar panels	2020-09-09 13:33:04 -05:00
Winston Chang	01a593c857	Rebuild docs	2020-09-09 13:14:39 -05:00
Winston Chang	1b2dd11a4c	Merge pull request #2944 from daattali/patch-2	2020-09-09 13:12:36 -05:00
Winston Chang	d90a2c4801	Add links to functions Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-09-09 13:12:04 -05:00
Winston Chang	f065c21ee6	Merge pull request #2945 from daattali/patch-3 Documentation: say that withProgress returns the value of its express…	2020-09-09 13:11:20 -05:00
Winston Chang	d0324bd497	Merge pull request #3027 from ColinFay/issue-3024	2020-09-09 13:10:31 -05:00
Hadley Wickham	e57fba07db	Allow passing server function directory to testServer() (#2965 )	2020-09-03 17:01:02 -05:00
Winston Chang	5cb279cf4e	Merge pull request #3035 from rstudio/wch-cache-log Make sure cache logging appends to file	2020-09-02 10:46:45 -05:00
Winston Chang	4f728b0387	Merge pull request #3034 from rstudio/wch-disk-cache-logic	2020-09-02 10:46:33 -05:00
Winston Chang	927ae08a47	Remove unneeded paste0	2020-09-02 10:42:57 -05:00
JooYoung Seo	a28dc47e30	Added es5-shim removal in NEWS.md (#3032 )	2020-09-01 21:01:41 -04:00
Winston Chang	b43ee13dd8	Make sure cache logging appends to file	2020-09-01 19:30:42 -05:00
Winston Chang	ad5ad5a675	Update NEWS	2020-09-01 19:20:47 -05:00
Winston Chang	198f7d171e	Fix DiskCache pruning logic when max_n and max_size are used. Closes #3033	2020-09-01 19:19:55 -05:00
JooYoung Seo	549425cb81	Merge master branch	2020-08-31 19:12:26 -04:00
Carson Sievert	2a7273c254	Merge pull request #3030 from rstudio/plot-arg-order Move `alt` parameter after `...`	2020-08-31 17:23:04 -05:00
Winston Chang	8640934410	Move alt parameter after ...	2020-08-31 16:28:43 -05:00
Winston Chang	20bc4e7caa	Merge pull request #3006 from jooyoungseo/alttext	2020-08-31 15:49:24 -05:00
Barret Schloerke	9f83058b78	Do not record the reactlog when enabling shinytest (#3025 )	2020-08-31 10:39:14 -04:00
colin	ffedf29db4	Other Rds generated by running devtools::document() on the package	2020-08-29 22:27:49 +02:00
colin	00219d342a	All update*Input docs now inheritsParams from their standard counterpart Will close #3024	2020-08-29 22:26:10 +02:00
Winston Chang	753400144d	Update diskCache docs and rebuild	2020-08-28 08:58:30 -05:00
Winston Chang	854a732f47	Update NEWS	2020-08-28 08:57:38 -05:00
Winston Chang	03eaf07526	Merge pull request #3016 from aalucaci/issue-2984 Issue 2984	2020-08-28 08:56:16 -05:00
Carson Sievert	d04c12d8cb	Merge pull request #3023 from rstudio/carson/bugfix/downloadButton Change the evaluation rules for the icon promise in downloadButton()	2020-08-27 13:36:44 -05:00
Carson Sievert	afddd3543e	Apply suggestions from code review Co-authored-by: Barret Schloerke <barret@rstudio.com>	2020-08-27 13:35:06 -05:00
Carson	d9459a855d	Allow icon arg to reference other downloadButton args	2020-08-27 11:12:09 -05:00
Carson	efbcfca126	Change the evaluation rules for the icon promise in downloadButton(), fixes #3022	2020-08-27 11:07:09 -05:00
Angela Lucaci-Timoce	916675a9bd	renderCachedPlot: improved documentation	2020-08-26 21:03:00 +02:00
Colin Fay	7b43617954	`downloadButton()` icon can now be changed via the `icon` parameter (#3010 )	2020-08-25 15:17:49 -05:00
Winston Chang	09b89bccfd	Fix NEWS entry	2020-08-25 13:14:58 -05:00
Winston Chang	1190ee07a9	Remove unused cacheContext class	2020-08-25 13:12:01 -05:00
Barret Schloerke	c4dcf405bb	Fix reactiveValuesToList reactlog label (#3017 ) Co-authored-by: Barret Schloerke <schloerke@gmail.com> Co-authored-by: Winston Chang <winston@stdout.org>	2020-08-25 11:49:22 -04:00
JooYoung Seo	c844ea6f07	Added missing alt arg	2020-08-20 10:51:32 -04:00
JooYoung Seo	19704c151a	White space formatting to match the lines together Co-authored-by: Barret Schloerke <barret@rstudio.com>	2020-08-20 10:00:43 -04:00
Winston Chang	d6a4bc87e8	Fix whitespace	2020-08-19 11:48:35 -05:00
JooYoung Seo	e49f4696e6	Updated NEWS.md	2020-08-19 10:50:23 -04:00
JooYoung Seo	4219f50141	Added a11y semantic landmarks for main and sidebar panels	2020-08-19 10:43:55 -04:00
JooYoung Seo	19da003291	Redocumented for alt param	2020-08-18 17:19:45 -04:00
JooYoung Seo	f0765e3d6a	Updated alt param description	2020-08-18 17:05:47 -04:00
JooYoung Seo	8dac345512	Updated NEWS.md	2020-08-18 16:44:43 -04:00
JooYoung Seo	ce101843f0	Made alt param reactive	2020-08-18 15:43:04 -04:00
JooYoung Seo	d56dc3a237	Update R/render-cached-plot.R Co-authored-by: Barret Schloerke <barret@rstudio.com>	2020-08-18 14:25:16 -04:00
JooYoung Seo	28cffb2e25	Update R/render-plot.R Co-authored-by: Barret Schloerke <barret@rstudio.com>	2020-08-18 14:24:08 -04:00
JooYoung Seo	d2d169fea3	Update R/render-plot.R Co-authored-by: Barret Schloerke <barret@rstudio.com>	2020-08-18 14:23:17 -04:00
JooYoung Seo	a5eb1b15d2	Added alt param	2020-08-16 16:11:18 -04:00
JooYoung Seo	23dbb0b41c	Unified eol in Gruntfile.js for all the platforms (#3001 ) * Unified eol char for all the platforms * Reran yarn build after merging master	2020-08-13 16:54:44 -04:00
Winston Chang	c72ae68de5	Merge pull request #2993 from jooyoungseo/selectize-a11y	2020-08-13 13:56:39 -05:00
JooYoung Seo	7c1f87aed3	Rebuilt via WSL	2020-08-12 19:20:42 -04:00
JooYoung Seo	6ec0ac1651	Reran yarn after updating grunt	2020-08-12 16:34:08 -04:00
JooYoung Seo	9dc84e5c2b	Merge branch 'master' into selectize-a11y	2020-08-12 15:24:29 -04:00
JooYoung Seo	1e17b55f49	Got rid of es5 info and corrected selectize version	2020-08-12 15:24:18 -04:00
JooYoung Seo	e2537d8e93	Used withr for applying datepicker patches	2020-08-12 12:56:13 -04:00
JooYoung Seo	6d35cb6c77	yarn grunt instead of yarn build	2020-08-07 11:20:27 -04:00
Carson Sievert	8ce7f64679	Merge pull request #2995 from jooyoungseo/IonRangeSlider-updateScript Tweaked updateIonRangeSlider.R	2020-08-07 09:40:42 -05:00
JooYoung Seo	5cd6250f05	Updated NEWS.md	2020-08-06 17:17:08 -04:00
JooYoung Seo	4872cd91a5	Reran yarn build	2020-08-06 17:00:54 -04:00
JooYoung Seo	08e84e2ca0	Tweaked updateSelectize.R	2020-08-06 16:22:47 -04:00
JooYoung Seo	40889c9637	Used withr when applying patches and doing yarn build	2020-08-06 16:12:11 -04:00
JooYoung Seo	010ba6f214	Update tools/updateIonRangeSlider.R Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-08-06 15:12:26 -04:00
JooYoung Seo	2f8dc860ff	Update tools/updateIonRangeSlider.R Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-08-06 15:11:55 -04:00
JooYoung Seo	88f61f0d45	Update tools/updateIonRangeSlider.R Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-08-06 15:11:37 -04:00
JooYoung Seo	16a5aa7489	Update tools/updateIonRangeSlider.R Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-08-06 15:11:19 -04:00
JooYoung Seo	89fd2b2ed3	Tweaked updateIonRangeSlider.R	2020-08-06 13:14:11 -04:00
JooYoung Seo	a16769061e	Removed es5 shim	2020-08-05 20:31:33 -04:00
JooYoung Seo	3be76145b7	Updated grunt file to minify selectize-plugin-a11y	2020-08-05 20:23:23 -04:00
JooYoung Seo	e9d27fa632	Update tools/updateSelectize.R Co-authored-by: Carson Sievert <cpsievert1@gmail.com>	2020-08-05 17:36:16 -04:00
JooYoung Seo	be706e4bb7	Added updating scripts and LICENSE info	2020-08-05 17:15:02 -04:00
JooYoung Seo	b87c4d5623	Appended a11y plugin to options	2020-08-05 11:33:58 -04:00
JooYoung Seo	03a260f26a	Defaulting a11y plugins	2020-08-04 22:32:11 -04:00
JooYoung Seo	ae3e007a5f	Updated selectize-plugin-a11y	2020-08-04 16:58:23 -04:00
JooYoung Seo	cfbf76d898	Added selectize-plugin-a11y	2020-08-04 14:45:34 -04:00
Carson Sievert	0b82b121cb	Merge pull request #2978 from jooyoungseo/dateInput-a11y * Fixed #2951: Added labels and title for dateInput and dateRangeInput	2020-08-03 09:48:46 -05:00
JooYoung Seo	643ebb4946	Merge branch 'master' of https://github.com/rstudio/shiny into dateInput-a11y	2020-07-31 17:12:40 -04:00
Carson	8693eed3ec	use expect_equal() instead of grepl() in expectation	2020-07-31 15:05:05 -05:00
Winston Chang	766b910150	Add info about calling registerInputHandler from .onLoad	2020-07-28 13:58:36 -05:00
Winston Chang	545843ffe6	Fix pkgdown.yml	2020-07-28 12:59:39 -05:00
Winston Chang	39e7b23d5b	Merge pull request #2934 from hadley/render-text-print	2020-07-28 11:15:15 -05:00
Hadley Wickham	9d0db6f74c	Remove renderPrint from pkgdown index	2020-07-27 15:37:39 -05:00
Winston Chang	78fb25329c	NEWS edits	2020-07-27 14:39:37 -05:00
Winston Chang	7db6a7b57a	Update NEWS	2020-07-27 14:38:00 -05:00
Winston Chang	76f70179c0	Merge pull request #2982 from ColinFay/patch-2	2020-07-27 14:36:50 -05:00
Winston Chang	d6aecfe9ae	Update NEWS	2020-07-27 14:28:13 -05:00
Winston Chang	1354d3dec1	Merge pull request #2981 from ColinFay/patch-1	2020-07-27 14:26:36 -05:00
colin	955ae817d8	switched from * to + in the regex that checks resource path	2020-07-27 21:20:03 +02:00
colin	aee9589c1a	Simple regex in addResourcePath	2020-07-25 22:42:09 +02:00
colin	48ac0f55c3	check that the prefix is not only made of dots	2020-07-25 22:38:41 +02:00
colin	831c0a340c	redoc the runExample()	2020-07-24 11:46:54 +02:00
Colin Fay	210d297d18	Update server.R	2020-07-24 11:08:28 +02:00
Colin Fay	afbcf9039e	Allow to pass resource path that starts with `.` This will close #2980	2020-07-24 09:33:52 +02:00
JooYoung Seo	e8eadc1a09	Updated test	2020-07-23 11:11:02 -04:00
JooYoung Seo	f234b7015c	Date format instead of format	2020-07-22 16:49:22 -04:00
JooYoung Seo	8de38b3415	Updated NEWS.md	2020-07-22 13:22:45 -04:00
JooYoung Seo	0f132fc180	* Fixed #2951 : Added labels and title for dateInput and dateRangeInput	2020-07-22 13:10:45 -04:00
Hadley Wickham	e597c24f35	Merged upstream/master into hadley-render-text-print	2020-07-19 12:59:01 -05:00
Joe Cheng	1d7a913d29	Add tests	2020-07-17 09:56:33 -07:00
Joe Cheng	f89131205d	Warn on 1000+ choices for selectInput/selectizeInput	2020-07-17 09:56:05 -07:00
Dean Attali	9f55cd46d8	Documentation: say that withProgress returns the value of its expression. I didn't know if it does or doesn't and had to test it out, it should be explicit	2020-06-27 13:24:37 -04:00
Dean Attali	5956f6b123	Small documentation addition in withProgress (I did not re-compile roxygen)	2020-06-27 13:18:43 -04:00
Hadley Wickham	c7618e3991	Combine documentation of renderPrint() and renderText() Since they're so closely related, and it makes it easier to see how they differ.	2020-06-23 08:13:55 -05:00
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates["en-CA"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:0,format:"yyyy-mm-dd"},a.fn.datepicker.deprecated("This filename doesn't follow the convention, use bootstrap-datepicker.en-CA.js instead.")}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates["ar-tn"]={days:["الأحد","الاثنين","الثلاثاء","الأربعاء","الخميس","الجمعة","السبت","الأحد"],daysShort:["أحد","اثنين","ثلاثاء","أربعاء","خميس","جمعة","سبت","أحد"],daysMin:["ح","ن","ث","ع","خ","ج","س","ح"],months:["جانفي","فيفري","مارس","أفريل","ماي","جوان","جويليه","أوت","سبتمبر","أكتوبر","نوفمبر","ديسمبر"],monthsShort:["جانفي","فيفري","مارس","أفريل","ماي","جوان","جويليه","أوت","سبتمبر","أكتوبر","نوفمبر","ديسمبر"],today:"هذا اليوم",rtl:!0}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates.bm={days:["Kari","Ntɛnɛn","Tarata","Araba","Alamisa","Juma","Sibiri"],daysShort:["Kar","Ntɛ","Tar","Ara","Ala","Jum","Sib"],daysMin:["Ka","Nt","Ta","Ar","Al","Ju","Si"],months:["Zanwuyekalo","Fewuruyekalo","Marisikalo","Awirilikalo","Mɛkalo","Zuwɛnkalo","Zuluyekalo","Utikalo","Sɛtanburukalo","ɔkutɔburukalo","Nowanburukalo","Desanburukalo"],monthsShort:["Zan","Few","Mar","Awi","Mɛ","Zuw","Zul","Uti","Sɛt","ɔku","Now","Des"],today:"Bi",monthsTitle:"Kalo",clear:"Ka jɔsi",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates.bn={days:["রবিবার","সোমবার","মঙ্গলবার","বুধবার","বৃহস্পতিবার","শুক্রবার","শনিবার"],daysShort:["রবিবার","সোমবার","মঙ্গলবার","বুধবার","বৃহস্পতিবার","শুক্রবার","শনিবার"],daysMin:["রবি","সোম","মঙ্গল","বুধ","বৃহস্পতি","শুক্র","শনি"],months:["জানুয়ারী","ফেব্রুয়ারি","মার্চ","এপ্রিল","মে","জুন","জুলাই","অগাস্ট","সেপ্টেম্বর","অক্টোবর","নভেম্বর","ডিসেম্বর"],monthsShort:["জানুয়ারী","ফেব্রুয়ারি","মার্চ","এপ্রিল","মে","জুন","জুলাই","অগাস্ট","সেপ্টেম্বর","অক্টোবর","নভেম্বর","ডিসেম্বর"],today:"আজ",monthsTitle:"মাস",clear:"পরিষ্কার",weekStart:0,format:"mm/dd/yyyy"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates.br={days:["Sul","Lun","Meurzh","Merc'her","Yaou","Gwener","Sadorn"],daysShort:["Sul","Lun","Meu.","Mer.","Yao.","Gwe.","Sad."],daysMin:["Su","L","Meu","Mer","Y","G","Sa"],months:["Genver","C'hwevrer","Meurzh","Ebrel","Mae","Mezheven","Gouere","Eost","Gwengolo","Here","Du","Kerzu"],monthsShort:["Genv.","C'hw.","Meur.","Ebre.","Mae","Mezh.","Goue.","Eost","Gwen.","Here","Du","Kerz."],today:"Hiziv",monthsTitle:"Miz",clear:"Dilemel",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates["en-IE"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"dd/mm/yyyy"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates["en-NZ"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"d/mm/yyyy"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates["en-ZA"]={days:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],daysShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],daysMin:["Su","Mo","Tu","We","Th","Fr","Sa"],months:["January","February","March","April","May","June","July","August","September","October","November","December"],monthsShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],today:"Today",monthsTitle:"Months",clear:"Clear",weekStart:1,format:"yyyy/mm/d"}}(jQuery);
				`@@ -0,0 +1 @@`
				!function(a){a.fn.datepicker.dates.hi={days:["रविवार","सोमवार","मंगलवार","बुधवार","गुरुवार","शुक्रवार","शनिवार"],daysShort:["सूर्य","सोम","मंगल","बुध","गुरु","शुक्र","शनि"],daysMin:["र","सो","मं","बु","गु","शु","श"],months:["जनवरी","फ़रवरी","मार्च","अप्रैल","मई","जून","जुलाई","अगस्त","सितम्बर","अक्टूबर","नवंबर","दिसम्बर"],monthsShort:["जन","फ़रवरी","मार्च","अप्रैल","मई","जून","जुलाई","अगस्त","सितं","अक्टूबर","नवं","दिसम्बर"],today:"आज",monthsTitle:"महीने",clear:"साफ",weekStart:1,format:"dd / mm / yyyy"}}(jQuery);