Drop ellipsis for rlang

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

Hide file tree

Showing 8 changed files with 8 additions and 8 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -26,11 +26,11 @@ Depends:
     Matrix
 Imports: 
     dplyr,
-    ellipsis,
     ggplot2,
     glue,
     igraph,
     methods,
+    rlang (>= 1.0.0),
     RSpectra,
     stats,
     tibble,

diff --git a/R/directed_factor_model.R b/R/directed_factor_model.R
@@ -5,7 +5,7 @@ new_directed_factor_model <- function(
   ...,
   subclass = character()) {
 
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   n <- nrow(X)
   k1 <- ncol(X)

diff --git a/R/expected-degrees.R b/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")
 }
 

diff --git a/R/sample_edgelist.R b/R/sample_edgelist.R
@@ -146,7 +146,7 @@
 sample_edgelist <- function(
   factor_model,
   ...) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
   UseMethod("sample_edgelist")
 }
 

diff --git a/R/sample_igraph.R b/R/sample_igraph.R
@@ -28,7 +28,7 @@ sample_igraph <- function(
   factor_model,
   ...) {
 
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   if (!(requireNamespace("igraph", quietly = TRUE))) {
     stop(

diff --git a/R/sample_sparse.R b/R/sample_sparse.R
@@ -24,7 +24,7 @@
 sample_sparse <- function(
   factor_model,
   ...) {
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
   UseMethod("sample_sparse")
 }
 

diff --git a/R/sample_tidygraph.R b/R/sample_tidygraph.R
@@ -28,7 +28,7 @@ sample_tidygraph <- function(
   factor_model,
   ...) {
 
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   if (!(requireNamespace("tidygraph", quietly = TRUE))) {
     stop(

diff --git a/R/undirected_factor_model.R b/R/undirected_factor_model.R
@@ -5,7 +5,7 @@ new_undirected_factor_model <- function(
   allow_self_loops = TRUE,
   subclass = character()) {
 
-  ellipsis::check_dots_unnamed()
+  rlang::check_dots_unnamed()
 
   n <- nrow(X)
   k <- ncol(S)