Apply suggestions from code review

Co-authored-by: Isaac Gravestock <[email protected]> Signed-off-by: Craig Gower-Page <[email protected]>
insightsengineering · Sep 30, 2024 · 33c4e96 · 33c4e96
1 parent 08d5792
commit 33c4e96
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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(