Running 'testthat.R' [8s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(purrr)
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  > 
  > test_check("purrr")
  -- 1. Error: composed functions are applied right to left by default (@test-comp
  object 'purrr_eval' not found
  1: expect_identical(!is.null(4), compose(`!`, is.null)(4)) at testthat/test-compose.R:4
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(`!`, is.null)(4)
  
  -- 2. Error: composed functions are applied in reverse order if .dir is supplied
  object 'purrr_eval' not found
  1: expect_identical(compose(~.x + 100, ~.x * 2, .dir = "forward")(2), 204) at testthat/test-compose.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(~.x + 100, ~.x * 2, .dir = "forward")(2)
  
  -- 3. Error: compose supports formulas (@test-compose.R#19)  -------------------
  object 'purrr_eval' not found
  1: expect_identical(round_mean(1:100), round(mean(1:100, na.rm = TRUE), 2) * 100) at testthat/test-compose.R:19
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: round_mean(1:100)
  
  -- 4. Error: compose() supports character vectors (@test-compose.R#27)  --------
  object 'purrr_eval' not found
  1: expect_identical(fn("quux"), "quux baz baz") at testthat/test-compose.R:27
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: fn("quux")
  
  -- 5. Error: can splice lists of functions (@test-compose.R#36)  ---------------
  object 'purrr_eval' not found
  1: expect_identical(fn("c"), "c b a") at testthat/test-compose.R:36
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: fn("c")
  
  -- 6. Error: can compose primitive functions (@test-compose.R#45)  -------------
  object 'purrr_eval' not found
  1: expect_identical(compose(is.character, as.character)(3), TRUE) at testthat/test-compose.R:45
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(is.character, as.character)(3)
  
  -- 7. Error: compose() with 0 inputs returns the identity (@test-compose.R#62)  
  object 'purrr_eval' not found
  1: expect_identical(compose()(mtcars), mtcars) at testthat/test-compose.R:62
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose()(mtcars)
  
  -- 8. Error: compose() with 1 input is a noop (@test-compose.R#66)  ------------
  object 'purrr_eval' not found
  1: expect_identical(compose(toupper)(letters), toupper(letters)) at testthat/test-compose.R:66
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(toupper)(letters)
  
  -- 9. Error: compose() works with generic functions (#629) (@test-compose.R#72) 
  object 'purrr_eval' not found
  1: local({
         purrr__gen.default <- function(x) x + 1
         expect_identical(compose(~purrr__gen(.x))(0), 1)
         expect_identical(compose(~purrr__gen(.x), ~purrr__gen(.x))(0), 2)
         expect_identical(compose(purrr__gen)(0), 1)
         expect_identical(compose(purrr__gen, purrr__gen)(0), 2)
     }) at testthat/test-compose.R:72
  2: eval.parent(substitute(eval(quote(expr), envir)))
  3: eval(expr, p)
  4: eval(expr, p)
  5: eval(quote({
         purrr__gen.default <- function(x) x + 1
         expect_identical(compose(~purrr__gen(.x))(0), 1)
         expect_identical(compose(~purrr__gen(.x), ~purrr__gen(.x))(0), 2)
         expect_identical(compose(purrr__gen)(0), 1)
         expect_identical(compose(purrr__gen, purrr__gen)(0), 2)
     }), new.env())
  6: eval(quote({
         purrr__gen.default <- function(x) x + 1
         expect_identical(compose(~purrr__gen(.x))(0), 1)
         expect_identical(compose(~purrr__gen(.x), ~purrr__gen(.x))(0), 2)
         expect_identical(compose(purrr__gen)(0), 1)
         expect_identical(compose(purrr__gen, purrr__gen)(0), 2)
     }), new.env())
  7: expect_identical(compose(~purrr__gen(.x))(0), 1) at testthat/test-compose.R:74
  8: quasi_label(enquo(object), label)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: compose(~purrr__gen(.x))(0)
  
  -- 10. Error: compose() works with generic functions (#639) (@test-compose.R#84)
  object 'purrr_eval' not found
  1: expect_identical(n_unique(iris$Species), 3L) at testthat/test-compose.R:84
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: n_unique(iris$Species)
  
  -- 11. Error: compose() works with argument matching functions (@test-compose.R#
  object 'purrr_eval' not found
  1: expect_identical(compose(fn)("f"), "foo") at testthat/test-compose.R:90
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(fn)("f")
  
  -- 12. Error: compose() works with non-local exits (@test-compose.R#96)  -------
  object 'purrr_eval' not found
  1: expect_identical(compose(fn)("foo"), "foo") at testthat/test-compose.R:96
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(fn)("foo")
  
  -- 13. Error: compose() preserves lexical environment (@test-compose.R#106)  ---
  object 'purrr_eval' not found
  1: expect_identical(compose(fn)(), "foo") at testthat/test-compose.R:106
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(fn)()
  
  -- 14. Error: compose() can take dots from multiple environments (@test-compose.
  object 'purrr_eval' not found
  1: expect_identical(f(`_quux`), c("baz", "bar", "foo", "quux")) at testthat/test-compose.R:127
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: f(`_quux`)
  5: g(`_foo`, ...) at testthat/test-compose.R:113
  6: h(`_bar`, ...) at testthat/test-compose.R:117
  7: fn(`_baz`, ...) at testthat/test-compose.R:121
  
  -- 15. Error: compose() does not inline functions in call stack (@test-compose.R
  object 'purrr_eval' not found
  1: expect_identical(compose(~sys.call())(), quote(`_fn`())) at testthat/test-compose.R:145
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: compose(~sys.call())()
  
  -- 16. Error: some returns FALSE if all elements are FALSE (@test-every-some.R#1
  object 'purrr_eval' not found
  1: expect_true(some(x[1], negate(isTRUE))) at testthat/test-every-some.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: some(x[1], negate(isTRUE))
  5: .p(.x[[i]], ...)
  6: .fn(...)
  
  -- 17. Error: head_while works (@test-head-tail.R#6)  --------------------------
  object 'purrr_eval' not found
  1: expect_length(head_while(y, function(x) x <= 15), 15) at testthat/test-head-tail.R:6
  2: quasi_label(enquo(object))
  3: eval_bare(get_expr(quo), get_env(quo))
  4: head_while(y, function(x) x <= 15)
  5: detect_index(.x, negate(.p), ...)
  6: .f(.x[[i]], ...)
  7: .fn(...)
  
  -- 18. Error: tail_while works (@test-head-tail.R#10)  -------------------------
  object 'purrr_eval' not found
  1: expect_length(tail_while(y, function(x) x >= 86), 15) at testthat/test-head-tail.R:10
  2: quasi_label(enquo(object))
  3: eval_bare(get_expr(quo), get_env(quo))
  4: tail_while(y, function(x) x >= 86)
  5: detect_index(.x, negate(.p), ..., .dir = "backward")
  6: .f(.x[[i]], ...)
  7: .fn(...)
  
  -- 19. Error: original vector returned if predicate satisfied by all elements (@
  object 'purrr_eval' not found
  1: expect_identical(head_while(y, function(x) x <= 100), y) at testthat/test-head-tail.R:14
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: head_while(y, function(x) x <= 100)
  5: detect_index(.x, negate(.p), ...)
  6: .f(.x[[i]], ...)
  7: .fn(...)
  
  -- 20. Failure: head_while and tail_while require predicate function (@test-head
  `head_while(1:3, ~NA)` threw an error with unexpected message.
  Expected match: ", not a missing value"
  Actual message: "object 'purrr_eval' not found"
  
  -- 21. Failure: head_while and tail_while require predicate function (@test-head
  `tail_while(1:3, ~c(TRUE, FALSE))` threw an error with unexpected message.
  Expected match: ", not a logical vector of length 2"
  Actual message: "object 'purrr_eval' not found"
  
  -- 22. Error: `.else` modifies false elements (@test-modify.R#90)  -------------
  object 'purrr_eval' not found
  1: modify_if(iris, negate(is.factor), as.integer) at testthat/test-modify.R:90
  2: modify_if.default(iris, negate(is.factor), as.integer)
  3: probe(.x, .p)
  4: map_lgl(.x, .p, ...)
  5: .f(.x[[i]], ...)
  6: .fn(...)
  
  -- 23. Error: negate works with both functions and vectors (@test-negate.R#5)  -
  object 'purrr_eval' not found
  1: expect_equal(negate(true)(), FALSE) at testthat/test-negate.R:5
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: negate(true)()
  
  -- 24. Error: negate() works with early returns (@test-negate.R#13)  -----------
  object 'purrr_eval' not found
  1: expect_false(negate(~return(TRUE))()) at testthat/test-negate.R:13
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: negate(~return(TRUE))()
  
  -- 25. Error: negate() works with generic functions and local methods (@test-neg
  object 'purrr_eval' not found
  1: local({
         is_foobar.default <- function(x) TRUE
         expect_false(negate(is_foobar)())
     }) at testthat/test-negate.R:18
  2: eval.parent(substitute(eval(quote(expr), envir)))
  3: eval(expr, p)
  4: eval(expr, p)
  5: eval(quote({
         is_foobar.default <- function(x) TRUE
         expect_false(negate(is_foobar)())
     }), new.env())
  6: eval(quote({
         is_foobar.default <- function(x) TRUE
         expect_false(negate(is_foobar)())
     }), new.env())
  7: expect_false(negate(is_foobar)()) at testthat/test-negate.R:20
  8: quasi_label(enquo(object), label)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: negate(is_foobar)()
  
  == testthat results  ===========================================================
  OK: 723 SKIPPED: 0 FAILED: 25
  1. Error: composed functions are applied right to left by default (@test-compose.R#4) 
  2. Error: composed functions are applied in reverse order if .dir is supplied (@test-compose.R#12) 
  3. Error: compose supports formulas (@test-compose.R#19) 
  4. Error: compose() supports character vectors (@test-compose.R#27) 
  5. Error: can splice lists of functions (@test-compose.R#36) 
  6. Error: can compose primitive functions (@test-compose.R#45) 
  7. Error: compose() with 0 inputs returns the identity (@test-compose.R#62) 
  8. Error: compose() with 1 input is a noop (@test-compose.R#66) 
  9. Error: compose() works with generic functions (#629) (@test-compose.R#72) 
  1. ...
  
  Error: testthat unit tests failed
  In addition: Warning messages:
  1: In Sys.setlocale("LC_MESSAGES", "C") :
    LC_MESSAGES exists on Windows but is not operational
  2: In Sys.setlocale("LC_MESSAGES", "C") :
    OS reports request to set locale to "C" cannot be honored
  Execution halted