fix a few validations

nicholasjclark · May 28, 2024 · 0276d8c · 0276d8c
1 parent e83add2
commit 0276d8c
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 2 deletions.
diff --git a/R/validations.R b/R/validations.R
@@ -139,7 +139,7 @@ as_one_integer <- function(x, allow_na = FALSE) {
 
 #'@noRd
 deparse0 = function (x, max_char = NULL, ...) {
-  out <- collapse(deparse(x, ...))
+  out <- paste(deparse(x, ...), sep = "", collapse = "")
   if (isTRUE(max_char > 0)) {
     out <- substr(out, 1L, max_char)
   }
@@ -150,7 +150,8 @@ deparse0 = function (x, max_char = NULL, ...) {
 validate_silent <- function(silent) {
   silent <- as_one_integer(silent)
   if (silent < 0 || silent > 2) {
-    stop2("'silent' must be between 0 and 2.")
+    stop("'silent' must be between 0 and 2.",
+         call. = FALSE)
   }
   silent
 }

diff --git a/src/RcppExports.o b/src/RcppExports.o
diff --git a/src/mvgam.dll b/src/mvgam.dll
diff --git a/src/trend_funs.o b/src/trend_funs.o