filter_slider(min = NA) now gives a single handled slider

DESCRIPTION

@@ -47,5 +47,5 @@ Suggests:
     bslib
 URL: https://rstudio.github.io/crosstalk/, https://github.com/rstudio/crosstalk
 BugReports: https://github.com/rstudio/crosstalk/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Encoding: UTF-8

R/controls.R

@@ -286,7 +286,8 @@ inlineCheckbox <- function(id, value, label) {
 #'   words, the min and max can be dragged together. If \code{FALSE}, the range
 #'   cannot be dragged.
 #' @param min The leftmost value of the slider. By default, set to the minimal
-#'   number in input data.
+#'   number in input data. If set to \code{NA}, the slider will have only one
+#'   handle for updating the \code{max}.
 #' @param max The rightmost value of the slider. By default, set to the maximal
 #'   number in input data.
 #' @examples
@@ -319,6 +320,11 @@ filter_slider <- function(id, label, sharedData, column, step = NULL,
     max <- max(values)
   value <- range(values)
 
+  if (isTRUE(is.na(min))) {
+    min <- min(values)
+    value <- max
+  }
+
   ord <- order(col)
   options <- list(
     values = col[ord],

javascript/src/input_slider.js

@@ -70,7 +70,7 @@ input.register({
       if ($el.data("ionRangeSlider").options.type === "double") {
         return [convert(result.from), convert(result.to)];
       } else {
-        return convert(result.from);
+        return [-Infinity, convert(result.from)];
       }
     }