restore previous error

Author: teunbrand

R/stat-qq-line.R

@@ -71,7 +71,9 @@ StatQqLine <- ggproto("StatQqLine", Stat,
 
     theoretical <- inject(distribution(p = quantiles, !!!dparams))
 
-    check_length(line.p, 2L)
+    if (length(line.p) != 2) {
+      cli::cli_abort("Cannot fit line quantiles {line.p}. {.arg line.p} must have length 2.")
+    }
 
     x_coords <- inject(distribution(p = line.p, !!!dparams))
     y_coords <- stats::quantile(sample, line.p)

tests/testthat/_snaps/stat-qq.md

@@ -14,5 +14,5 @@
 
     Computation failed in `stat_qq_line()`.
     Caused by error in `compute_group()`:
-    ! `line.p` must be a vector of length 2, not length 1.
+    ! Cannot fit line quantiles 0.15. `line.p` must have length 2.