From b47ab90d70553e5866b0efd148a890aa4c40e6d0 Mon Sep 17 00:00:00 2001
From: Jesse Sadler <jrsadler@icloud.com>
Date: Tue, 21 Mar 2023 11:30:37 -0400
Subject: [PATCH] Remove vec_check_size

---
 R/lsd-class.R           | 4 +++-
 R/tetra-class.R         | 4 +++-
 man/debkeepr-package.Rd | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/R/lsd-class.R b/R/lsd-class.R
index 529d3d4..342f323 100644
--- 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
index a777e96..93a0a06 100644
--- 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
index 109baed..abbd3f3 100644
--- a/man/debkeepr-package.Rd
+++ b/man/debkeepr-package.Rd
@@ -8,7 +8,7 @@
 \description{
 \if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}}
 
-Analysis of historical non-decimal currencies and value systems that use either tripartite or tetrapartite systems such as pounds, shillings, and pence.
+Analysis of historical non-decimal currencies and value systems that use tripartite or tetrapartite systems such as pounds, shillings, and pence. It introduces new vector classes to represent non-decimal currencies, making them compatible with numeric classes, and provides functions to work with these classes in data frames in the context of double-entry bookkeeping.
 }
 \seealso{
 Useful links: