From 33c4e963ee04cf3bef9ec8436fa8f8d5dec59bf4 Mon Sep 17 00:00:00 2001 From: Craig Gower-Page Date: Mon, 30 Sep 2024 09:52:54 +0100 Subject: [PATCH] Apply suggestions from code review Co-authored-by: Isaac Gravestock <83659704+gravesti@users.noreply.github.com> Signed-off-by: Craig Gower-Page --- R/methods.R | 4 ++-- data-raw/create_print_test_data.R | 2 +- tests/testthat/test-mcmc.R | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/methods.R b/R/methods.R index 406f22824..b9f7f9f4c 100644 --- a/R/methods.R +++ b/R/methods.R @@ -93,10 +93,10 @@ method_bayes <- function( seed = NULL ) { if (!is.null(seed)) { - warning(paste0( + warning( "The `seed` argument to `method_bayes()` has been deprecated", " please use `set.seed()` instead" - )) + ) } x <- list( diff --git a/data-raw/create_print_test_data.R b/data-raw/create_print_test_data.R index 71c2c120d..501c1bcfb 100644 --- a/data-raw/create_print_test_data.R +++ b/data-raw/create_print_test_data.R @@ -107,7 +107,7 @@ set.seed(413) dobj <- get_data(40) suppressWarnings({ - set.seet(859) + set.seed(859) drawobj_b <- draws( data = dobj$dat, data_ice = dobj$dat_ice, diff --git a/tests/testthat/test-mcmc.R b/tests/testthat/test-mcmc.R index 422f4d544..aa77c88d5 100644 --- a/tests/testthat/test-mcmc.R +++ b/tests/testthat/test-mcmc.R @@ -603,7 +603,7 @@ test_that("fit_mcmc can recover known values with same_cov = FALSE", { }) -test_that("seed argument to method_bayes is depreciated", { +test_that("seed argument to method_bayes is deprecated", { expect_warning( { method <- method_bayes(