Running 'testthat.R' [64s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(landscapemetrics)
  > library(raster)
  Loading required package: sp
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:raster':
  
      intersect, select, union
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("landscapemetrics")
  -- 1. Error: calculate_metrics can calculate patch metrics (@test-calculate-metr
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = "patch") at testthat/test-calculate-metrics.R:4
  2: calculate_metrics.RasterLayer(landscape, what = "patch")
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map_dfr(namespace_patch, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: map(.x, .f, ...)
  6: .f(.x[[i]], ...)
  7: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  8: (function (landscape, directions) 
     UseMethod("lsm_p_para"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  9: lsm_p_para.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  11: eval(lhs, parent, parent)
  12: eval(lhs, parent, parent)
  13: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer")
  14: map(.x, .f, ...)
  15: .f(.x[[i]], ...)
  16: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 2. Error: calculate_metrics can calculate class metrics (@test-calculate-metr
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = "class") at testthat/test-calculate-metrics.R:10
  2: calculate_metrics.RasterLayer(landscape, what = "class")
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map_dfr(namespace_class, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: map(.x, .f, ...)
  6: .f(.x[[i]], ...)
  7: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  8: (function (landscape, directions) 
     UseMethod("lsm_c_cohesion"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  9: lsm_c_cohesion.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  10: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_cohesion_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  ...
  15: .f(.x[[i]], ...)
  16: landscape %>% lsm_p_perim_calc(directions = directions)
  17: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: eval(quote(`_fseq`(`_lhs`)), env, env)
  20: `_fseq`(`_lhs`)
  21: freduce(value, `_function_list`)
  22: withVisible(function_list[[k]](value))
  23: function_list[[k]](value)
  24: lsm_p_perim_calc(., directions = directions)
  
  -- 3. Error: calculate_metrics can calculate landscape metrics (@test-calculate-
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = "landscape") at testthat/test-calculate-metrics.R:17
  2: calculate_metrics.RasterLayer(landscape, what = "landscape")
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map_dfr(namespace_landscape, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: map(.x, .f, ...)
  6: .f(.x[[i]], ...)
  7: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  8: (function (landscape, directions) 
     UseMethod("lsm_l_frac_sd"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  9: lsm_l_frac_sd.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  ...
  15: .f(.x[[i]], ...)
  16: landscape %>% lsm_p_frac_calc(directions = directions) %>% dplyr::summarise(value = stats::sd(value))
  17: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: eval(quote(`_fseq`(`_lhs`)), env, env)
  20: `_fseq`(`_lhs`)
  21: freduce(value, `_function_list`)
  22: function_list[[i]](value)
  23: lsm_p_frac_calc(., directions = directions)
  24: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 4. Error: calculate_metrics can take specific metrics (@test-calculate-metric
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = c("lsm_p_enn", "lsm_c_ed")) at testthat/test-calculate-metrics.R:23
  2: calculate_metrics.RasterLayer(landscape, what = c("lsm_p_enn", "lsm_c_ed"))
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map(what, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: .f(.x[[i]], ...)
  6: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  7: (function (landscape, count_boundary, directions) 
     UseMethod("lsm_c_ed"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         count_boundary = FALSE, directions = 8)
  8: lsm_c_ed.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         count_boundary = FALSE, directions = 8)
  9: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  10: eval(lhs, parent, parent)
  11: eval(lhs, parent, parent)
  12: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer")
  13: map(.x, .f, ...)
  14: .f(.x[[i]], ...)
  15: lsm_c_te_calc(landscape, count_boundary = count_boundary, directions = directions)
  
  -- 5. Error: calculate_metrics can take specific metrics and multiple arguments 
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = c("lsm_p_enn", "lsm_c_ed"), count_boundary = TRUE, 
         directions = 4) at testthat/test-calculate-metrics.R:29
  2: calculate_metrics.RasterLayer(landscape, what = c("lsm_p_enn", "lsm_c_ed"), count_boundary = TRUE, 
         directions = 4)
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map(what, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: .f(.x[[i]], ...)
  6: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  7: (function (landscape, count_boundary, directions) 
     UseMethod("lsm_c_ed"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         count_boundary = TRUE, directions = 4)
  8: lsm_c_ed.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         count_boundary = TRUE, directions = 4)
  9: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  10: eval(lhs, parent, parent)
  11: eval(lhs, parent, parent)
  12: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer")
  13: map(.x, .f, ...)
  14: .f(.x[[i]], ...)
  15: lsm_c_te_calc(landscape, count_boundary = count_boundary, directions = directions)
  
  -- 6. Error: (unknown) (@test-get-adjacencies.R#4)  ----------------------------
  could not find function "isFALSE"
  1: get_adjacencies(landscape, 4, what = "full") at testthat/test-get-adjacencies.R:4
  
  -- 7. Error: (unknown) (@test-lsm-c-cohesion.R#4)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_cohesion(landscape) at testthat/test-lsm-c-cohesion.R:4
  2: lsm_c_cohesion.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_cohesion_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_cohesion_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_perim_calc(directions = directions)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: lsm_p_perim_calc(., directions = directions)
  
  -- 8. Error: (unknown) (@test-lsm-c-ed.R#4)  -----------------------------------
  could not find function "isFALSE"
  1: lsm_c_ed(landscape) at testthat/test-lsm-c-ed.R:4
  2: lsm_c_ed.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_ed_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_c_te_calc(landscape, count_boundary = count_boundary, directions = directions)
  
  -- 9. Error: (unknown) (@test-lsm-c-frac-cv.R#10)  -----------------------------
  could not find function "isFALSE"
  1: landscape %>% lsm_p_frac() %>% dplyr::group_by(class) %>% dplyr::summarize(metric = raster::cv(round(value, 
         4))) at testthat/test-lsm-c-frac-cv.R:10
  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: lsm_p_frac(.)
  9: lsm_p_frac.RasterLayer(.)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  11: eval(lhs, parent, parent)
  12: eval(lhs, parent, parent)
  13: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer")
  14: map(.x, .f, ...)
  15: .f(.x[[i]], ...)
  16: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 10. Error: (unknown) (@test-lsm-c-frac-mn.R#4)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_frac_mn(landscape) at testthat/test-lsm-c-frac-mn.R:4
  2: lsm_c_frac_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_frac_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_frac_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_frac(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: function_list[[i]](value)
  16: lsm_p_frac(., directions = directions)
  17: lsm_p_frac.RasterLayer(., directions = directions)
  18: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  19: eval(lhs, parent, parent)
  20: eval(lhs, parent, parent)
  21: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer")
  22: map(.x, .f, ...)
  23: .f(.x[[i]], ...)
  24: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 11. Error: (unknown) (@test-lsm-c-frac-sd.R#9)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_frac_sd(landscape) at testthat/test-lsm-c-frac-sd.R:9
  2: lsm_c_frac_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_frac_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_frac_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_frac_calc(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_frac_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 12. Error: (unknown) (@test-lsm-c-lsi.R#4)  ---------------------------------
  could not find function "isFALSE"
  1: lsm_c_lsi(landscape) at testthat/test-lsm-c-lsi.R:4
  2: lsm_c_lsi.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_lsi_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_lsi_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_c_te_calc(landscape, count_boundary = TRUE, directions = directions)
  
  -- 13. Error: (unknown) (@test-lsm-c-nlsi.R#5)  --------------------------------
  could not find function "isFALSE"
  1: lsm_c_nlsi(landscape) at testthat/test-lsm-c-nlsi.R:5
  2: lsm_c_nlsi.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_nlsi_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_nlsi_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_c_te_calc(landscape, count_boundary = T, directions = directions)
  
  -- 14. Error: (unknown) (@test-lsm-c-pafrac.R#4)  ------------------------------
  could not find function "isFALSE"
  1: lsm_c_pafrac(landscape) at testthat/test-lsm-c-pafrac.R:4
  2: lsm_c_pafrac.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_pafrac_calc, directions = directions, 
         verbose = verbose, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_pafrac_calc, directions = directions, 
         verbose = verbose, .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 15. Error: (unknown) (@test-lsm-c-para-cv.R#9)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_para_cv(landscape) at testthat/test-lsm-c-para-cv.R:9
  2: lsm_c_para_cv.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_cv_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_cv_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para_calc(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = raster::cv(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_para_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 16. Error: (unknown) (@test-lsm-c-para-mn.R#4)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_para_mn(landscape) at testthat/test-lsm-c-para-mn.R:4
  2: lsm_c_para_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para_calc(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_para_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 17. Error: (unknown) (@test-lsm-c-para-sd.R#9)  -----------------------------
  could not find function "isFALSE"
  1: lsm_c_para_sd(landscape) at testthat/test-lsm-c-para-sd.R:9
  2: lsm_c_para_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_para_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: function_list[[i]](value)
  16: lsm_p_para(., directions = directions)
  17: lsm_p_para.RasterLayer(., directions = directions)
  18: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  19: eval(lhs, parent, parent)
  20: eval(lhs, parent, parent)
  21: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer")
  22: map(.x, .f, ...)
  23: .f(.x[[i]], ...)
  24: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 18. Error: (unknown) (@test-lsm-c-shape-cv.R#10)  ---------------------------
  could not find function "isFALSE"
  1: landscape %>% lsm_p_shape() %>% dplyr::group_by(class) %>% dplyr::summarize(metric = raster::cv(round(value, 
         4))) at testthat/test-lsm-c-shape-cv.R:10
  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: lsm_p_shape(.)
  9: lsm_p_shape.RasterLayer(.)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  11: eval(lhs, parent, parent)
  12: eval(lhs, parent, parent)
  13: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer")
  14: map(.x, .f, ...)
  15: .f(.x[[i]], ...)
  16: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 19. Error: (unknown) (@test-lsm-c-shape-mn.R#4)  ----------------------------
  could not find function "isFALSE"
  1: lsm_c_shape_mn(landscape) at testthat/test-lsm-c-shape-mn.R:4
  2: lsm_c_shape_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_shape_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_shape_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_shape_calc(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_shape_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 20. Error: (unknown) (@test-lsm-c-shape-sd.R#8)  ----------------------------
  could not find function "isFALSE"
  1: lsm_c_shape_sd(landscape) at testthat/test-lsm-c-shape-sd.R:8
  2: lsm_c_shape_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_c_shape_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_c_shape_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_shape_calc(directions = directions) %>% dplyr::group_by(class) %>% 
         dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_shape_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 21. Error: (unknown) (@test-lsm-c-te.R#4)  ----------------------------------
  could not find function "isFALSE"
  1: lsm_c_te(landscape) at testthat/test-lsm-c-te.R:4
  2: lsm_c_te.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_te_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), .f = lsm_c_te_calc, count_boundary = count_boundary, 
         directions = directions, .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  
  -- 22. Error: (unknown) (@test-lsm-l-cohesion.R#4)  ----------------------------
  could not find function "isFALSE"
  1: lsm_l_cohesion(landscape) at testthat/test-lsm-l-cohesion.R:4
  2: lsm_l_cohesion.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), .f = lsm_l_cohesion_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), .f = lsm_l_cohesion_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_perim_calc(., directions = directions)
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: withVisible(function_list[[k]](value))
  16: function_list[[k]](value)
  17: lsm_p_perim_calc(., directions = directions)
  
  -- 23. Error: (unknown) (@test-lsm-l-frac-cv.R#7)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_frac_cv(landscape) at testthat/test-lsm-l-frac-cv.R:7
  2: lsm_l_frac_cv.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_cv_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_cv_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_frac_calc(directions = directions) %>% dplyr::summarise(value = raster::cv(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_frac_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 24. Error: (unknown) (@test-lsm-l-frac-mn.R#4)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_frac_mn(landscape) at testthat/test-lsm-l-frac-mn.R:4
  2: lsm_l_frac_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_frac(directions = directions) %>% dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  15: function_list[[i]](value)
  16: lsm_p_frac(., directions = directions)
  17: lsm_p_frac.RasterLayer(., directions = directions)
  18: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  19: eval(lhs, parent, parent)
  20: eval(lhs, parent, parent)
  21: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer")
  22: map(.x, .f, ...)
  23: .f(.x[[i]], ...)
  24: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 25. Error: (unknown) (@test-lsm-l-frac-sd.R#7)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_frac_sd(landscape) at testthat/test-lsm-l-frac-sd.R:7
  2: lsm_l_frac_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_frac_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_frac_calc(directions = directions) %>% dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_frac_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 26. Error: (unknown) (@test-lsm-l-pafrac.R#4)  ------------------------------
  could not find function "isFALSE"
  1: lsm_l_pafrac(landscape) at testthat/test-lsm-l-pafrac.R:4
  2: lsm_l_pafrac.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_pafrac_calc, directions = directions, 
         verbose = verbose, .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_pafrac_calc, directions = directions, 
         verbose = verbose, .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 27. Error: (unknown) (@test-lsm-l-para-cv.R#7)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_para_cv(landscape) at testthat/test-lsm-l-para-cv.R:7
  2: lsm_l_para_cv.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_cv_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_cv_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para_calc(directions = directions) %>% dplyr::summarise(value = raster::cv(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_para_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 28. Error: (unknown) (@test-lsm-l-para-mn.R#4)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_para_mn(landscape) at testthat/test-lsm-l-para-mn.R:4
  2: lsm_l_para_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para_calc(directions = directions) %>% dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_para_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 29. Error: (unknown) (@test-lsm-l-para-sd.R#7)  -----------------------------
  could not find function "isFALSE"
  1: lsm_l_para_sd(landscape) at testthat/test-lsm-l-para-sd.R:7
  2: lsm_l_para_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_para_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_para_calc(directions = directions) %>% dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_para_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 30. Error: (unknown) (@test-lsm-l-shape-cv.R#9)  ----------------------------
  could not find function "isFALSE"
  1: landscape %>% lsm_p_shape() %>% dplyr::summarize(metric = raster::cv(round(value, 
         4))) at testthat/test-lsm-l-shape-cv.R:9
  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: lsm_p_shape(.)
  9: lsm_p_shape.RasterLayer(.)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  11: eval(lhs, parent, parent)
  12: eval(lhs, parent, parent)
  13: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer")
  14: map(.x, .f, ...)
  15: .f(.x[[i]], ...)
  16: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 31. Error: (unknown) (@test-lsm-l-shape-mn.R#4)  ----------------------------
  could not find function "isFALSE"
  1: lsm_l_shape_mn(landscape) at testthat/test-lsm-l-shape-mn.R:4
  2: lsm_l_shape_mn.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_shape_mn_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_shape_mn_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_shape_calc(directions = directions) %>% dplyr::summarise(value = mean(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_shape_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 32. Error: (unknown) (@test-lsm-l-shape-sd.R#7)  ----------------------------
  could not find function "isFALSE"
  1: lsm_l_shape_sd(landscape) at testthat/test-lsm-l-shape-sd.R:7
  2: lsm_l_shape_sd.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_l_shape_sd_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_l_shape_sd_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: landscape %>% lsm_p_shape_calc(directions = directions) %>% dplyr::summarise(value = stats::sd(value))
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  11: eval(quote(`_fseq`(`_lhs`)), env, env)
  12: eval(quote(`_fseq`(`_lhs`)), env, env)
  13: `_fseq`(`_lhs`)
  14: freduce(value, `_function_list`)
  15: function_list[[i]](value)
  16: lsm_p_shape_calc(., directions = directions)
  17: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 33. Error: (unknown) (@test-lsm-p-frac.R#4)  --------------------------------
  could not find function "isFALSE"
  1: lsm_p_frac(landscape) at testthat/test-lsm-p-frac.R:4
  2: lsm_p_frac.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_p_frac_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 34. Error: (unknown) (@test-lsm-p-para.R#4)  --------------------------------
  could not find function "isFALSE"
  1: lsm_p_para(landscape) at testthat/test-lsm-p-para.R:4
  2: lsm_p_para.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 35. Error: (unknown) (@test-lsm-p-perim.R#4)  -------------------------------
  could not find function "isFALSE"
  1: lsm_p_perim(landscape) at testthat/test-lsm-p-perim.R:4
  2: lsm_p_perim.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_p_perim_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_p_perim_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  
  -- 36. Error: (unknown) (@test-lsm-p-shape.R#4)  -------------------------------
  could not find function "isFALSE"
  1: lsm_p_shape(landscape) at testthat/test-lsm-p-shape.R:4
  2: lsm_p_shape.RasterLayer(landscape)
  3: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  4: eval(lhs, parent, parent)
  5: eval(lhs, parent, parent)
  6: purrr::map_dfr(raster::as.list(landscape), lsm_p_shape_calc, directions = directions, 
         .id = "layer")
  7: map(.x, .f, ...)
  8: .f(.x[[i]], ...)
  9: lsm_p_perim_calc(landscape, directions = directions)
  
  -- 37. Error: (unknown) (@test-show-correlation.R#3)  --------------------------
  could not find function "isFALSE"
  1: calculate_metrics(landscape, what = "patch") at testthat/test-show-correlation.R:3
  2: calculate_metrics.RasterLayer(landscape, what = "patch")
  3: calculate_metrics_internal(landscape, what = what, directions = directions, count_boundary = count_boundary, 
         classes_max = classes_max, neighbourhood = neighbourhood, ordered = ordered, 
         base = base, full_name = full_name, verbose = verbose)
  4: purrr::map_dfr(namespace_patch, function(current_function) {
         foo <- match.fun(current_function)
         arguments <- names(formals(foo))
         do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
     })
  5: map(.x, .f, ...)
  6: .f(.x[[i]], ...)
  7: do.call(what = foo, args = mget(arguments, envir = parent.env(environment())))
  8: (function (landscape, directions) 
     UseMethod("lsm_p_para"))(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  9: lsm_p_para.RasterLayer(landscape = <S4 object of class structure("RasterLayer", package = "raster")>, 
         directions = 8)
  10: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer") %>% dplyr::mutate(layer = as.integer(layer))
  11: eval(lhs, parent, parent)
  12: eval(lhs, parent, parent)
  13: purrr::map_dfr(raster::as.list(landscape), lsm_p_para_calc, directions = directions, 
         .id = "layer")
  14: map(.x, .f, ...)
  15: .f(.x[[i]], ...)
  16: lsm_p_perim_calc(landscape, directions = directions)
  
  == testthat results  ===========================================================
  OK: 1105 SKIPPED: 0 FAILED: 37
  1. Error: calculate_metrics can calculate patch metrics (@test-calculate-metrics.R#4) 
  2. Error: calculate_metrics can calculate class metrics (@test-calculate-metrics.R#10) 
  3. Error: calculate_metrics can calculate landscape metrics (@test-calculate-metrics.R#17) 
  4. Error: calculate_metrics can take specific metrics (@test-calculate-metrics.R#23) 
  5. Error: calculate_metrics can take specific metrics and multiple arguments (@test-calculate-metrics.R#29) 
  6. Error: (unknown) (@test-get-adjacencies.R#4) 
  7. Error: (unknown) (@test-lsm-c-cohesion.R#4) 
  8. Error: (unknown) (@test-lsm-c-ed.R#4) 
  9. Error: (unknown) (@test-lsm-c-frac-cv.R#10) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted