closes #434

Author: dajmcdon

NEWS.md

@@ -32,6 +32,7 @@ Pre-1.0.0 numbering scheme: 0.x will indicate releases, while 0.0.x will indicat
 - Add `step_climate()` to create "climate" predictor in forecast workflows
 - Add `climatological_forecaster()` to automatically create climate baselines
 - Replace `dist_quantiles()` with `hardhat::quantile_pred()`
+- Allow `quantile()` to threshold to an interval if desired (#434)
 
 ## Bug fixes
 

R/quantile_pred-methods.R

@@ -136,7 +136,7 @@ vec_proxy_equal.quantile_pred <- function(x, ...) {
 #'   "cubic" should fail for some reason.
 #'
 #' @returns a matrix with one row for each entry in `x` and one column for each
-#'   value in `probs`. If either has length 1, a vector.
+#'   value in `probs`
 #' @seealso [extrapolate_quantiles()]
 #' @export
 #' @importFrom stats quantile
@@ -166,7 +166,7 @@ quantile.quantile_pred <- function(x,
 
   if (is.unsorted(probs)) probs <- sort(probs)
   middle <- rlang::arg_match(middle)
-  drop(snap(quantile_internal(x, probs, middle), lower, upper))
+  snap(quantile_internal(x, probs, middle), lower, upper)
 }