lints

NEWS.md

@@ -1,6 +1,6 @@
 # tarchetypes 0.7.10
 
-* Prepare to use `tar_seed_create()` (https://github.com/ropensci/targets/issues/1139).
+* Prepare to use `tar_seed_create()` and `tar_seed_set()` (https://github.com/ropensci/targets/issues/1139). Future versions of `tarchetypes` should use these package functions, but this version cannot because of the compatibility constraints of the release cycle.
 * Migrate tests to `targets` >= 1.3.2.9004 progress statuses ("completed" instead of "built", "dispatched" instead of "started").
 
 # tarchetypes 0.7.9

R/utils_seed.R

@@ -1,5 +1,5 @@
 # TODO: use targets::tar_seed_create() when CRAN targets has it.
-tar_seed_create <- function (name, global_seed = NULL) {
+tar_seed_create <- function(name, global_seed = NULL) {
   if (is.null(global_seed)) {
     global_seed <- targets::tar_option_get("seed")
   }
@@ -10,20 +10,20 @@ tar_seed_create <- function (name, global_seed = NULL) {
   hash <- digest::digest(
     object = name,
     algo = "sha512",
-    serialize = FALSE, 
+    serialize = FALSE,
     file = FALSE,
     seed = 0L
   )
   digest::digest2int(x = hash, seed = global_seed)
 }
 
 # TODO: same
-tar_seed_set <- function (seed) {
+tar_seed_set <- function(seed) {
   if (!is.null(seed) && !anyNA(seed)) {
     set.seed(
       seed = seed,
       kind = "default",
-      normal.kind = "default", 
+      normal.kind = "default",
       sample.kind = "default"
     )
   }