Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(detrendr)
  > 
  > test_check("detrendr")
  -- 1. Error: best_tau works (@test-best_params.R#5)  ---------------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr"), msg = FALSE) at testthat/test-best_params.R:5
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 2. Error: best_l works (@test-best_params.R#20)  ----------------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr"), msg = FALSE) at testthat/test-best_params.R:20
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 3. Error: best_degree works (@test-best_params.R#39)  -----------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr"), msg = FALSE) at testthat/test-best_params.R:39
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 4. Error: best_swaps() works (@test-best_params.R#54)  ----------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr")) at testthat/test-best_params.R:54
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 5. Failure: detrended_img works (@test-class_constructors.R#5)  -------------
  `detrended_img(...)` threw an error with unexpected message.
  Expected match: "Elements of a detrended_img must all be integers."
  Actual message: "ICU init failed: U_FILE_ACCESS_ERROR"
  
  -- 6. Error: detrended_img works (@test-class_constructors.R#11)  --------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: expect_equal(detrended_img(three_d, "exp", 9, FALSE, purpose = "ff"), detrended_img(four_d, 
         "exp", 9, FALSE, purpose = "ff")) at testthat/test-class_constructors.R:11
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: detrended_img(three_d, "exp", 9, FALSE, purpose = "ff")
  5: method %<>% filesstrings::match_arg(c("boxcar", "exponential", "polynomial", "rh", 
         "robinhood"), ignore_case = TRUE)
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: withVisible(function_list[[k]](value))
  12: function_list[[k]](value)
  13: filesstrings::match_arg
  14: getExportedValue(pkg, name)
  15: asNamespace(ns)
  16: getNamespace(ns)
  17: tryCatch(loadNamespace(name), error = function(e) stop(e))
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  20: value[[3L]](cond)
  
  -- 7. Error: detrending works (@test-detrend.R#3)  -----------------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr"), msg = FALSE) at testthat/test-detrend.R:3
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 8. Error: detrending errors correctly (@test-detrend.R#95)  -----------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: ijtiff::read_tif(system.file("extdata", "bleached.tif", package = "detrendr"), msg = FALSE) at testthat/test-detrend.R:95
  2: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: stringr::str_replace_all
  11: getExportedValue(pkg, name)
  12: asNamespace(ns)
  13: getNamespace(ns)
  14: tryCatch(loadNamespace(name), error = function(e) stop(e))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  
  -- 9. Error: detrending entire derectories works (@test-dir_detrend.R#10)  -----
  ICU init failed: U_FILE_ACCESS_ERROR
  1: purrr::map(orig_files, ijtiff::read_tif, msg = FALSE) at testthat/test-dir_detrend.R:10
  2: .f(.x[[i]], ...)
  3: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: withVisible(function_list[[k]](value))
  10: function_list[[k]](value)
  11: stringr::str_replace_all
  12: getExportedValue(pkg, name)
  13: asNamespace(ns)
  14: getNamespace(ns)
  15: tryCatch(loadNamespace(name), error = function(e) stop(e))
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: value[[3L]](cond)
  
  -- 10. Error: file_detrend() deals with other directories correctly (@test-dir_d
  ICU init failed: U_FILE_ACCESS_ERROR
  1: filesstrings::create_dir at testthat/test-dir_detrend.R:120
  2: getExportedValue(pkg, name)
  3: asNamespace(ns)
  4: getNamespace(ns)
  5: tryCatch(loadNamespace(name), error = function(e) stop(e))
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  -- 11. Error: sum_pillars() and mean_pillars() work (@test-utils.R#16)  --------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) at testthat/test-utils.R:16
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: ijtiff::read_tif(., msg = FALSE)
  10: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  ...
  16: withVisible(function_list[[k]](value))
  17: function_list[[k]](value)
  18: stringr::str_replace_all
  19: getExportedValue(pkg, name)
  20: asNamespace(ns)
  21: getNamespace(ns)
  22: tryCatch(loadNamespace(name), error = function(e) stop(e))
  23: tryCatchList(expr, classes, parentenv, handlers)
  24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  25: value[[3L]](cond)
  
  -- 12. Error: sum_frames() and mean_frames() work (@test-utils.R#22)  ----------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) %>% 
         {
             .[, , 1, ]
         } at testthat/test-utils.R:22
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: ijtiff::read_tif(., msg = FALSE)
  9: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: stringr::str_replace_all
  18: getExportedValue(pkg, name)
  19: asNamespace(ns)
  20: getNamespace(ns)
  21: tryCatch(loadNamespace(name), error = function(e) stop(e))
  22: tryCatchList(expr, classes, parentenv, handlers)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: value[[3L]](cond)
  
  -- 13. Error: brightness_cols_given_mean() works (@test-utils.R#32)  -----------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) %>% 
         {
             .[, , 1, 1]
         } at testthat/test-utils.R:32
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: ijtiff::read_tif(., msg = FALSE)
  9: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: stringr::str_replace_all
  18: getExportedValue(pkg, name)
  19: asNamespace(ns)
  20: getNamespace(ns)
  21: tryCatch(loadNamespace(name), error = function(e) stop(e))
  22: tryCatchList(expr, classes, parentenv, handlers)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: value[[3L]](cond)
  
  -- 14. Error: var_cols_given_mean() works (@test-utils.R#42)  ------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) %>% 
         {
             .[, , 1, 1]
         } at testthat/test-utils.R:42
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: ijtiff::read_tif(., msg = FALSE)
  9: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: stringr::str_replace_all
  18: getExportedValue(pkg, name)
  19: asNamespace(ns)
  20: getNamespace(ns)
  21: tryCatch(loadNamespace(name), error = function(e) stop(e))
  22: tryCatchList(expr, classes, parentenv, handlers)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: value[[3L]](cond)
  
  -- 15. Error: var_rows_given_mean() works (@test-utils.R#52)  ------------------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) %>% 
         {
             .[, , 1, 1]
         } at testthat/test-utils.R:52
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: ijtiff::read_tif(., msg = FALSE)
  9: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: stringr::str_replace_all
  18: getExportedValue(pkg, name)
  19: asNamespace(ns)
  20: getNamespace(ns)
  21: tryCatch(loadNamespace(name), error = function(e) stop(e))
  22: tryCatchList(expr, classes, parentenv, handlers)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: value[[3L]](cond)
  
  -- 16. Error: rboxes derivatives error correctly (@test-utils.R#67)  -----------
  ICU init failed: U_FILE_ACCESS_ERROR
  1: system.file("extdata", "bleached.tif", package = "detrendr") %>% ijtiff::read_tif(msg = FALSE) %>% 
         {
             .[, , 1, ]
         } at testthat/test-utils.R:67
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: function_list[[i]](value)
  8: ijtiff::read_tif(., msg = FALSE)
  9: path %<>% stringr::str_replace_all(stringr::coll("\\"), "/")
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: stringr::str_replace_all
  18: getExportedValue(pkg, name)
  19: asNamespace(ns)
  20: getNamespace(ns)
  21: tryCatch(loadNamespace(name), error = function(e) stop(e))
  22: tryCatchList(expr, classes, parentenv, handlers)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: value[[3L]](cond)
  
  == testthat results  ===========================================================
  OK: 32 SKIPPED: 12 FAILED: 16
  1. Error: best_tau works (@test-best_params.R#5) 
  2. Error: best_l works (@test-best_params.R#20) 
  3. Error: best_degree works (@test-best_params.R#39) 
  4. Error: best_swaps() works (@test-best_params.R#54) 
  5. Failure: detrended_img works (@test-class_constructors.R#5) 
  6. Error: detrended_img works (@test-class_constructors.R#11) 
  7. Error: detrending works (@test-detrend.R#3) 
  8. Error: detrending errors correctly (@test-detrend.R#95) 
  9. Error: detrending entire derectories works (@test-dir_detrend.R#10) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted