ensure integer output

because `seq()` might return double or integer and "programmers should not rely on which" (from the docs)

Author: hfrick

R/aaa_values.R

@@ -268,6 +268,7 @@ value_samp_int <- function(object, n, original = TRUE) {
         size = n,
         replace = TRUE
       )
+      res <- as.integer(res)
     } else {
       res <- sample(
         object$values,