Running ‘test-all.R’ [3s/204s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > library("rinat")
  > test_check("rinat")
  ── 1. Error: Check all search parameters (@test-all.R#10)  ─────────────────────
  argument is of length zero
  1: expect_equal(dim(get_inat_obs(taxon_id = 26790, quality = "research", maxresults = 10))[1], 
         10) at testthat/test-all.R:10
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_inat_obs(taxon_id = 26790, quality = "research", maxresults = 10)
  
  ── 2. Error: Check that getting observation by ID works (@test-all.R#23)  ──────
  lexical error: invalid char in json text.
                                         <?xml version="1.0" encoding="u
                       (right here) ------^
  1: expect_gt(length(get_inat_obs_id(res_set$id[1])), 0) at testthat/test-all.R:23
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_inat_obs_id(res_set$id[1])
  5: fromJSON(content(GET(base_url, path = q_path), as = "text"))
  6: fromJSON_string(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  7: parseJSON(txt, bigint_as_char)
  8: parse_string(txt, bigint_as_char)
  
  ── 3. Error: Check that project info is retrieved (@test-all.R#28)  ────────────
  lexical error: invalid char in json text.
                                         <?xml version="1.0" encoding="u
                       (right here) ------^
  1: expect_match(get_inat_obs_project("crows-in-vermont", type = "info", raw = FALSE)$slug, 
         "crows-in-vermont") at testthat/test-all.R:28
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_inat_obs_project("crows-in-vermont", type = "info", raw = FALSE)
  5: fromJSON(content(GET(url), as = "text"))
  6: fromJSON_string(txt = txt, simplifyVector = simplifyVector, simplifyDataFrame = simplifyDataFrame, 
         simplifyMatrix = simplifyMatrix, flatten = flatten, ...)
  7: parseJSON(txt, bigint_as_char)
  8: parse_string(txt, bigint_as_char)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 7 SKIPPED: 0 FAILED: 3
  1. Error: Check all search parameters (@test-all.R#10) 
  2. Error: Check that getting observation by ID works (@test-all.R#23) 
  3. Error: Check that project info is retrieved (@test-all.R#28) 
  
  Error: testthat unit tests failed
  Execution halted