Drop ellipsis for rlang + use check_installed() to install packages on the fly (#37)

* Drop ellipsis for rlang

* Use `rlang::check_installed()` to install missing packages on the fly.

Author: olivroy

DESCRIPTION

@@ -26,11 +26,11 @@ Depends:
     Matrix
 Imports: 
     dplyr,
-    ellipsis,
     ggplot2,
     glue,
     igraph,
     methods,
+    rlang (>= 1.0.0),
     RSpectra,
     stats,
     tibble,

R/directed_factor_model.R

@@ -4,7 +4,7 @@ new_directed_factor_model <- function(
     allow_self_loops,
     ...,
     subclass = character()) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   n <- nrow(X)
   k1 <- ncol(X)

R/expected-degrees.R

@@ -69,7 +69,7 @@
 #' svds(dfm)
 #'
 expected_edges <- function(factor_model, ...) {
-  ellipsis::check_dots_empty()
+  rlang::check_dots_empty()
   UseMethod("expected_edges")
 }
 

R/expected-spectra.R

@@ -20,12 +20,7 @@ eigs_sym.undirected_factor_model <- function(
     which = "LM", sigma = NULL,
     opts = list(),
     ...) {
-  if (!requireNamespace("RSpectra", quietly = TRUE)) {
-    stop(
-      "Must install `RSpectra` for this functionality.",
-      call. = FALSE
-    )
-  }
+  rlang::check_installed("RSpectra")
 
   Ax <- function(x, args) as.numeric(args$X %*% (args$SXt %*% x))
 
@@ -48,12 +43,7 @@ svds.undirected_factor_model <- function(
     nv = k,
     opts = list(),
     ...) {
-  if (!requireNamespace("RSpectra", quietly = TRUE)) {
-    stop(
-      "Must install `RSpectra` for this functionality.",
-      call. = FALSE
-    )
-  }
+  rlang::check_installed("RSpectra")
 
   Ax <- function(x, args) {
     as.numeric(args$X %*% (tcrossprod(args$S, args$X) %*% x))
@@ -92,12 +82,7 @@ svds.directed_factor_model <- function(
     nv = k,
     opts = list(),
     ...) {
-  if (!requireNamespace("RSpectra", quietly = TRUE)) {
-    stop(
-      "Must install `RSpectra` for this functionality.",
-      call. = FALSE
-    )
-  }
+  rlang::check_installed("RSpectra")
 
   Ax <- function(x, args) {
     as.numeric(args$X %*% (tcrossprod(args$S, args$Y) %*% x))

R/sample_edgelist.R

@@ -146,7 +146,7 @@
 sample_edgelist <- function(
     factor_model,
     ...) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
   UseMethod("sample_edgelist")
 }
 

R/sample_igraph.R

@@ -27,15 +27,9 @@
 sample_igraph <- function(
     factor_model,
     ...) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
-  if (!(requireNamespace("igraph", quietly = TRUE))) {
-    stop(
-      "Must install `igraph` package to return graphs as `igraph` ",
-      "objects",
-      call. = FALSE
-    )
-  }
+  rlang::check_installed("igraph", "to return graphs as `igraph` objects.")
 
   UseMethod("sample_igraph")
 }

R/sample_sparse.R

@@ -24,7 +24,7 @@
 sample_sparse <- function(
     factor_model,
     ...) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
   UseMethod("sample_sparse")
 }
 

R/sample_tidygraph.R

@@ -27,15 +27,8 @@
 sample_tidygraph <- function(
     factor_model,
     ...) {
-  ellipsis::check_dots_unnamed()
-
-  if (!(requireNamespace("tidygraph", quietly = TRUE))) {
-    stop(
-      "Must install `tidygraph` package to return graphs as `tidygraph` ",
-      "objects",
-      call. = FALSE
-    )
-  }
+  rlang::check_dots_unnamed()
+  rlang::check_installed("igraph", "to return graphs as `tidygraph` objects.")
 
   UseMethod("sample_tidygraph")
 }

R/undirected_factor_model.R

@@ -4,7 +4,7 @@ new_undirected_factor_model <- function(
     poisson_edges = TRUE,
     allow_self_loops = TRUE,
     subclass = character()) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   n <- nrow(X)
   k <- ncol(S)