Package check result: OK

Changes to worse in reverse depends:

Package: adoptr
Check: examples
New result: ERROR
  Running examples in ‘adoptr-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: composite
  > ### Title: Score Composition
  > ### Aliases: composite evaluate,CompositeScore,TwoStageDesign-method
  > 
  > ### ** Examples
  > 
  > ess   <- ExpectedSampleSize(Normal(), PointMassPrior(.4, 1))
  > power <- Power(Normal(), PointMassPrior(.4, 1))
  > 
  > # linear combination:
  > composite({ess - 50*power})
  Error in glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  : 
    is.environment(.envir) is not TRUE
  Calls: <Anonymous> ... as_character -> <Anonymous> -> glue_data -> stopifnot
  Execution halted

Package: adoptr
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘adoptr.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/adoptr.Rcheck/vign_test/adoptr/vignettes/adoptr_files/figure-html/plot-optimal-design-1.png
  672x480 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 11542 bytes
  Input file size = 12412 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 9106
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 9106
  
  Output IDAT size = 9106 bytes (2436 bytes decrease)
  Output file size = 9184 bytes (3228 bytes = 26.01% decrease)
  
  --- finished re-building ‘adoptr.Rmd’
  
  --- re-building ‘adoptr_jss.Rmd’ using rmarkdown
  --- finished re-building ‘adoptr_jss.Rmd’
  
  --- re-building ‘composite-scores.Rmd’ using rmarkdown
  --- finished re-building ‘composite-scores.Rmd’
  
  --- re-building ‘conditional-scores.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/adoptr.Rcheck/vign_test/adoptr/vignettes/conditional-scores_files/figure-html/define-design-1.png
  672x480 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 10208 bytes
  Input file size = 11078 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8806
    zc = 9  zm = 8  zs = 1  f = 0		IDAT size = 8796
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 1  f = 0		IDAT size = 8796
  
  Output IDAT size = 8796 bytes (1412 bytes decrease)
  Output file size = 8874 bytes (2204 bytes = 19.90% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/adoptr.Rcheck/vign_test/adoptr/vignettes/conditional-scores_files/figure-html/unnamed-chunk-3-1.png
  672x480 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 10821 bytes
  Input file size = 11691 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8302
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8302
  
  Output IDAT size = 8302 bytes (2519 bytes decrease)
  Output file size = 8380 bytes (3311 bytes = 28.32% decrease)
  
  
  Quitting from lines 126-127 [unnamed-chunk-7] (conditional-scores.Rmd)
  Error: processing vignette 'conditional-scores.Rmd' failed with diagnostics:
  Failed to evaluate glue component {as_character(x@score)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  --- failed re-building ‘conditional-scores.Rmd’
  
  --- re-building ‘defining-new-scores.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/adoptr.Rcheck/vign_test/adoptr/vignettes/defining-new-scores_files/figure-html/define-design-1.png
  672x480 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 10208 bytes
  Input file size = 11078 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8806
    zc = 9  zm = 8  zs = 1  f = 0		IDAT size = 8796
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 1  f = 0		IDAT size = 8796
  
  Output IDAT size = 8796 bytes (1412 bytes decrease)
  Output file size = 8874 bytes (2204 bytes = 19.90% decrease)
  
  --- finished re-building ‘defining-new-scores.Rmd’
  
  --- re-building ‘other-endpoints.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/adoptr.Rcheck/vign_test/adoptr/vignettes/other-endpoints_files/figure-html/unnamed-chunk-5-1.png
  672x480 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 11509 bytes
  Input file size = 12379 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 9631
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 9631
  
  Output IDAT size = 9631 bytes (1878 bytes decrease)
  Output file size = 9709 bytes (2670 bytes = 21.57% decrease)
  
  --- finished re-building ‘other-endpoints.Rmd’
  
  --- re-building ‘working-with-priors.Rmd’ using rmarkdown
  
  Quitting from lines 79-80 [unnamed-chunk-3] (working-with-priors.Rmd)
  Error: processing vignette 'working-with-priors.Rmd' failed with diagnostics:
  Failed to evaluate glue component {as_character(x@score)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  --- failed re-building ‘working-with-priors.Rmd’
  
  SUMMARY: processing the following files failed:
    ‘conditional-scores.Rmd’ ‘working-with-priors.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: adoptr
Check: tests
New result: ERROR
    Running ‘testthat.R’ [44s/44s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(adoptr)
    
    Attaching package: 'adoptr'
    
    The following object is masked from 'package:testthat':
    
        expectation
    
    > 
    > test_check("adoptr")
    [ FAIL 4 | WARN 0 | SKIP 0 | PASS 386 ]
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test_composite.R:118:5'): show works ────────────────────────────────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─testthat::expect_equal(...) at test_composite.R:118:5
      2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
      3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
      4. ├─utils::capture.output(...)
      5. │ └─base::withVisible(...elt(i))
      6. ├─methods::show(...)
      7. └─adoptr (local) show(...)
      8.   ├─base::cat(as_character(object), "\n")
      9.   ├─adoptr:::as_character(object)
     10.   └─adoptr:::as_character(object)
     11.     └─glue::glue(...)
     12.       └─glue::glue_data(...)
     13.         └─base::stopifnot(is.environment(.envir))
    ── Error ('test_minimize.R:59:5'): nloptr maxiter warning correctly passed ─────
    Error: Failed to evaluate glue component {as_character(x@score)}
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─testthat::expect_warning(...) at test_minimize.R:59:5
      2. │ └─testthat:::quasi_capture(...)
      3. │   ├─testthat (local) .capture(...)
      4. │   │ └─base::withCallingHandlers(...)
      5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      6. ├─adoptr::minimize(...)
      7. │ ├─base::warning(...)
      8. │ ├─base::sprintf(...)
      9. │ ├─utils::capture.output(show(constr))
     10. │ │ └─base::withVisible(...elt(i))
     11. │ ├─methods::show(constr)
     12. │ └─adoptr (local) show(constr)
     13. │   ├─base::cat(print(object), "\n")
     14. │   ├─base::print(object)
     15. │   └─adoptr:::print(object)
     16. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
     17. │     │ └─glue::glue_data(...)
     18. │     ├─adoptr:::as_character(x@score)
     19. │     └─adoptr:::as_character(x@score)
     20. │       └─glue::glue(...)
     21. │         └─glue::glue_data(...)
     22. │           └─base::stopifnot(is.environment(.envir))
     23. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     24. ├─glue (local) `<fn>`("as_character(x@score)")
     25. │ ├─.transformer(expr, env) %||% .null
     26. │ └─glue (local) .transformer(expr, env)
     27. │   ├─glue:::with_glue_error(...)
     28. │   │ └─base::withCallingHandlers(...)
     29. │   └─base::eval(expr, envir)
     30. │     └─base::eval(expr, envir)
     31. └─glue (local) `<fn>`(`<smplErrr>`)
     32.   └─rlang::abort(message, parent = cnd, call = NULL)
    ── Error ('test_minimize.R:338:3'): constraint checks are working ──────────────
    Error: Failed to evaluate glue component {as_character(x@score)}
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─testthat::expect_warning(...) at test_minimize.R:338:3
      2. │ └─testthat:::quasi_capture(...)
      3. │   ├─testthat (local) .capture(...)
      4. │   │ └─base::withCallingHandlers(...)
      5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      6. ├─adoptr::minimize(...)
      7. │ ├─base::warning(...)
      8. │ ├─base::sprintf(...)
      9. │ ├─utils::capture.output(show(constr))
     10. │ │ └─base::withVisible(...elt(i))
     11. │ ├─methods::show(constr)
     12. │ └─adoptr (local) show(constr)
     13. │   ├─base::cat(print(object), "\n")
     14. │   ├─base::print(object)
     15. │   └─adoptr:::print(object)
     16. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
     17. │     │ └─glue::glue_data(...)
     18. │     ├─adoptr:::as_character(x@score)
     19. │     └─adoptr:::as_character(x@score)
     20. │       └─glue::glue(...)
     21. │         └─glue::glue_data(...)
     22. │           └─base::stopifnot(is.environment(.envir))
     23. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     24. ├─glue (local) `<fn>`("as_character(x@score)")
     25. │ ├─.transformer(expr, env) %||% .null
     26. │ └─glue (local) .transformer(expr, env)
     27. │   ├─glue:::with_glue_error(...)
     28. │   │ └─base::withCallingHandlers(...)
     29. │   └─base::eval(expr, envir)
     30. │     └─base::eval(expr, envir)
     31. └─glue (local) `<fn>`(`<smplErrr>`)
     32.   └─rlang::abort(message, parent = cnd, call = NULL)
    ── Error ('test_tunable.R:77:5'): two stage design can be optimized with fixed first stage ──
    Error: Failed to evaluate glue component {as_character(x@score)}
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─base::suppressWarnings(...) at test_tunable.R:77:5
      2. │ └─base::withCallingHandlers(...)
      3. ├─adoptr::minimize(...)
      4. │ ├─base::warning(...)
      5. │ ├─base::sprintf(...)
      6. │ ├─utils::capture.output(show(constr))
      7. │ │ └─base::withVisible(...elt(i))
      8. │ ├─methods::show(constr)
      9. │ └─adoptr (local) show(constr)
     10. │   ├─base::cat(print(object), "\n")
     11. │   ├─base::print(object)
     12. │   └─adoptr:::print(object)
     13. │     ├─glue::glue("{as_character(x@score)} <= {x@rhs}")
     14. │     │ └─glue::glue_data(...)
     15. │     ├─adoptr:::as_character(x@score)
     16. │     └─adoptr:::as_character(x@score)
     17. │       └─glue::glue(...)
     18. │         └─glue::glue_data(...)
     19. │           └─base::stopifnot(is.environment(.envir))
     20. │             └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     21. ├─glue (local) `<fn>`("as_character(x@score)")
     22. │ ├─.transformer(expr, env) %||% .null
     23. │ └─glue (local) .transformer(expr, env)
     24. │   ├─glue:::with_glue_error(...)
     25. │   │ └─base::withCallingHandlers(...)
     26. │   └─base::eval(expr, envir)
     27. │     └─base::eval(expr, envir)
     28. └─glue (local) `<fn>`(`<smplErrr>`)
     29.   └─rlang::abort(message, parent = cnd, call = NULL)
    
    [ FAIL 4 | WARN 0 | SKIP 0 | PASS 386 ]
    Error: Test failures
    Execution halted

Package: atrrr
Check: tests
New result: ERROR
    Running ‘testthat.R’ [4s/5s]
  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

Package: attrib
Check: tests
New result: ERROR
    Running ‘testthat.R’ [85s/84s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(attrib)
    attrib 2021.1.2 https://folkehelseinstituttet.github.io/attrib
    > 
    > test_check("attrib")
    
      |                                                                            
      |                                                                      |   0%
      |                                                                            
      |===================================                                   |  50%
      |                                                                            
      |======================================================================| 100%[ FAIL 1 | WARN 0 | SKIP 0 | PASS 7 ]
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Failure ('test_fake.R:159:3'): simmulations ─────────────────────────────────
    round(as.numeric(median(dif_obs), 0)) not equal to c(0).
    1/1 mismatches
    [1] -1 - 0 == -1
    
    [ FAIL 1 | WARN 0 | SKIP 0 | PASS 7 ]
    Error: Test failures
    Execution halted

Package: codebook
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘codebook.Rmd’ using rmarkdown
  Failed with error:  'there is no package called 'GGally''
  Failed with error:  'there is no package called 'GGally''
  
  Quitting from lines 85-86 [cb] (codebook.Rmd)
  Error: processing vignette 'codebook.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘codebook.Rmd’
  
  --- re-building ‘codebook_qualtrics.Rmd’ using rmarkdown
  
  Quitting from lines 103-105 [cb] (codebook_qualtrics.Rmd)
  Error: processing vignette 'codebook_qualtrics.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘codebook_qualtrics.Rmd’
  
  --- re-building ‘codebook_sav.Rmd’ using rmarkdown
  
  Quitting from lines 120-122 [cb] (codebook_sav.Rmd)
  Error: processing vignette 'codebook_sav.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘codebook_sav.Rmd’
  
  --- re-building ‘codebook_tutorial.Rmd’ using rmarkdown
  Failed with error:  'there is no package called 'GGally''
  Failed with error:  'there is no package called 'GGally''
  
  Quitting from lines 278-280 [cb] (codebook_tutorial.Rmd)
  Error: processing vignette 'codebook_tutorial.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘codebook_tutorial.Rmd’
  
  SUMMARY: processing the following files failed:
    ‘codebook.Rmd’ ‘codebook_qualtrics.Rmd’ ‘codebook_sav.Rmd’
    ‘codebook_tutorial.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: gtreg
Check: examples
New result: ERROR
  Running examples in ‘gtreg-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: tbl_reg_summary
  > ### Title: Data Summary Table
  > ### Aliases: tbl_reg_summary
  > 
  > ### ** Examples
  > 
  > tbl_reg_summary_ex1 <-
  +   df_patient_characteristics %>%
  +   tbl_reg_summary(by = trt, include = c(marker, status))
  Error in `dplyr::mutate()`:
  ℹ In argument: `stat = list(...)`.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─df_patient_characteristics %>% ...
    2. ├─gtreg::tbl_reg_summary(., by = trt, include = c(marker, status))
    3. │ ├─... %>% ...
    4. │ ├─gtsummary::with_gtsummary_theme(...)
    5. │ │ └─rlang::eval_tidy(...)
    6. │ └─gtsummary::tbl_summary(...)
    7. │   ├─base::structure(...)
    8. │   ├─base::append(...)
    9. │   └─gtsummary::brdg_summary(...)
   10. │     ├─dplyr::left_join(...)
   11. │     ├─dplyr:::left_join.data.frame(...)
   12. │     │ └─dplyr::auto_copy(x, y, copy = copy)
   13. │     │   ├─dplyr::same_src(x, y)
   14. │     │   └─dplyr:::same_src.data.frame(x, y)
   15. │     │     └─base::is.data.frame(y)
   16. │     ├─dplyr::bind_rows(...)
   17. │     │ └─rlang::list2(...)
   18. │     └─gtsummary::pier_summary_continuous2(...)
   19. │       ├─... %>% ...
   20. │       ├─dplyr::bind_rows(...)
   21. │       │ └─rlang::list2(...)
   22. │       ├─dplyr::group_map(...)
   23. │       └─dplyr:::group_map.data.frame(...)
   24. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
   25. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   26. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   27. │               ├─dplyr::mutate(...)
   28. │               └─dplyr:::mutate.data.frame(...)
   29. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   30. │                   ├─base::withCallingHandlers(...)
   31. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   32. │                     └─mask$eval_all_mutate(quo)
   33. │                       └─dplyr (local) eval()
   34. ├─base::structure(...)
   35. ├─dplyr::left_join(...)
   36. ├─dplyr:::left_join.data.frame(...)
   37. │ └─dplyr::auto_copy(x, y, copy = copy)
   38. │   ├─dplyr::same_src(x, y)
   39. │   └─dplyr:::same_src.data.frame(x, y)
   40. │     └─base::is.data.frame(y)
   41. ├─gtsummary:::map(...)
   42. │ └─base::lapply(.x, .f, ...)
   43. │   └─gtsummary (local) FUN(X[[i]], ...)
   44. │     └─glue::glue(...)
   45. │       └─glue::glue_data(...)
   46. │         └─base::stopifnot(is.environment(.envir))
   47. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   48. └─dplyr (local) `<fn>`(`<smplErrr>`)
   49.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  Execution halted

Package: gtreg
Check: tests
New result: ERROR
    Running ‘spelling.R’ [0s/0s]
    Running ‘testthat.R’ [22s/22s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(gtreg)
    
    Attaching package: 'gtreg'
    
    The following object is masked from 'package:testthat':
    
        matches
    
    > 
    > test_check("gtreg")
    [ FAIL 11 | WARN 34 | SKIP 4 | PASS 65 ]
    
    ══ Skipped tests (4) ═══════════════════════════════════════════════════════════
    • On CRAN (4): 'test-add_overall.R:1:1', 'test-tbl_ae.R:1:1',
      'test-tbl_ae_count.R:1:1', 'test-tbl_ae_focus.R:1:1'
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-inline_text.R:2:3'): inline text works ─────────────────────────
    <dplyr:::mutate_error/rlang_error/error/condition>
    Error in `dplyr::mutate(.data = df_groups_and_variable, df_stats = list(dplyr::bind_rows(dplyr::group_map(dplyr::group_by(dplyr::filter(df_variable_stats, 
        !.data$variable_level %in% list(NULL)), .data$variable_level), 
        function(df_variable_level_stats, df_variable_levels) {
            dplyr::mutate(.data = df_variable_levels, stat = map(str_statistic_pre_glue, 
                function(str_to_glue) {
                    stat <- as.character(glue::glue(str_to_glue, 
                      .envir = c(cards::get_ard_statistics(df_variable_level_stats, 
                        .column = "stat_fmt"), lst_variable_stats)))
                }), label = map_chr(.data$variable_level, as.character))
        }))))`: i In argument: `df_stats = list(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `stat = map(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    ── Error ('test-modify_header.R:2:3'): modify_header() works ───────────────────
    <dplyr:::mutate_error/rlang_error/error/condition>
    Error in `dplyr::mutate(., tbl = switch(.parent_fun, tbl_strata = map(.data$data, 
        .tbl_fun, ...), tbl_strata2 = map2(.data$data, .data$header, 
        .tbl_fun, ...)))`: i In argument: `tbl = switch(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `df_stats = list(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `stat = map(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─... %>% ... at test-modify_header.R:2:3
      2. ├─gtreg::tbl_ae(...)
      3. │ └─gtreg:::.construct_summary_table(...)
      4. │   └─gtsummary::tbl_strata(...)
      5. │     └─gtsummary:::tbl_strata_internal(...)
      6. │       └─... %>% ...
      7. ├─dplyr::mutate(...)
      8. ├─dplyr:::mutate.data.frame(...)
      9. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     10. │   ├─base::withCallingHandlers(...)
     11. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     12. │     └─mask$eval_all_mutate(quo)
     13. │       └─dplyr (local) eval()
     14. ├─gtsummary:::map(.data$data, .tbl_fun, ...)
     15. │ └─base::lapply(.x, .f, ...)
     16. │   └─gtreg (local) FUN(X[[i]], ...)
     17. │     └─gtreg (local) .final_summary_fun(data = .x)
     18. │       └─gtreg:::.build_single_summary_table(...)
     19. │         ├─... %>% gtsummary::tbl_butcher()
     20. │         └─gtsummary::tbl_summary(...)
     21. │           ├─base::structure(...)
     22. │           ├─base::append(...)
     23. │           └─gtsummary::brdg_summary(...)
     24. │             ├─dplyr::left_join(...)
     25. │             ├─dplyr:::left_join.data.frame(...)
     26. │             │ └─dplyr::auto_copy(x, y, copy = copy)
     27. │             │   ├─dplyr::same_src(x, y)
     28. │             │   └─dplyr:::same_src.data.frame(x, y)
     29. │             │     └─base::is.data.frame(y)
     30. │             ├─dplyr::bind_rows(...)
     31. │             │ └─rlang::list2(...)
     32. │             └─gtsummary::pier_summary_categorical(...)
     33. │               ├─... %>% ...
     34. │               ├─dplyr::bind_rows(...)
     35. │               │ └─rlang::list2(...)
     36. │               ├─dplyr::group_map(...)
     37. │               └─dplyr:::group_map.data.frame(...)
     38. │                 └─dplyr:::map2(chunks, group_keys, .f, ...)
     39. │                   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     40. │                     └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     41. │                       ├─dplyr::mutate(...)
     42. │                       └─dplyr:::mutate.data.frame(...)
     43. │                         └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     44. │                           ├─base::withCallingHandlers(...)
     45. │                           └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     46. │                             └─mask$eval_all_mutate(quo)
     47. │                               └─dplyr (local) eval()
     48. ├─gtsummary::tbl_butcher(.)
     49. │ └─gtsummary:::check_class(x, "gtsummary")
     50. ├─gtreg:::.replace_zero_with_NA(., zero_symbol = zero_symbol)
     51. │ └─dplyr::filter(...)
     52. ├─gtreg:::.hide_unobserved_columns(., columns = columns_to_hide)
     53. │ ├─base::unique(...)
     54. │ ├─dplyr::pull(...)
     55. │ └─dplyr::filter(...)
     56. ├─gtreg:::.relocate_missing_column(., missing_location = missing_location)
     57. ├─gtreg:::.add_modify_stat_data(.)
     58. │ └─tbl$table_styling$header %>% ...
     59. ├─dplyr::mutate(...)
     60. ├─gtsummary::modify_header(...)
     61. ├─gtsummary::remove_row_type(., type = "header")
     62. ├─dplyr::left_join(...)
     63. ├─dplyr:::left_join.data.frame(...)
     64. │ └─dplyr::auto_copy(x, y, copy = copy)
     65. │   ├─dplyr::same_src(x, y)
     66. │   └─dplyr:::same_src.data.frame(x, y)
     67. │     └─base::is.data.frame(y)
     68. ├─dplyr::bind_rows(...)
     69. │ └─rlang::list2(...)
     70. ├─dplyr::group_map(...)
     71. ├─dplyr:::group_map.data.frame(...)
     72. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
     73. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     74. │     └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     75. │       ├─dplyr::mutate(...)
     76. │       └─dplyr:::mutate.data.frame(...)
     77. │         └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     78. │           ├─base::withCallingHandlers(...)
     79. │           └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     80. │             └─mask$eval_all_mutate(quo)
     81. │               └─dplyr (local) eval()
     82. ├─gtsummary:::map(...)
     83. │ └─base::lapply(.x, .f, ...)
     84. │   └─gtsummary (local) FUN(X[[i]], ...)
     85. │     └─glue::glue(...)
     86. │       └─glue::glue_data(...)
     87. │         └─base::stopifnot(is.environment(.envir))
     88. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     89. ├─dplyr (local) `<fn>`(`<smplErrr>`)
     90. │ └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
     91. │   └─rlang:::signal_abort(cnd, .file)
     92. │     └─base::signalCondition(cnd)
     93. ├─dplyr (local) `<fn>`(`<dply:::_>`)
     94. │ └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
     95. │   └─rlang:::signal_abort(cnd, .file)
     96. │     └─base::signalCondition(cnd)
     97. └─dplyr (local) `<fn>`(`<dply:::_>`)
     98.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
    ── Failure ('test-style_xxx.R:22:3'): style_xxx works with tbl_ae family ───────
    `... <- NULL` threw an unexpected error.
    Message: i In argument: `df_stats = list(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `stat = map(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   dplyr:::mutate_error/rlang_error/error/condition
    ── Failure ('test-style_xxx.R:38:3'): style_xxx works with tbl_ae family ───────
    `... <- NULL` threw an unexpected error.
    Message: i In argument: `df_stats = list(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `stat = map(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   dplyr:::mutate_error/rlang_error/error/condition
    ── Failure ('test-style_xxx.R:52:3'): style_xxx works with tbl_ae family ───────
    `... <- NULL` threw an unexpected error.
    Message: i In index: 1.
    i With name: any_complication.
    Caused by error in `dplyr::mutate()`:
    i In argument: `df_stats = list(...)`.
    Caused by error in `dplyr::mutate()`:
    i In argument: `stat = map(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   purrr_error_indexed/rlang_error/error/condition
    Backtrace:
          ▆
       1. ├─testthat::expect_error(...) at test-style_xxx.R:52:3
       2. │ └─testthat:::expect_condition_matching(...)
       3. │   └─testthat:::quasi_capture(...)
       4. │     ├─testthat (local) .capture(...)
       5. │     │ └─base::withCallingHandlers(...)
       6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
       7. ├─... %>% modify_spanning_header(all_ae_cols() ~ "**N = xx**")
       8. ├─gtsummary::modify_spanning_header(., all_ae_cols() ~ "**N = xx**")
       9. ├─gtreg::tbl_ae_focus(...)
      10. │ └─... %>% gtsummary::tbl_merge(tab_spanner = FALSE)
      11. ├─gtsummary::tbl_merge(., tab_spanner = FALSE)
      12. ├─purrr::imap(...)
      13. │ └─purrr::map2(.x, vec_index(.x), .f, ...)
      14. │   └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
      15. │     ├─purrr:::with_indexed_errors(...)
      16. │     │ └─base::withCallingHandlers(...)
      17. │     ├─purrr:::call_with_cleanup(...)
      18. │     └─gtreg (local) .f(.x[[i]], .y[[i]], ...)
      19. │       └─gtreg:::.construct_summary_table(...)
      20. │         └─gtreg (local) .final_summary_fun(data)
      21. │           └─gtreg:::.build_single_summary_table(...)
      22. │             ├─... %>% gtsummary::tbl_butcher()
      23. │             └─gtsummary::tbl_summary(...)
      24. │               ├─base::structure(...)
      25. │               ├─base::append(...)
      26. │               └─gtsummary::brdg_summary(...)
      27. │                 ├─dplyr::left_join(...)
      28. │                 ├─dplyr:::left_join.data.frame(...)
      29. │                 │ └─dplyr::auto_copy(x, y, copy = copy)
      30. │                 │   ├─dplyr::same_src(x, y)
      31. │                 │   └─dplyr:::same_src.data.frame(x, y)
      32. │                 │     └─base::is.data.frame(y)
      33. │                 ├─dplyr::bind_rows(...)
      34. │                 │ └─rlang::list2(...)
      35. │                 └─gtsummary::pier_summary_categorical(...)
      36. │                   ├─... %>% ...
      37. │                   ├─dplyr::bind_rows(...)
      38. │                   │ └─rlang::list2(...)
      39. │                   ├─dplyr::group_map(...)
      40. │                   └─dplyr:::group_map.data.frame(...)
      41. │                     └─dplyr:::map2(chunks, group_keys, .f, ...)
      42. │                       └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
      43. │                         └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
      44. │                           ├─dplyr::mutate(...)
      45. │                           └─dplyr:::mutate.data.frame(...)
      46. │                             └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
      47. │                               ├─base::withCallingHandlers(...)
      48. │                               └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
      49. │                                 └─mask$eval_all_mutate(quo)
      50. │                                   └─dplyr (local) eval()
      51. ├─gtsummary::tbl_butcher(.)
      52. │ └─gtsummary:::check_class(x, "gtsummary")
      53. ├─gtreg:::.replace_zero_with_NA(., zero_symbol = zero_symbol)
      54. │ └─dplyr::filter(...)
      55. ├─gtreg:::.hide_unobserved_columns(., columns = columns_to_hide)
      56. │ ├─base::unique(...)
      57. │ ├─dplyr::pull(...)
      58. │ └─dplyr::filter(...)
      59. ├─gtreg:::.relocate_missing_column(., missing_location = missing_location)
      60. ├─gtreg:::.add_modify_stat_data(.)
      61. │ └─tbl$table_styling$header %>% ...
      62. ├─dplyr::mutate(...)
      63. ├─gtsummary::modify_header(...)
      64. ├─gtsummary::remove_row_type(., type = "header")
      65. ├─dplyr::left_join(...)
      66. ├─dplyr:::left_join.data.frame(...)
      67. │ └─dplyr::auto_copy(x, y, copy = copy)
      68. │   ├─dplyr::same_src(x, y)
      69. │   └─dplyr:::same_src.data.frame(x, y)
      70. │     └─base::is.data.frame(y)
      71. ├─dplyr::bind_rows(...)
      72. │ └─rlang::list2(...)
      73. ├─dplyr::group_map(...)
      74. ├─dplyr:::group_map.data.frame(...)
      75. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
      76. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
      77. │     └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
      78. │       ├─dplyr::mutate(...)
      79. │       └─dplyr:::mutate.data.frame(...)
      80. │         └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
      81. │           ├─base::withCallingHandlers(...)
      82. │           └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
      83. │             └─mask$eval_all_mutate(quo)
      84. │               └─dplyr (local) eval()
      85. ├─gtsummary:::map(...)
      86. │ └─base::lapply(.x, .f, ...)
      87. │   └─gtsummary (local) FUN(X[[i]], ...)
      88. │     └─glue::glue(...)
      89. │       └─glue::glue_data(...)
      90. │         └─base::stopifnot(is.environment(.envir))
      91. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
      92. ├─dplyr (local) `<fn>`(`<smplErrr>`)
      93. │ └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
      94. │   └─rlang:::signal_abort(cnd, .file)
      95. │     └─base::signalCondition(cnd)
      96. ├─dplyr (local) `<fn>`(`<dply:::_>`)
      97. │ └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
      98. │   └─rlang:::signal_abort(cnd, .file)
      99. │     └─base::signalCondition(cnd)
     100. └─purrr (local) `<fn>`(`<dply:::_>`)
     101.   └─cli::cli_abort(...)
     102.     └─rlang::abort(...)
    ── Error ('test-style_xxx.R:67:3'): style_xxx works with tbl_ae family ─────────
    Error: object 't1' not found
    Backtrace:
        ▆
     1. └─testthat::expect_snapshot(as.data.frame(t1)) at test-style_xxx.R:67:3
     2.   └─rlang::cnd_signal(state$error)
    ── Failure ('test-style_xxx.R:76:3'): style_xxx works with tbl_reg_summary ─────
    `... <- NULL` threw an unexpected error.
    Message: i In argument: `stat = list(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   dplyr:::mutate_error/rlang_error/error/condition
    Backtrace:
         ▆
      1. ├─testthat::expect_error(...) at test-style_xxx.R:76:3
      2. │ └─testthat:::expect_condition_matching(...)
      3. │   └─testthat:::quasi_capture(...)
      4. │     ├─testthat (local) .capture(...)
      5. │     │ └─base::withCallingHandlers(...)
      6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      7. ├─... %>% modify_header(stat_0 ~ "**N = xx**")
      8. ├─gtsummary::modify_header(., stat_0 ~ "**N = xx**")
      9. ├─gtreg::tbl_reg_summary(...)
     10. │ ├─... %>% ...
     11. │ ├─gtsummary::with_gtsummary_theme(...)
     12. │ │ └─rlang::eval_tidy(...)
     13. │ └─gtsummary::tbl_summary(...)
     14. │   ├─base::structure(...)
     15. │   ├─base::append(...)
     16. │   └─gtsummary::brdg_summary(...)
     17. │     ├─dplyr::left_join(...)
     18. │     ├─dplyr:::left_join.data.frame(...)
     19. │     │ └─dplyr::auto_copy(x, y, copy = copy)
     20. │     │   ├─dplyr::same_src(x, y)
     21. │     │   └─dplyr:::same_src.data.frame(x, y)
     22. │     │     └─base::is.data.frame(y)
     23. │     ├─dplyr::bind_rows(...)
     24. │     │ └─rlang::list2(...)
     25. │     └─gtsummary::pier_summary_continuous2(...)
     26. │       ├─... %>% ...
     27. │       ├─dplyr::bind_rows(...)
     28. │       │ └─rlang::list2(...)
     29. │       ├─dplyr::group_map(...)
     30. │       └─dplyr:::group_map.data.frame(...)
     31. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
     32. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     33. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     34. │               ├─dplyr::mutate(...)
     35. │               └─dplyr:::mutate.data.frame(...)
     36. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     37. │                   ├─base::withCallingHandlers(...)
     38. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     39. │                     └─mask$eval_all_mutate(quo)
     40. │                       └─dplyr (local) eval()
     41. ├─base::structure(...)
     42. ├─dplyr::left_join(...)
     43. ├─dplyr:::left_join.data.frame(...)
     44. │ └─dplyr::auto_copy(x, y, copy = copy)
     45. │   ├─dplyr::same_src(x, y)
     46. │   └─dplyr:::same_src.data.frame(x, y)
     47. │     └─base::is.data.frame(y)
     48. ├─gtsummary:::map(...)
     49. │ └─base::lapply(.x, .f, ...)
     50. │   └─gtsummary (local) FUN(X[[i]], ...)
     51. │     └─glue::glue(...)
     52. │       └─glue::glue_data(...)
     53. │         └─base::stopifnot(is.environment(.envir))
     54. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     55. └─dplyr (local) `<fn>`(`<smplErrr>`)
     56.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
    ── Failure ('test-style_xxx.R:90:3'): style_xxx works with tbl_reg_summary ─────
    `... <- NULL` threw an unexpected error.
    Message: i In argument: `stat = list(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   dplyr:::mutate_error/rlang_error/error/condition
    Backtrace:
         ▆
      1. ├─testthat::expect_error(...) at test-style_xxx.R:90:3
      2. │ └─testthat:::expect_condition_matching(...)
      3. │   └─testthat:::quasi_capture(...)
      4. │     ├─testthat (local) .capture(...)
      5. │     │ └─base::withCallingHandlers(...)
      6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      7. ├─... %>% modify_header(stat_0 ~ "**N = xx**")
      8. ├─gtsummary::modify_header(., stat_0 ~ "**N = xx**")
      9. ├─gtreg::tbl_reg_summary(...)
     10. │ ├─... %>% ...
     11. │ ├─gtsummary::with_gtsummary_theme(...)
     12. │ │ └─rlang::eval_tidy(...)
     13. │ └─gtsummary::tbl_summary(...)
     14. │   ├─base::structure(...)
     15. │   ├─base::append(...)
     16. │   └─gtsummary::brdg_summary(...)
     17. │     ├─dplyr::left_join(...)
     18. │     ├─dplyr:::left_join.data.frame(...)
     19. │     │ └─dplyr::auto_copy(x, y, copy = copy)
     20. │     │   ├─dplyr::same_src(x, y)
     21. │     │   └─dplyr:::same_src.data.frame(x, y)
     22. │     │     └─base::is.data.frame(y)
     23. │     ├─dplyr::bind_rows(...)
     24. │     │ └─rlang::list2(...)
     25. │     └─gtsummary::pier_summary_continuous2(...)
     26. │       ├─... %>% ...
     27. │       ├─dplyr::bind_rows(...)
     28. │       │ └─rlang::list2(...)
     29. │       ├─dplyr::group_map(...)
     30. │       └─dplyr:::group_map.data.frame(...)
     31. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
     32. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     33. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     34. │               ├─dplyr::mutate(...)
     35. │               └─dplyr:::mutate.data.frame(...)
     36. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     37. │                   ├─base::withCallingHandlers(...)
     38. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     39. │                     └─mask$eval_all_mutate(quo)
     40. │                       └─dplyr (local) eval()
     41. ├─base::structure(...)
     42. ├─dplyr::left_join(...)
     43. ├─dplyr:::left_join.data.frame(...)
     44. │ └─dplyr::auto_copy(x, y, copy = copy)
     45. │   ├─dplyr::same_src(x, y)
     46. │   └─dplyr:::same_src.data.frame(x, y)
     47. │     └─base::is.data.frame(y)
     48. ├─gtsummary:::map(...)
     49. │ └─base::lapply(.x, .f, ...)
     50. │   └─gtsummary (local) FUN(X[[i]], ...)
     51. │     └─glue::glue(...)
     52. │       └─glue::glue_data(...)
     53. │         └─base::stopifnot(is.environment(.envir))
     54. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     55. └─dplyr (local) `<fn>`(`<smplErrr>`)
     56.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
    ── Error ('test-style_xxx.R:110:3'): style_xxx works with tbl_reg_summary ──────
    Error: object 't4' not found
    Backtrace:
        ▆
     1. └─testthat::expect_snapshot(as.data.frame(t4)) at test-style_xxx.R:110:3
     2.   └─rlang::cnd_signal(state$error)
    ── Failure ('test-tbl_reg_summary.R:2:3'): tbl_reg_summary works ───────────────
    ``%>%`(...)` threw an unexpected error.
    Message: i In argument: `stat = list(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Class:   dplyr:::mutate_error/rlang_error/error/condition
    Backtrace:
         ▆
      1. ├─testthat::expect_error(...) at test-tbl_reg_summary.R:2:3
      2. │ └─testthat:::expect_condition_matching(...)
      3. │   └─testthat:::quasi_capture(...)
      4. │     ├─testthat (local) .capture(...)
      5. │     │ └─base::withCallingHandlers(...)
      6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      7. ├─df_patient_characteristics %>% ...
      8. ├─gtreg::tbl_reg_summary(., by = trt, include = c(marker, status))
      9. │ ├─... %>% ...
     10. │ ├─gtsummary::with_gtsummary_theme(...)
     11. │ │ └─rlang::eval_tidy(...)
     12. │ └─gtsummary::tbl_summary(...)
     13. │   ├─base::structure(...)
     14. │   ├─base::append(...)
     15. │   └─gtsummary::brdg_summary(...)
     16. │     ├─dplyr::left_join(...)
     17. │     ├─dplyr:::left_join.data.frame(...)
     18. │     │ └─dplyr::auto_copy(x, y, copy = copy)
     19. │     │   ├─dplyr::same_src(x, y)
     20. │     │   └─dplyr:::same_src.data.frame(x, y)
     21. │     │     └─base::is.data.frame(y)
     22. │     ├─dplyr::bind_rows(...)
     23. │     │ └─rlang::list2(...)
     24. │     └─gtsummary::pier_summary_continuous2(...)
     25. │       ├─... %>% ...
     26. │       ├─dplyr::bind_rows(...)
     27. │       │ └─rlang::list2(...)
     28. │       ├─dplyr::group_map(...)
     29. │       └─dplyr:::group_map.data.frame(...)
     30. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
     31. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     32. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     33. │               ├─dplyr::mutate(...)
     34. │               └─dplyr:::mutate.data.frame(...)
     35. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     36. │                   ├─base::withCallingHandlers(...)
     37. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     38. │                     └─mask$eval_all_mutate(quo)
     39. │                       └─dplyr (local) eval()
     40. ├─base::structure(...)
     41. ├─dplyr::left_join(...)
     42. ├─dplyr:::left_join.data.frame(...)
     43. │ └─dplyr::auto_copy(x, y, copy = copy)
     44. │   ├─dplyr::same_src(x, y)
     45. │   └─dplyr:::same_src.data.frame(x, y)
     46. │     └─base::is.data.frame(y)
     47. ├─gtsummary:::map(...)
     48. │ └─base::lapply(.x, .f, ...)
     49. │   └─gtsummary (local) FUN(X[[i]], ...)
     50. │     └─glue::glue(...)
     51. │       └─glue::glue_data(...)
     52. │         └─base::stopifnot(is.environment(.envir))
     53. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     54. └─dplyr (local) `<fn>`(`<smplErrr>`)
     55.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
    ── Error ('test-tbl_reg_summary.R:9:3'): tbl_reg_summary works ─────────────────
    <dplyr:::mutate_error/rlang_error/error/condition>
    Error in `dplyr::mutate(.data = .y, stat = list(map(statistic[[.y$variable[1]]], 
        function(str_to_glue) {
            stat <- as.character(glue::glue(str_to_glue, .envir = cards::get_ard_statistics(.x, 
                .column = "stat_fmt")))
        })), label = list(map(statistic[[.y$variable[1]]], function(str_to_glue) {
        label <- as.character(glue::glue(str_to_glue, .envir = cards::get_ard_statistics(.x, 
            .column = "stat_label")))
    })))`: i In argument: `stat = list(...)`.
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─testthat::expect_message(...) at test-tbl_reg_summary.R:9:3
      2. │ └─testthat:::expect_condition_matching(...)
      3. │   └─testthat:::quasi_capture(...)
      4. │     ├─testthat (local) .capture(...)
      5. │     │ └─base::withCallingHandlers(...)
      6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      7. ├─df_patient_characteristics %>% ...
      8. ├─gtreg::tbl_reg_summary(., by = trt, include = c(marker, status))
      9. │ ├─... %>% ...
     10. │ ├─gtsummary::with_gtsummary_theme(...)
     11. │ │ └─rlang::eval_tidy(...)
     12. │ └─gtsummary::tbl_summary(...)
     13. │   ├─base::structure(...)
     14. │   ├─base::append(...)
     15. │   └─gtsummary::brdg_summary(...)
     16. │     ├─dplyr::left_join(...)
     17. │     ├─dplyr:::left_join.data.frame(...)
     18. │     │ └─dplyr::auto_copy(x, y, copy = copy)
     19. │     │   ├─dplyr::same_src(x, y)
     20. │     │   └─dplyr:::same_src.data.frame(x, y)
     21. │     │     └─base::is.data.frame(y)
     22. │     ├─dplyr::bind_rows(...)
     23. │     │ └─rlang::list2(...)
     24. │     └─gtsummary::pier_summary_continuous2(...)
     25. │       ├─... %>% ...
     26. │       ├─dplyr::bind_rows(...)
     27. │       │ └─rlang::list2(...)
     28. │       ├─dplyr::group_map(...)
     29. │       └─dplyr:::group_map.data.frame(...)
     30. │         └─dplyr:::map2(chunks, group_keys, .f, ...)
     31. │           └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
     32. │             └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
     33. │               ├─dplyr::mutate(...)
     34. │               └─dplyr:::mutate.data.frame(...)
     35. │                 └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
     36. │                   ├─base::withCallingHandlers(...)
     37. │                   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
     38. │                     └─mask$eval_all_mutate(quo)
     39. │                       └─dplyr (local) eval()
     40. ├─base::structure(...)
     41. ├─dplyr::left_join(...)
     42. ├─dplyr:::left_join.data.frame(...)
     43. │ └─dplyr::auto_copy(x, y, copy = copy)
     44. │   ├─dplyr::same_src(x, y)
     45. │   └─dplyr:::same_src.data.frame(x, y)
     46. │     └─base::is.data.frame(y)
     47. ├─gtsummary:::map(...)
     48. │ └─base::lapply(.x, .f, ...)
     49. │   └─gtsummary (local) FUN(X[[i]], ...)
     50. │     └─glue::glue(...)
     51. │       └─glue::glue_data(...)
     52. │         └─base::stopifnot(is.environment(.envir))
     53. │           └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     54. └─dplyr (local) `<fn>`(`<smplErrr>`)
     55.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
    
    [ FAIL 11 | WARN 34 | SKIP 4 | PASS 65 ]
    Error: Test failures
    Execution halted

Package: gtsummary
Check: examples
New result: ERROR
  Running examples in ‘gtsummary-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: add_ci
  > ### Title: Add CI Column
  > ### Aliases: add_ci add_ci.tbl_summary
  > 
  > ### ** Examples
  > 
  > ## Don't show: 
  > if (gtsummary:::is_pkg_installed("cardx", reference_pkg = "gtsummary") && gtsummary:::is_pkg_installed("broom", reference_pkg = "cardx")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
  + ## End(Don't show)
  + # Example 1 ----------------------------------
  + trial |>
  +   tbl_summary(
  +     missing = "no",
  +     statistic = all_continuous() ~ "{mean} ({sd})",
  +     include = c(marker, response, trt)
  +   ) |>
  +   add_ci()
  + 
  + # Example 2 ----------------------------------
  + trial |>
  +   select(response, grade) %>%
  +   tbl_summary(
  +     statistic = all_categorical() ~ "{p}%",
  +     missing = "no",
  +     include = c(response, grade)
  +   ) |>
  +   add_ci(pattern = "{stat} ({ci})") |>
  +   modify_footnote(everything() ~ NA)
  + ## Don't show: 
  + }) # examplesIf
  > add_ci(tbl_summary(trial, missing = "no", statistic = all_continuous() ~ 
  +     "{mean} ({sd})", include = c(marker, response, trt)))
  Error in `dplyr::mutate()`:
  ℹ In argument: `stat = as.character(...)`.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  Backtrace:
       ▆
    1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
    2. │ └─base::source(...)
    3. │   ├─base::withVisible(eval(ei, envir))
    4. │   └─base::eval(ei, envir)
    5. │     └─base::eval(ei, envir)
    6. ├─gtsummary::add_ci(...)
    7. │ └─gtsummary:::check_class(x, "gtsummary")
    8. ├─gtsummary::tbl_summary(...)
    9. │ ├─base::structure(...)
   10. │ ├─base::append(...)
   11. │ └─gtsummary::brdg_summary(...)
   12. │   ├─dplyr::left_join(...)
   13. │   ├─dplyr:::left_join.data.frame(...)
   14. │   │ └─dplyr::auto_copy(x, y, copy = copy)
   15. │   │   ├─dplyr::same_src(x, y)
   16. │   │   └─dplyr:::same_src.data.frame(x, y)
   17. │   │     └─base::is.data.frame(y)
   18. │   ├─dplyr::bind_rows(...)
   19. │   │ └─rlang::list2(...)
   20. │   └─gtsummary::pier_summary_continuous(...)
   21. │     ├─... %>% ...
   22. │     ├─dplyr::bind_rows(...)
   23. │     │ └─rlang::list2(...)
   24. │     ├─dplyr::group_map(...)
   25. │     └─dplyr:::group_map.data.frame(...)
   26. │       └─dplyr:::map2(chunks, group_keys, .f, ...)
   27. │         └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   28. │           └─gtsummary (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   29. │             ├─dplyr::mutate(...)
   30. │             └─dplyr:::mutate.data.frame(...)
   31. │               └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   32. │                 ├─base::withCallingHandlers(...)
   33. │                 └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   34. │                   └─mask$eval_all_mutate(quo)
   35. │                     └─dplyr (local) eval()
   36. ├─dplyr::left_join(...)
   37. ├─dplyr:::left_join.data.frame(...)
   38. │ └─dplyr::auto_copy(x, y, copy = copy)
   39. │   ├─dplyr::same_src(x, y)
   40. │   └─dplyr:::same_src.data.frame(x, y)
   41. │     └─base::is.data.frame(y)
   42. ├─glue::glue(...)
   43. │ └─glue::glue_data(...)
   44. │   └─base::stopifnot(is.environment(.envir))
   45. │     └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
   46. └─dplyr (local) `<fn>`(`<smplErrr>`)
   47.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  Execution halted

Package: gtsummary
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘gtsummary_definition.Rmd’ using rmarkdown
  
  Quitting from lines 27-38 [setup] (gtsummary_definition.Rmd)
  Error: processing vignette 'gtsummary_definition.Rmd' failed with diagnostics:
  ℹ In argument: `stat = as.character(...)`.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  --- failed re-building ‘gtsummary_definition.Rmd’
  
  SUMMARY: processing the following file failed:
    ‘gtsummary_definition.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: logger
Check: tests
New result: ERROR
    Running ‘testthat.R’ [3s/3s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(logger)
    > 
    > if (identical(Sys.getenv("NOT_CRAN"), "true")) {
    +     test_check('logger')
    + } else {
    +     test_check('logger', filter = '^[a-z]*$')
    + }
    WARN [2024-09-29 02:27:29] Running 'sum(1:10)' as 'FunDoesNotExist(1:10)' failed: 'could not find function "FunDoesNotExist"'
    [ FAIL 1 | WARN 0 | SKIP 0 | PASS 228 ]
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-logger.R:153:5'): providing log_level() args to wrappers diretly is OK ──
    Error in `value[[3L]](cond)`: `glue` failed in `formatter_glue` on:
    
      chr "{Sepal.Length}" 
    
    Raw error message:
    
     is.environment(.envir) is not TRUE 
    
    Please consider using another `log_formatter` or `skip_formatter` on strings with curly braces.
    Backtrace:
         ▆
      1. ├─testthat::expect_silent(log_info("{Sepal.Length}", .topenv = iris)) at test-logger.R:153:5
      2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
      3. │   ├─testthat (local) .capture(...)
      4. │   │ ├─withr::with_output_sink(...)
      5. │   │ │ └─base::force(code)
      6. │   │ ├─base::withCallingHandlers(...)
      7. │   │ └─base::withVisible(code)
      8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
      9. └─logger::log_info("{Sepal.Length}", .topenv = iris)
     10.   └─logger::log_level(...)
     11.     └─base::lapply(...)
     12.       └─logger (local) FUN(X[[i]], ...)
     13.         ├─base::structure(do.call(log_fun, log_arg), class = "logger")
     14.         ├─base::do.call(log_fun, log_arg)
     15.         └─logger (local) `<fn>`(...)
     16.           ├─base::do.call(...)
     17.           └─logger (local) `<fn>`(...)
     18.             └─base::tryCatch(...)
     19.               └─base (local) tryCatchList(expr, classes, parentenv, handlers)
     20.                 └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
     21.                   └─value[[3L]](cond)
    
    [ FAIL 1 | WARN 0 | SKIP 0 | PASS 228 ]
    Error: Test failures
    Execution halted

Package: params
Check: whether package can be installed
New result: ERROR
  Installation failed.

Package: shinyCohortBuilder
Check: examples
New result: ERROR
  Running examples in ‘shinyCohortBuilder-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: pre_post_stats
  > ### Title: Generate structure of pre/post statistics
  > ### Aliases: pre_post_stats .pre_post_stats .pre_post_stats_text
  > 
  > ### ** Examples
  > 
  > .pre_post_stats(5, 10, "books")
  <span><span>books </span><span class="cb_delayed">5</span><span> / </span><span>10</span></span>
  > .pre_post_stats_text(5, 10, "books")
  Error in glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  : 
    is.environment(.envir) is not TRUE
  Calls: .pre_post_stats_text -> <Anonymous> -> glue_data -> stopifnot
  Execution halted

Package: shinyCohortBuilder
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘custom-gui-layer.Rmd’ using rmarkdown
  --- finished re-building ‘custom-gui-layer.Rmd’
  
  --- re-building ‘gui-filter-layer.Rmd’ using rmarkdown
  
  Quitting from lines 247-253 [unnamed-chunk-16] (gui-filter-layer.Rmd)
  Error: processing vignette 'gui-filter-layer.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘gui-filter-layer.Rmd’
  
  --- re-building ‘package-options.Rmd’ using rmarkdown
  --- finished re-building ‘package-options.Rmd’
  
  --- re-building ‘shinyCohortBuilder.Rmd’ using rmarkdown
  --- finished re-building ‘shinyCohortBuilder.Rmd’
  
  --- re-building ‘updating-source.Rmd’ using rmarkdown
  --- finished re-building ‘updating-source.Rmd’
  
  SUMMARY: processing the following file failed:
    ‘gui-filter-layer.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: smdi
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘a_data_generation.Rmd’ using rmarkdown
  
  Quitting from lines 106-109 [distributions_covars] (a_data_generation.Rmd)
  Error: processing vignette 'a_data_generation.Rmd' failed with diagnostics:
  ℹ In argument: `stat = as.character(...)`.
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  --- failed re-building ‘a_data_generation.Rmd’
  
  --- re-building ‘b_routine_diagnostics.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/b_routine_diagnostics_files/figure-html/unnamed-chunk-5-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 22104 bytes
  Input file size = 22206 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 20281
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5		IDAT size = 19651
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 5		IDAT size = 19651
  
  Output IDAT size = 19651 bytes (2453 bytes decrease)
  Output file size = 19729 bytes (2477 bytes = 11.15% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/b_routine_diagnostics_files/figure-html/unnamed-chunk-6-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 39424 bytes
  Input file size = 39550 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 34520
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 34520
  
  Output IDAT size = 34520 bytes (4904 bytes decrease)
  Output file size = 34598 bytes (4952 bytes = 12.52% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/b_routine_diagnostics_files/figure-html/unnamed-chunk-7-1.png
  900x675 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 10795 bytes
  Input file size = 11665 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8693
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 8693
  
  Output IDAT size = 8693 bytes (2102 bytes decrease)
  Output file size = 8771 bytes (2894 bytes = 24.81% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/b_routine_diagnostics_files/figure-html/unnamed-chunk-11-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 54591 bytes
  Input file size = 54741 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 44682
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 44682
  
  Output IDAT size = 44682 bytes (9909 bytes decrease)
  Output file size = 44760 bytes (9981 bytes = 18.23% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/b_routine_diagnostics_files/figure-html/unnamed-chunk-17-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 51345 bytes
  Input file size = 51495 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 41754
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 41754
  
  Output IDAT size = 41754 bytes (9591 bytes decrease)
  Output file size = 41832 bytes (9663 bytes = 18.76% decrease)
  
  --- finished re-building ‘b_routine_diagnostics.Rmd’
  
  --- re-building ‘c_multivariate_missingness.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/c_multivariate_missingness_files/figure-html/unnamed-chunk-4-1.png
  900x675 pixels, 8 bits/pixel, 255 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 8063 bytes
  Input file size = 8918 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 6444
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 6444
  
  Output IDAT size = 6444 bytes (1619 bytes decrease)
  Output file size = 6522 bytes (2396 bytes = 26.87% decrease)
  
  --- finished re-building ‘c_multivariate_missingness.Rmd’
  
  --- re-building ‘d_narfcs_sensitivity_analysis.Rmd’ using rmarkdown
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/d_narfcs_sensitivity_analysis_files/figure-html/unnamed-chunk-3-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 49906 bytes
  Input file size = 50056 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 39816
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 39816
  
  Output IDAT size = 39816 bytes (10090 bytes decrease)
  Output file size = 39894 bytes (10162 bytes = 20.30% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/d_narfcs_sensitivity_analysis_files/figure-html/unnamed-chunk-6-1.png
  900x675 pixels, 8 bits/pixel, 256 colors in palette
  Reducing image to 8 bits/pixel, grayscale
  Input IDAT size = 22563 bytes
  Input file size = 23445 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 20419
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 20419
  
  Output IDAT size = 20419 bytes (2144 bytes decrease)
  Output file size = 20497 bytes (2948 bytes = 12.57% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/d_narfcs_sensitivity_analysis_files/figure-html/unnamed-chunk-8-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 53311 bytes
  Input file size = 53461 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 41158
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 41158
  
  Output IDAT size = 41158 bytes (12153 bytes decrease)
  Output file size = 41236 bytes (12225 bytes = 22.87% decrease)
  
  ** Processing: /home/hornik/tmp/CRAN_recheck/smdi.Rcheck/vign_test/smdi/vignettes/d_narfcs_sensitivity_analysis_files/figure-html/unnamed-chunk-10-1.png
  900x675 pixels, 3x8 bits/pixel, RGB
  Input IDAT size = 52477 bytes
  Input file size = 52627 bytes
  
  Trying:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 39892
    zc = 9  zm = 8  zs = 1  f = 0
    zc = 1  zm = 8  zs = 2  f = 0
    zc = 9  zm = 8  zs = 3  f = 0
    zc = 9  zm = 8  zs = 0  f = 5
    zc = 9  zm = 8  zs = 1  f = 5
    zc = 1  zm = 8  zs = 2  f = 5
    zc = 9  zm = 8  zs = 3  f = 5
                                 
  Selecting parameters:
    zc = 9  zm = 8  zs = 0  f = 0		IDAT size = 39892
  
  Output IDAT size = 39892 bytes (12585 bytes decrease)
  Output file size = 39970 bytes (12657 bytes = 24.05% decrease)
  
  --- finished re-building ‘d_narfcs_sensitivity_analysis.Rmd’
  
  --- re-building ‘smdi.Rmd’ using rmarkdown
  --- finished re-building ‘smdi.Rmd’
  
  SUMMARY: processing the following file failed:
    ‘a_data_generation.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: sqltargets
Check: tests
New result: ERROR
    Running ‘testthat.R’ [3s/3s]
  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/tests.html
    > # * https://testthat.r-lib.org/reference/test_package.html#special-files
    > 
    > library(testthat)
    > library(sqltargets)
    > 
    > test_check("sqltargets")
    [ FAIL 3 | WARN 0 | SKIP 0 | PASS 5 ]
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-tar-sql-deps.R:18:3'): tar_sql_deps() works ────────────────────
    Error: Error running targets::tar_make()
    Error messages: targets::tar_meta(fields = error, complete_only = TRUE)
    Debugging guide: https://books.ropensci.org/targets/debugging.html
    How to ask for help: https://books.ropensci.org/targets/help.html
    Last error message:
        is.environment(.envir) is not TRUE
    Last error traceback:
        sqltargets::tar_sql_exec(args = list(path = "query.sql", params = list()...
        do.call(what = source_sql_to_dataframe, args = args)
        (function (path, params = NULL)  {     connection_string <- stringr::str...
        glue::glue_sql(query, .con = con, .open = sqltargets_option_get("sqltarg...
        DBI::SQL(glue(..., .sep = .sep, .envir = .envir, .open = .open,      .cl...
        glue(..., .sep = .sep, .envir = .envir, .open = .open, .close = .close, ...
        glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  ...
        stopifnot(is.environment(.envir))
        stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
        (function (condition)  {     state$error <- build_message(condition)    ...
    Backtrace:
        ▆
     1. ├─base::suppressMessages(targets::tar_make(callr_function = NULL)) at test-tar-sql-deps.R:18:3
     2. │ └─base::withCallingHandlers(...)
     3. └─targets::tar_make(callr_function = NULL)
     4.   └─targets:::callr_outer(...)
     5.     ├─targets:::if_any(...)
     6.     └─targets:::callr_error(traced_condition = out, fun = fun)
     7.       └─targets::tar_throw_run(message, class = class(traced_condition$condition))
     8.         └─targets::tar_error(...)
     9.           └─rlang::abort(message = message, class = class, call = tar_empty_envir)
    ── Error ('test-tar-sql.R:16:3'): tar_sql() works ──────────────────────────────
    Error: Error running targets::tar_make()
    Error messages: targets::tar_meta(fields = error, complete_only = TRUE)
    Debugging guide: https://books.ropensci.org/targets/debugging.html
    How to ask for help: https://books.ropensci.org/targets/help.html
    Last error message:
        is.environment(.envir) is not TRUE
    Last error traceback:
        sqltargets::tar_sql_exec(args = list(path = "query.sql", params = list()...
        do.call(what = source_sql_to_dataframe, args = args)
        (function (path, params = NULL)  {     connection_string <- stringr::str...
        glue::glue_sql(query, .con = con, .open = sqltargets_option_get("sqltarg...
        DBI::SQL(glue(..., .sep = .sep, .envir = .envir, .open = .open,      .cl...
        glue(..., .sep = .sep, .envir = .envir, .open = .open, .close = .close, ...
        glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  ...
        stopifnot(is.environment(.envir))
        stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
        (function (condition)  {     state$error <- build_message(condition)    ...
    Backtrace:
        ▆
     1. ├─base::suppressMessages(targets::tar_make(callr_function = NULL)) at test-tar-sql.R:16:3
     2. │ └─base::withCallingHandlers(...)
     3. └─targets::tar_make(callr_function = NULL)
     4.   └─targets:::callr_outer(...)
     5.     ├─targets:::if_any(...)
     6.     └─targets:::callr_error(traced_condition = out, fun = fun)
     7.       └─targets::tar_throw_run(message, class = class(traced_condition$condition))
     8.         └─targets::tar_error(...)
     9.           └─rlang::abort(message = message, class = class, call = tar_empty_envir)
    ── Error ('test-tar-sql.R:58:3'): tar_sql() with glue engine ───────────────────
    Error: Error running targets::tar_make()
    Error messages: targets::tar_meta(fields = error, complete_only = TRUE)
    Debugging guide: https://books.ropensci.org/targets/debugging.html
    How to ask for help: https://books.ropensci.org/targets/help.html
    Last error message:
        is.environment(.envir) is not TRUE
    Last error traceback:
        sqltargets::tar_sql_exec(args = list(path = "query.sql", params = params...
        do.call(what = source_sql_to_dataframe, args = args)
        (function (path, params = NULL)  {     connection_string <- stringr::str...
        glue::glue_sql(query, .con = con, .open = sqltargets_option_get("sqltarg...
        DBI::SQL(glue(..., .sep = .sep, .envir = .envir, .open = .open,      .cl...
        glue(..., .sep = .sep, .envir = .envir, .open = .open, .close = .close, ...
        glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  ...
        stopifnot(is.environment(.envir))
        stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
        (function (condition)  {     state$error <- build_message(condition)    ...
    Backtrace:
        ▆
     1. ├─base::suppressMessages(targets::tar_make(callr_function = NULL)) at test-tar-sql.R:58:3
     2. │ └─base::withCallingHandlers(...)
     3. └─targets::tar_make(callr_function = NULL)
     4.   └─targets:::callr_outer(...)
     5.     ├─targets:::if_any(...)
     6.     └─targets:::callr_error(traced_condition = out, fun = fun)
     7.       └─targets::tar_throw_run(message, class = class(traced_condition$condition))
     8.         └─targets::tar_error(...)
     9.           └─rlang::abort(message = message, class = class, call = tar_empty_envir)
    
    [ FAIL 3 | WARN 0 | SKIP 0 | PASS 5 ]
    Error: Test failures
    Execution halted

Package: table.glue
Check: examples
New result: ERROR
  Running examples in ‘table.glue-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: format_big
  > ### Title: Format values left of decimal
  > ### Aliases: format_big
  > 
  > ### ** Examples
  > 
  > 
  > big_x <- 1234567
  > 
  > rspec <- format_big(round_spec(), mark = '|', interval = 3)
  > 
  > table_value(big_x, rspec) # returns "1|234|567"
  Error in glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open,  : 
    is.environment(.envir) is not TRUE
  Calls: table_value -> <Anonymous> -> glue_data -> stopifnot
  Execution halted

Package: table.glue
Check: re-building of vignette outputs
New result: ERROR
  Error(s) in re-building vignettes:
    ...
  --- re-building ‘default_rounder.Rmd’ using rmarkdown
  
  Quitting from lines 53-58 [unnamed-chunk-4] (default_rounder.Rmd)
  Error: processing vignette 'default_rounder.Rmd' failed with diagnostics:
  is.environment(.envir) is not TRUE
  --- failed re-building ‘default_rounder.Rmd’
  
  --- re-building ‘table_guide.Rmd’ using rmarkdown
  
  Quitting from lines 64-82 [unnamed-chunk-3] (table_guide.Rmd)
  Error: processing vignette 'table_guide.Rmd' failed with diagnostics:
  ℹ In argument: `tbv_height = table_glue("{height_est} ({height_lwr} -
    {height_upr})")`.
  ℹ In group 1: `sex = "female"`.
  Caused by error:
  ! Failed to evaluate glue component {..f(height_est)}
  Caused by error in `glue_data()`:
  ! is.environment(.envir) is not TRUE
  --- failed re-building ‘table_guide.Rmd’
  
  SUMMARY: processing the following files failed:
    ‘default_rounder.Rmd’ ‘table_guide.Rmd’
  
  Error: Vignette re-building failed.
  Execution halted

Package: table.glue
Check: tests
New result: ERROR
    Running ‘testthat.R’ [1s/1s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(table.glue)
    > 
    > test_check("table.glue")
    [ FAIL 8 | WARN 0 | SKIP 0 | PASS 52 ]
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-round_spec.R:40:3'): formatting works ──────────────────────────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(table_value(1000.234567, rspec), "1big000decimal!23oh noes45oh noes7") at test-round_spec.R:40:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_value(1000.234567, rspec)
     5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     6.     └─glue::glue_data(...)
     7.       └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_glue.R:11:3'): unnamed inputs are caught ─────────────────
    Error: Failed to evaluate glue component {..f(x)}
    Caused by error in `glue_data()`:
    ! is.environment(.envir) is not TRUE
    Backtrace:
         ▆
      1. ├─table.glue (local) ..f(x)
      2. │ ├─base::trimws(table_value(x, rspec = .rspec))
      3. │ │ ├─base (local) mysub(...)
      4. │ │ │ └─base::sub(re, "", x, perl = TRUE)
      5. │ │ │   └─base::is.factor(x)
      6. │ │ └─base (local) mysub(paste0("^", whitespace, "+"), x)
      7. │ │   └─base::sub(re, "", x, perl = TRUE)
      8. │ │     └─base::is.factor(x)
      9. │ └─table.glue::table_value(x, rspec = .rspec)
     10. │   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     11. │     └─glue::glue_data(...)
     12. │       └─base::stopifnot(is.environment(.envir))
     13. │         └─base::stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
     14. └─glue (local) `<fn>`(`<smplErrr>`)
     15.   └─rlang::abort(message, parent = cnd, call = NULL)
    ── Error ('test-table_pvalue.R:7:3'): missings are handled correctly ───────────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_pvalue.R:7:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_pvalue(pvals_missing)
     5.   └─table.glue::table_value(...)
     6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     7.       └─glue::glue_data(...)
     8.         └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_pvalue.R:28:3'): example values are correct ──────────────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_pvalue.R:28:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_pvalue(...)
     5.   └─table.glue::table_value(...)
     6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     7.       └─glue::glue_data(...)
     8.         └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_pvalue.R:52:3'): boundary p-values are not made insignificant ──
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_pvalue.R:52:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_pvalue(pvals_close, alpha = 0.15)
     5.   └─table.glue::table_value(...)
     6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     7.       └─glue::glue_data(...)
     8.         └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_pvalue.R:63:3'): boundaries can be moved ─────────────────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_pvalue.R:63:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_pvalue(...)
     5.   └─table.glue::table_value(...)
     6.     └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     7.       └─glue::glue_data(...)
     8.         └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_value.R:29:3'): rounding specifications match intent ─────
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_value.R:29:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_value(x, rspec_sig_1_even)
     5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     6.     └─glue::glue_data(...)
     7.       └─base::stopifnot(is.environment(.envir))
    ── Error ('test-table_value.R:77:3'): rounding on boundaries matches specification ──
    Error in `glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, 
        .close = .close, .na = .na, .null = .null, .comment = .comment, 
        .literal = .literal, .transformer = .transformer, .trim = .trim)`: is.environment(.envir) is not TRUE
    Backtrace:
        ▆
     1. ├─testthat::expect_equal(...) at test-table_value.R:77:3
     2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
     3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
     4. └─table.glue::table_value(x, rspec_mag_up)
     5.   └─glue::glue("{round_using}_{round_half}", .envir = .rspec)
     6.     └─glue::glue_data(...)
     7.       └─base::stopifnot(is.environment(.envir))
    
    [ FAIL 8 | WARN 0 | SKIP 0 | PASS 52 ]
    Error: Test failures
    Execution halted