add options to silence compiler messages

nicholasjclark · May 28, 2024 · 18da5af · 18da5af
1 parent ada755f
commit 18da5af
Show file tree

Hide file tree

Showing 12 changed files with 1,281 additions and 1,052 deletions.
diff --git a/R/backends.R b/R/backends.R
diff --git a/R/mvgam.R b/R/mvgam.R
diff --git a/R/stan_utils.R b/R/stan_utils.R
diff --git a/R/validations.R b/R/validations.R
@@ -113,6 +113,48 @@ validate_series_time = function(data, name = 'data',
   return(data)
 }
 
+#'@noRd
+as_one_logical = function (x, allow_na = FALSE) {
+  s <- substitute(x)
+  x <- as.logical(x)
+  if (length(x) != 1L || anyNA(x) && !allow_na) {
+    s <- deparse0(s, max_char = 100L)
+    stop("Cannot coerce '", s, "' to a single logical value.",
+         call. = FALSE)
+  }
+  x
+}
+
+#'@noRd
+as_one_integer <- function(x, allow_na = FALSE) {
+  s <- substitute(x)
+  x <- suppressWarnings(as.integer(x))
+  if (length(x) != 1L || anyNA(x) && !allow_na) {
+    s <- deparse0(s, max_char = 100L)
+    stop("Cannot coerce '", s, "' to a single integer value.",
+         call. = FALSE)
+  }
+  x
+}
+
+#'@noRd
+deparse0 = function (x, max_char = NULL, ...) {
+  out <- collapse(deparse(x, ...))
+  if (isTRUE(max_char > 0)) {
+    out <- substr(out, 1L, max_char)
+  }
+  out
+}
+
+#'@noRd
+validate_silent <- function(silent) {
+  silent <- as_one_integer(silent)
+  if (silent < 0 || silent > 2) {
+    stop2("'silent' must be between 0 and 2.")
+  }
+  silent
+}
+
 #'@importFrom rlang warn
 #'@noRd
 validate_family = function(family, use_stan = TRUE){

diff --git a/man/mvgam.Rd b/man/mvgam.Rd
diff --git a/man/mvgam_marginaleffects.Rd b/man/mvgam_marginaleffects.Rd
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
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
diff --git a/tests/testthat/test-binomial.R b/tests/testthat/test-binomial.R
@@ -87,7 +87,8 @@ test_that("binomial() post-processing works", {
                data = dat_train,
                burnin = 500,
                samples = 200,
-               chains = 2))
+               chains = 2,
+               silent = 2))
   expect_no_error(capture_output(summary(mod)))
   expect_no_error(capture_output(code(mod)))
   expect_no_error(capture_output(print(mod)))
@@ -158,7 +159,8 @@ test_that("binomial() post-processing works", {
                   newdata = dat_test,
                   burnin = 200,
                   samples = 200,
-                  chains = 2))
+                  chains = 2,
+                  silent = 2))
   fc <- forecast(mod)
   expect_true(inherits(fc, 'mvgam_forecast'))
   expect_no_error(plot_mvgam_uncertainty(mod))
@@ -281,7 +283,8 @@ test_that("bernoulli() post-processing works", {
                data = dat_train,
                burnin = 200,
                samples = 200,
-               chains = 2))
+               chains = 2,
+               silent = 2))
 
   expect_no_error(capture_output(summary(mod)))
   expect_no_error(capture_output(print(mod)))

diff --git a/tests/testthat/test-nmixture.R b/tests/testthat/test-nmixture.R
@@ -190,7 +190,8 @@ test_that("nmix() post-processing works", {
                prior(normal(1, 1.5), class = Intercept_trend)),
     samples = 300,
     residuals = FALSE,
-    chains = 2))
+    chains = 2,
+    silent = 2))
 
   expect_no_error(capture_output(summary(mod)))
   expect_no_error(capture_output(print(mod)))