add dependencies for recordLinkage

Author: MuellerRoman

DESCRIPTION

@@ -25,6 +25,8 @@ LinkingTo: Rcpp
 Depends:
     R (>= 2.10)
 Suggests:
+    cluster,
+    clue,
     laeken,
     parallel,
     testthat,

R/recordLinkage.R

@@ -169,6 +169,12 @@ recordLinkage <- function(x,
   if (!is.numeric(tol) || length(tol) != 1L || !is.finite(tol) || tol < 0) {
     stop("`tol` must be a single non-negative finite number.", call. = FALSE)
   }
+  if (!requireNamespace("clue", quietly = TRUE)) {
+    stop("Package 'clue' is required for this function.", call. = FALSE)
+  }
+  if (!requireNamespace("cluster", quietly = TRUE)) {
+    stop("Package 'cluster' is required for this function.", call. = FALSE)
+  }
 
   # identifier handling --------------------------------------------------------
   if (is.null(x_id)) {

tests/testthat/test_recordLinkage.R

@@ -3,6 +3,9 @@
 # load library
 library(testthat)
 
+testthat::skip_if_not_installed("clue")
+testthat::skip_if_not_installed("cluster")
+
 test_that("recordLinkage returns correct match rate (example 1 from Harrenz et al. (2015))", {
   x <- data.frame(
     v1 = c(1, 0, -1, 0),