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

RoheLab · Jul 2, 2024 · ef6224d · ef6224d
1 parent fd3d993
commit ef6224d
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 32 deletions.
diff --git a/R/expected-spectra.R b/R/expected-spectra.R
@@ -21,12 +21,7 @@ eigs_sym.undirected_factor_model <- function(
  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))
 
@@ -50,12 +45,7 @@ svds.undirected_factor_model <- function(
  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))
@@ -95,12 +85,7 @@ svds.directed_factor_model <- function(
  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))

diff --git a/R/sample_igraph.R b/R/sample_igraph.R
@@ -30,13 +30,7 @@ sample_igraph <- function(
 
  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")
 }

diff --git a/R/sample_tidygraph.R b/R/sample_tidygraph.R
@@ -30,13 +30,7 @@ sample_tidygraph <- function(
 
  rlang::check_dots_unnamed()
 
- if (!(requireNamespace("tidygraph", quietly = TRUE))) {
- stop(
- "Must install `tidygraph` package to return graphs as `tidygraph` ",
- "objects",
- call. = FALSE
- )
- }
+ rlang::check_installed("igraph", "to return graphs as `tidygraph` objects.")
 
  UseMethod("sample_tidygraph")
 }