Running ‘testthat.R’ [10s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(traitstrap)
  > 
  > 
  > test_check("traitstrap")
  Saving _problems/test-trait_fit_distributions-27.R
  Saving _problems/test-trait_parametric_bootstrapping-20.R
  [ FAIL 2 | WARN 2 | SKIP 0 | PASS 43 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-trait_fit_distributions.R:22:3'): returns parametric distribution tibbles of proper size ──
  Error in `summarize(mutate(group_by(filled_traits, .data[[c(taxon_col)]], .data[[c(abundance_col)]], .data$n_sample, .add = TRUE), distribution_type = distribution_type[.data[[trait_col]]]), quiet(suppressWarnings(get_dist_parms(data = .data[[value_col]], distribution_type = .data$distribution_type[1]))), .groups = "keep")`: ℹ In argument: `quiet(...)`.
  ℹ In group 220: `global = "global"`, `Site = "2"`, `PlotID = "D"`, `Trait =
    "Plant_Height_cm"`, `Taxon = "dryas octopetala"`, `Cover = 20`, `n_sample =
    3`.
  Caused by error in `file()`:
  ! cannot open the connection
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-trait_fit_distributions.R:22:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─c("parametric_distributions", "tbl") %in% ...
    5. ├─traitstrap::trait_fit_distributions(...)
    6. │ ├─dplyr::summarize(...)
    7. │ └─dplyr:::summarise.grouped_df(...)
    8. │   └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
    9. │     ├─base::withCallingHandlers(...)
   10. │     └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   11. │       └─base::lapply(.x, .f, ...)
   12. │         └─dplyr (local) FUN(X[[i]], ...)
   13. │           └─mask$eval_all_summarise(quo)
   14. │             └─dplyr (local) eval()
   15. ├─traitstrap:::quiet(...)
   16. │ └─base::sink(tempfile())
   17. │   └─base::file(file, if (append) "a" else "w")
   18. └─base::.handleSimpleError(...)
   19.   └─dplyr (local) h(simpleError(msg, call))
   20.     └─dplyr (local) handler(cnd)
   21.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-trait_parametric_bootstrapping.R:18:3'): output is properly formatted ──
  Error in `summarize(mutate(group_by(filled_traits, .data[[c(taxon_col)]], .data[[c(abundance_col)]], .data$n_sample, .add = TRUE), distribution_type = distribution_type[.data[[trait_col]]]), quiet(suppressWarnings(get_dist_parms(data = .data[[value_col]], distribution_type = .data$distribution_type[1]))), .groups = "keep")`: ℹ In argument: `quiet(...)`.
  ℹ In group 22: `global = "global"`, `Site = "1"`, `PlotID = "A"`, `Trait =
    "Wet_Mass_g"`, `Taxon = "luzula confusa"`, `Cover = 0.5`, `n_sample = 11`.
  Caused by error in `file()`:
  ! cannot open the connection
  Backtrace:
       ▆
    1. ├─traitstrap::trait_fit_distributions(...) at test-trait_parametric_bootstrapping.R:18:3
    2. │ ├─dplyr::summarize(...)
    3. │ └─dplyr:::summarise.grouped_df(...)
    4. │   └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
    5. │     ├─base::withCallingHandlers(...)
    6. │     └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
    7. │       └─base::lapply(.x, .f, ...)
    8. │         └─dplyr (local) FUN(X[[i]], ...)
    9. │           └─mask$eval_all_summarise(quo)
   10. │             └─dplyr (local) eval()
   11. ├─traitstrap:::quiet(...)
   12. │ └─base::sink(tempfile())
   13. │   └─base::file(file, if (append) "a" else "w")
   14. └─base::.handleSimpleError(...)
   15.   └─dplyr (local) h(simpleError(msg, call))
   16.     └─dplyr (local) handler(cnd)
   17.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 2 | WARN 2 | SKIP 0 | PASS 43 ]
  Error:
  ! Test failures.
  Execution halted