Slightly better error messages

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: sps
 Title: Sequential Poisson Sampling
-Version: 0.5.3.9001
+Version: 0.5.3.9002
 Authors@R: c(
     person("Steve", "Martin", role = c("aut", "cre", "cph"), email = "stevemartin041@gmail.com", comment = c(ORCID = "0000-0003-2544-9480")),
     person("Justin", "Francis", role = "ctb")

R/prop_allocation.R

@@ -1,8 +1,8 @@
 #' Highest-averages apportionment method
 #' @noRd
 highest_averages <- function(p, n, initial, available, ties, dist) {
-  if (n < 0L) {
-    stop("sample size must be greater than or equal to 0")
+  if (length(n) > 1L || n < 0L) {
+    stop("sample size must be an integer greater than or equal to 0")
   }
   if (length(p) != length(initial)) {
     stop("initial allocation must have a single size for each stratum")

R/sps_repweights.R

@@ -96,13 +96,13 @@ sps_repweights <- function(w, replicates = 1000L, tau = 1, dist = NULL) {
   }
 
   replicates <- as.integer(replicates)
-  if (replicates < 0L) {
-    stop("number of replicates must be greater than or equal to 0")
+  if (length(replicates) > 1L || replicates < 0L) {
+    stop("number of replicates must be an integer greater than or equal to 0")
   }
 
   tau <- as.numeric(tau)
-  if (tau < 1) {
-    stop("'tau' must be greater than or equal to 1")
+  if (length(tau) > 1L || tau < 1) {
+    stop("'tau' must be number greater than or equal to 1")
   }
 
   p <- 1 / w