Use explicit int seed

r-lib · Oct 19, 2023 · 09d0e77 · 09d0e77
1 parent 2c2cdbd
commit 09d0e77
Show file tree

Hide file tree

Showing 6 changed files with 9 additions and 9 deletions.
diff --git a/R/build-articles.R b/R/build-articles.R
@@ -171,7 +171,7 @@
 build_articles <- function(pkg = ".",
                            quiet = TRUE,
                            lazy = TRUE,
-                           seed = 1014,
+                           seed = 1014L,
                            override = list(),
                            preview = NA) {
   pkg <- section_init(pkg, depth = 1L, override = override)

diff --git a/R/build-reference.R b/R/build-reference.R
@@ -153,7 +153,7 @@ build_reference <- function(pkg = ".",
                             lazy = TRUE,
                             examples = TRUE,
                             run_dont_run = FALSE,
-                            seed = 1014,
+                            seed = 1014L,
                             override = list(),
                             preview = NA,
                             devel = TRUE,
@@ -205,7 +205,7 @@ copy_figures <- function(pkg) {
   }
 }
 
-examples_env <- function(pkg, seed = 1014, devel = TRUE, envir = parent.frame()) {
+examples_env <- function(pkg, seed = 1014L, devel = TRUE, envir = parent.frame()) {
   # Re-loading pkgdown while it's running causes weird behaviour with
   # the context cache
   if (isTRUE(devel) && !(pkg$package %in% c("pkgdown", "rprojroot"))) {

diff --git a/R/build.R b/R/build.R
@@ -321,7 +321,7 @@
 build_site <- function(pkg = ".",
                        examples = TRUE,
                        run_dont_run = FALSE,
-                       seed = 1014,
+                       seed = 1014L,
                        lazy = FALSE,
                        override = list(),
                        preview = NA,
@@ -375,7 +375,7 @@ build_site <- function(pkg = ".",
 build_site_external <- function(pkg = ".",
                                 examples = TRUE,
                                 run_dont_run = FALSE,
-                                seed = 1014,
+                                seed = 1014L,
                                 lazy = FALSE,
                                 override = list(),
                                 preview = NA,
@@ -415,7 +415,7 @@ build_site_external <- function(pkg = ".",
 build_site_local <- function(pkg = ".",
                        examples = TRUE,
                        run_dont_run = FALSE,
-                       seed = 1014,
+                       seed = 1014L,
                        lazy = FALSE,
                        override = list(),
                        preview = NA,

diff --git a/man/build_articles.Rd b/man/build_articles.Rd
diff --git a/man/build_reference.Rd b/man/build_reference.Rd
diff --git a/man/build_site.Rd b/man/build_site.Rd