moved {voi} into Suggests and added requireNamespace checks to instal…

…l it if needed

DESCRIPTION

@@ -34,7 +34,6 @@ Imports:
     rlang,
     rstan,
     scales,
-    voi (>= 1.0.1)
 Depends:
     R (>= 3.5.0)
 Suggests:
@@ -51,6 +50,7 @@ Suggests:
     splancs,
     testthat (>= 2.1.0),
     vdiffr,
+    voi (>= 1.0.1),
     withr
 RdMacros: Rdpack
 VignetteBuilder: knitr

NAMESPACE

@@ -157,4 +157,3 @@ importFrom(utils,methods)
 importFrom(utils,modifyList)
 importFrom(utils,str)
 importFrom(utils,tail)
-importFrom(voi,evppi)

R/evppi.default.R

@@ -9,7 +9,6 @@ evppi.default <- function(he, ...) {
 
 #' @rdname evppi
 #'
-#' @importFrom voi evppi
 #' @examples
 #' data(Vaccine, package = "BCEA")
 #' treats <- c("Status quo", "Vaccination")
@@ -26,6 +25,13 @@ evppi.bcea <- function(he,
                        residuals = TRUE,
                        method = NULL, ...) {
 
+  if (!requireNamespace("voi", quietly = TRUE)) {
+    stop(
+      "Package \"voi (>= 1.0.1)\" must be installed to use this function.",
+      call. = FALSE
+    )
+  }
+
   comp_ids <- c(he$comp, he$ref)
   outputs <- list(e = he$e[, comp_ids],
                   c = he$c[, comp_ids],

tests/testthat/test-evppi.R

@@ -7,6 +7,12 @@
 # library(BCEA)
 if (interactive()) library(testthat)
 
+if (!requireNamespace("voi", quietly = TRUE)) {
+  stop(
+    "Package \"voi (>= 1.0.1)\" must be installed to use this function.",
+    call. = FALSE
+  )
+}
 
 test_that("GAM regression (default) with vaccine data", {