Running 'testthat.R' [6s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(atrrr)
  > 
  > test_check("atrrr")
  [ FAIL 6 | WARN 0 | SKIP 2 | PASS 146 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • !dir.exists(tools::R_user_dir("atrrr", "cache")) is TRUE (2):
    'test-convert.R:6:3', 'test-convert.R:16:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-feed.R:33:3'): get feed ────────────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_type(get_feed(link, parse = FALSE), "list") at test-feed.R:33:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_feed(link, parse = FALSE)
    5. │ └─atrrr::convert_http_to_at(feed_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  ── Error ('test-feed.R:49:3'): get likes ───────────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_type(get_likes(link, parse = FALSE), "list") at test-feed.R:49:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_likes(link, parse = FALSE)
    5. │ └─atrrr::convert_http_to_at(post_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  ── Error ('test-feed.R:58:3'): get reposts ─────────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_type(get_reposts(link, parse = FALSE), "list") at test-feed.R:58:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_reposts(link, parse = FALSE)
    5. │ └─atrrr::convert_http_to_at(post_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  ── Error ('test-feed.R:67:3'): get feed likes ──────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_type(get_feed_likes(link, parse = FALSE), "list") at test-feed.R:67:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_feed_likes(link, parse = FALSE)
    5. │ └─atrrr::convert_http_to_at(feed_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  ── Error ('test-feed.R:76:3'): get thread ──────────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_thread(link), "tbl_df") at test-feed.R:76:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_thread(link)
    5. │ └─atrrr::convert_http_to_at(post_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  ── Error ('test-feed.R:86:3'): get replies ─────────────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map_chr(link, function(l) {
      if (is_at(l)) 
          return(l)
      http_info <- parse_http_url(l)
      if (is.na(http_info$repo) | is.na(http_info$rkey)) 
          return(NA_character_)
      if (!is_did(http_info$repo)) {
          http_info$repo <- resolve_handle(http_info$repo, .token = .token)
      }
      glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
  })`: i In index: 1.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_replies(link), "tbl_df") at test-feed.R:86:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─atrrr::get_replies(link)
    5. │ └─atrrr::convert_http_to_at(post_url, .token = .token)
    6. │   └─purrr::map_chr(...)
    7. │     └─purrr:::map_("character", .x, .f, ..., .progress = .progress)
    8. │       ├─purrr:::with_indexed_errors(...)
    9. │       │ └─base::withCallingHandlers(...)
   10. │       ├─purrr:::call_with_cleanup(...)
   11. │       └─atrrr (local) .f(.x[[i]], ...)
   12. │         └─glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
   13. │           └─glue::glue_data(...)
   14. │             └─base::stopifnot(is.environment(.envir))
   15. │               └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   16. └─purrr (local) `<fn>`(`<smplErrr>`)
   17.   └─cli::cli_abort(...)
   18.     └─rlang::abort(...)
  
  [ FAIL 6 | WARN 0 | SKIP 2 | PASS 146 ]
  Error: Test failures
  Execution halted