Add missing 'quantreg' to Suggests (#43)

lionel- · Mar 14, 2023 · 7e303d7 · 7e303d7
1 parent 8fa6572
commit 7e303d7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -23,6 +23,7 @@ Imports:
 Suggests:
     covr,
     Hmisc,
+    quantreg,
     testthat,
     vdiffr (>= 1.0.4)
 URL: https://github.com/lionel-/ggstance

diff --git a/R/stat-boxploth.R b/R/stat-boxploth.R
@@ -51,6 +51,9 @@ StatBoxploth <- ggproto("StatBoxploth", Stat,
     qs <- c(0, 0.25, 0.5, 0.75, 1)
 
     if (!is.null(data$weight)) {
+      if (!requireNamespace("quantreg", quietly = TRUE)) {
+        stop("'quantreg' is required for compute_group() with weights")
+      }
       mod <- quantreg::rq(x ~ 1, weights = weight, data = data, tau = qs)
       stats <- as.numeric(stats::coef(mod))
     } else {