Running examples in ‘fakemake-Ex.R’ failed
The error most likely occurred in:

> ### Name: make
> ### Title: Mock the Unix Make Utility
> ### Aliases: make
> 
> ### ** Examples
> 
> str(make_list <- provide_make_list("minimal"))
List of 4
 $ :List of 4
  ..$ target       : chr "all.Rout"
  ..$ prerequisites: chr [1:2] "a1.Rout" "a2.Rout"
  ..$ code         : chr "print(\"all\")"
  ..$ sink         : chr "all.Rout"
 $ :List of 3
  ..$ target: chr "a2.Rout"
  ..$ code  : chr "print(\"a2\")"
  ..$ sink  : chr "a2.Rout"
 $ :List of 4
  ..$ target       : chr "a1.Rout"
  ..$ prerequisites: chr "b1.Rout"
  ..$ code         : chr "print(\"a1\")"
  ..$ sink         : chr "a1.Rout"
 $ :List of 3
  ..$ target: chr "b1.Rout"
  ..$ code  : chr "print(\"b1\")"
  ..$ sink  : chr "b1.Rout"
> # build all
> withr::with_dir(tempdir(), print(make("all.Rout", make_list)))
[1] "b1.Rout"  "a1.Rout"  "a2.Rout"  "all.Rout"
> # nothing to be done
> withr::with_dir(tempdir(), print(make("all.Rout", make_list)))
NULL
> # forcing all.Rout
> withr::with_dir(tempdir(), print(make("all.Rout", make_list, force = TRUE,
+                                       recursive = FALSE)))
[1] "all.Rout"
> # forcing all.Rout recursively
> withr::with_dir(tempdir(), print(make("all.Rout", make_list, force = TRUE)))
[1] "b1.Rout"  "a1.Rout"  "a2.Rout"  "all.Rout"
> 
> ## Don't show: 
> withr::with_dir(tempdir(), {
+                 str(make_list <- provide_make_list(type = "minimal"))
+                 make(make_list[[1]][["target"]], make_list)
+ 
+ src <- file.path(tempdir(), "src")
+ dir.create(src)
+ cat('print("foo")', file = file.path(src, "foo.R"))
+ cat('print("bar")', file = file.path(src, "bar.R"))
+ make_list[[4]]["code"] <- "lapply(list.files(src, full.names = TRUE),
+                                   source)"
+ make_list[[4]]["prerequisites"] <- "list.files(src, full.names = TRUE)"
+ 
+ #% make with updated source files
+ expectation <- make_list[[4]][["target"]]
+ result <- make(make_list[[4]][["target"]], make_list)
+ RUnit::checkTrue(identical(result, expectation))
+ 
+ #% rerun
+ # need to sleep on fast machine as the file modification times are identical
+ # otherwise.
+ Sys.sleep(1)
+ expectation <- NULL
+ result <- make(make_list[[4]][["target"]], make_list)
+ RUnit::checkTrue(identical(result, expectation))
+ 
+ #% touch source file and rerun
+ fakemake:::touch(file.path(src, "bar.R"))
+ expectation <- make_list[[4]][["target"]]
+ result <- make(make_list[[4]][["target"]], make_list)
+ RUnit::checkTrue(identical(result, expectation))
+ }
+ ## End(Don't show)
+ )
List of 4
 $ :List of 4
  ..$ target       : chr "all.Rout"
  ..$ prerequisites: chr [1:2] "a1.Rout" "a2.Rout"
  ..$ code         : chr "print(\"all\")"
  ..$ sink         : chr "all.Rout"
 $ :List of 3
  ..$ target: chr "a2.Rout"
  ..$ code  : chr "print(\"a2\")"
  ..$ sink  : chr "a2.Rout"
 $ :List of 4
  ..$ target       : chr "a1.Rout"
  ..$ prerequisites: chr "b1.Rout"
  ..$ code         : chr "print(\"a1\")"
  ..$ sink         : chr "a1.Rout"
 $ :List of 3
  ..$ target: chr "b1.Rout"
  ..$ code  : chr "print(\"b1\")"
  ..$ sink  : chr "b1.Rout"
Prerequisite /tmp/Rtmp5DYFmH/src/bar.R found.
Prerequisite /tmp/Rtmp5DYFmH/src/foo.R found.
Error in RUnit::checkTrue(identical(result, expectation)) : Test not TRUE
Calls: <Anonymous> -> force -> <Anonymous>
Execution halted