Deploying to gh-pages from @ 67c09c7 🚀

Author: DavisVaughan

dev/articles/mocking.html

@@ -292,7 +292,7 @@ function to mock.
 ``` r
 unix_time <- function() unclass(Sys.time())
 unix_time()
-#> [1] 1768230224
+#> [1] 1769017789
 ```
 
 Now I’m going to create a function factory that makes it easy to compute
@@ -309,7 +309,7 @@ elapsed <- function() {
 timer <- elapsed()
 Sys.sleep(0.5)
 timer()
-#> [1] 0.5019276
+#> [1] 0.5019662
 ```
 
 Imagine trying to test this function without mocking! You’d probably

dev/articles/mocking.md

@@ -386,7 +386,7 @@ test_that("generates actionable error message", {
 #>   safe_write_lines(letters, path)
 #> Condition
 #>   Error in `safe_write_lines()`:
-#>   ! '/tmp/RtmpsmHimx/file294116c786a' already exists.
+#>   ! '/tmp/Rtmp9YVAJl/file295412ae83f3' already exists.
 #>   i Set `overwrite = TRUE` to overwrite
 #> Test passed with 1 success 🎊.
 ```
@@ -402,8 +402,8 @@ test_that("generates actionable error message", {
 #>     safe_write_lines(letters, path)
 #>   Condition
 #>     Error in `safe_write_lines()`:
-#> -   ! '/tmp/RtmpsmHimx/file294116c786a' already exists.
-#> +   ! '/tmp/RtmpsmHimx/file29416a688e29' already exists.
+#> -   ! '/tmp/Rtmp9YVAJl/file295412ae83f3' already exists.
+#> +   ! '/tmp/Rtmp9YVAJl/file29546e71d092' already exists.
 #>     i Set `overwrite = TRUE` to overwrite
 #> * Run `testthat::snapshot_accept("snapshotting.Rmd")` to accept the change.
 #> * Run `testthat::snapshot_review("snapshotting.Rmd")` to review the change.

dev/articles/snapshotting.html

@@ -11,7 +11,7 @@ articles:
   special-files: special-files.html
   test-fixtures: test-fixtures.html
   third-edition: third-edition.html
-last_built: 2026-01-12T15:03Z
+last_built: 2026-01-21T17:49Z
 urls:
   reference: https://testthat.r-lib.org/reference
   article: https://testthat.r-lib.org/articles

dev/articles/snapshotting.md

@@ -129,7 +129,7 @@ save_png <- function(code, width = 400, height = 400) {
 }
 path <- save_png(plot(1:5))
 path
-#> [1] "/tmp/Rtmp8o1IVK/file1be142970e50.png"
+#> [1] "/tmp/RtmpQ2CpnJ/file1bfc334bac73.png"
 
 if (FALSE) { # \dontrun{
 expect_snapshot_file(save_png(hist(mtcars$mpg)), "plot.png")