Running ‘testthat.R’ [190s/341s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(galah)
  > 
  > galah_config(cache_directory = tempdir(), email = "ala4r@ala.org.au",
  +            caching = FALSE, atlas = "Australia", verbose = FALSE,
  +            run_checks = TRUE)
  > test_check("galah")
  [ FAIL 8 | WARN 1 | SKIP 85 | PASS 397 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (85)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-deprecated_functions.R:5'): select_taxa is deprecated ──────────
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(select_taxa("Microseris lanceolata")) at test-deprecated_functions.R:5:2
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─galah::select_taxa("Microseris lanceolata")
   7.   ├─base::as.data.frame(galah_identify(query, search = TRUE))
   8.   └─galah::galah_identify(query, search = TRUE)
   9.     └─galah::search_taxa(input_query)
  ── Error ('test-deprecated_functions.R:9'): select_taxa works ──────────────────
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
      ▆
   1. └─galah::select_taxa("Microseris lanceolata") at test-deprecated_functions.R:9:2
   2.   ├─base::as.data.frame(galah_identify(query, search = TRUE))
   3.   └─galah::galah_identify(query, search = TRUE)
   4.     └─galah::search_taxa(input_query)
  ── Error ('test-galah_call.R:11'): galah_call works with all `galah_` functions ──
  Error in `eval(code, test_env)`: Can't provide tree more than one taxonomic rank to end with.
  ℹ galah_down_to` only accepts a single rank at a time.
  ✖ `galah_down_to` has length of 2.
  Backtrace:
      ▆
   1. └─galah::galah_down_to(...) at test-galah_call.R:11:2
   2.   └─rlang::abort(bullets, call = caller_env())
  ── Error ('test-galah_call.R:23'): galah_call works irrespective of `galah_` function order ──
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
      ▆
   1. └─galah::galah_identify(...) at test-galah_call.R:23:2
   2.   └─galah::search_taxa(input_query)
  ── Error ('test-galah_call.R:35'): repeated calls to `galah_identify` are added correctly ──
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
      ▆
   1. ├─galah::galah_identify(...) at test-galah_call.R:35:2
   2. │ └─galah:::parse_basic_quosures(dots)
   3. │   └─base::lapply(dots[is_either], eval_tidy)
   4. │     └─rlang (local) FUN(X[[i]], ...)
   5. └─galah::galah_identify(galah_call(), "Litoria")
   6.   └─galah::search_taxa(input_query)
  ── Error ('test-galah_filter.R:166'): galah_filter handles taxonomic queries ───
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
       ▆
    1. ├─galah::galah_filter(taxonConceptID == search_taxa("Animalia")$taxon_concept_id) at test-galah_filter.R:166:2
    2. │ └─galah:::parse_inputs(dots)
    3. │   ├─galah:::dequote(...)
    4. │   │ └─base::grepl("(^\").+(\"$)", x)
    5. │   │   └─base::is.factor(x)
    6. │   ├─base::unlist(lapply(parse_objects_or_functions(value_quo), as_label))
    7. │   ├─base::lapply(parse_objects_or_functions(value_quo), as_label)
    8. │   └─galah:::parse_objects_or_functions(value_quo)
    9. │     └─base::lapply(...)
   10. │       └─galah (local) FUN(X[[i]], ...)
   11. │         ├─galah:::serialise_quosure(eval_tidy(a))
   12. │         └─rlang::eval_tidy(a)
   13. └─galah::search_taxa("Animalia")
  ── Error ('test-galah_filter.R:173'): galah_filter handles taxonomic exclusions ──
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
       ▆
    1. ├─galah::galah_filter(...) at test-galah_filter.R:173:2
    2. │ └─galah:::parse_inputs(dots)
    3. │   ├─galah:::dequote(...)
    4. │   │ └─base::grepl("(^\").+(\"$)", x)
    5. │   │   └─base::is.factor(x)
    6. │   ├─base::unlist(lapply(parse_objects_or_functions(value_quo), as_label))
    7. │   ├─base::lapply(parse_objects_or_functions(value_quo), as_label)
    8. │   └─galah:::parse_objects_or_functions(value_quo)
    9. │     └─base::lapply(...)
   10. │       └─galah (local) FUN(X[[i]], ...)
   11. │         ├─galah:::serialise_quosure(eval_tidy(a))
   12. │         └─rlang::eval_tidy(a)
   13. └─galah::search_taxa("Animalia")
  ── Error ('test-search_taxa.R:82'): search_taxa handles name issues ────────────
  Error in `attr(matches, "call") <- "ala_id"`: attempt to set an attribute on NULL
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(search_taxa("Microseris")) at test-search_taxa.R:82:2
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─galah::search_taxa("Microseris")
  
  [ FAIL 8 | WARN 1 | SKIP 85 | PASS 397 ]
  Error: Test failures
  Execution halted