Remove vec_check_size

jessesadler · Mar 21, 2023 · b47ab90 · b47ab90
1 parent 5007a89
commit b47ab90
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/R/lsd-class.R b/R/lsd-class.R
@@ -29,7 +29,9 @@ new_lsd <- function(l = double(),
   if (!rlang::is_integer(bases)) {
     rlang::abort("`bases` must be an integer vector.")
   }
-  vec_check_size(bases, size = 2L)
+  if (vec_size(bases) != 2L) {
+    rlang::abort("`bases` must be an integer vector of length 2.")
+  }
 
   bases <- rlang::set_names(bases, c("s", "d"))
 

diff --git a/R/tetra-class.R b/R/tetra-class.R
@@ -33,7 +33,9 @@ new_tetra <- function(l = double(),
   if (!rlang::is_integer(bases)) {
     rlang::abort("`bases` must be an integer vector.")
   }
-  vec_check_size(bases, size = 3L)
+  if (vec_size(bases) != 3L) {
+    rlang::abort("`bases` must be an integer vector of length 3.")
+  }
 
   bases <- rlang::set_names(bases, c("s", "d", "f"))
 

diff --git a/man/debkeepr-package.Rd b/man/debkeepr-package.Rd