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: