Directly use quantiles from dist_percentile() if available

mitchelloharawild · Sep 8, 2023 · 46a6622 · 46a6622
1 parent c79f206
commit 46a6622
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/dist_percentile.R b/R/dist_percentile.R
@@ -34,7 +34,9 @@ format.dist_percentile <- function(x, ...){
 
 #' @export
 quantile.dist_percentile <- function(x, p, ...){
-  stats::approx(x = x[["percentile"]]/100, y = x[["x"]], xout = p)$y
+  out <- x[["x"]][match(p, x[["percentile"]])]
+  out[is.na(out)] <- stats::approx(x = x[["percentile"]]/100, y = x[["x"]], xout = p[is.na(out)])$y
+  out
 }
 
 #' @export