Running ‘test-all.R’ [4s/7s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > library("taxize")
  > test_check("taxize")
  ── 1. Error: works with get_*() input (@test-tax_rank.R#25)  ───────────────────
  lexical error: invalid char in json text.
                                         <!DOCTYPE html> <html> 	<head> 
                       (right here) ------^
  1: suppressMessages(tax_rank(get_boldid("Helianthus annuus"))) at testthat/test-tax_rank.R:25
  2: withCallingHandlers(expr, message = function(c) invokeRestart("muffleMessage"))
  3: tax_rank(get_boldid("Helianthus annuus"))
  4: get_boldid("Helianthus annuus")
  5: ldply(searchterm, fun, ask, verbose, rows)
  6: llply(.data = .data, .fun = .fun, ..., .progress = .progress, .inform = .inform, 
         .parallel = .parallel, .paropts = .paropts)
  7: structure(lapply(pieces, .fun, ...), dim = dim(pieces))
  8: lapply(pieces, .fun, ...)
  9: FUN(X[[i]], ...)
  10: bold_search(name = x, fuzzy = fuzzy, dataTypes = dataTypes, includeTree = includeTree, 
         ...)
  11: bold_tax_name(name = name, fuzzy = fuzzy, response = response, ...)
  12: data.table::setDF(data.table::rbindlist(Map(process_tax_name, tmp, name), use.names = TRUE, 
         fill = TRUE))
  13: data.table::rbindlist(Map(process_tax_name, tmp, name), use.names = TRUE, fill = TRUE)
  14: Map(process_tax_name, tmp, name)
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (x, y) 
     {
         tt <- rawToChar(x$content)
         out <- if (x$status_code > 202) 
             "stop"
         else jsonlite::fromJSON(tt, flatten = TRUE)
         if (length(out) == 0 || identical(out[[1]], list()) || out == "stop") {
             data.frame(input = y, stringsAsFactors = FALSE)
         }
         else {
             data.frame(out$top_matched_names, input = y, stringsAsFactors = FALSE)
         }
     })(dots[[1L]][[1L]], dots[[2L]][[1L]])
  17: jsonlite::fromJSON(tt, flatten = TRUE)
  18: fromJSON_string(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  19: parseJSON(txt, bigint_as_char)
  20: parse_string(txt, bigint_as_char)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 25 SKIPPED: 171 FAILED: 1
  1. Error: works with get_*() input (@test-tax_rank.R#25) 
  
  Error: testthat unit tests failed
  Execution halted