Running 'testthat.R' [18s]
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(rAccess)
  > library(DT)
  > library(pins)
  > library(shiny)
  
  Attaching package: 'shiny'
  
  The following objects are masked from 'package:DT':
  
      dataTableOutput, renderDataTable
  
  > library(tibble)
  > 
  > 
  > test_check("rAccess")
  Saving _problems/test-app-33.R
  Guessing `type = 'rds'`
  Creating new version '20260413T180422Z-39356'
  Writing to pin 'test_access_board'
  Guessing `type = 'rds'`
  ! The hash of pin "test_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "test_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "test_access_board" has not changed.
  * Your pin will not be stored.
  editrow: 
  editrow: 
  editrow: 
  editrow: 
  Guessing `type = 'rds'`
  Replacing version '20260413T180422Z-39356' with '20260413T180425Z-7289d'
  Writing to pin 'test_access_board'
  editrow: 
  Guessing `type = 'rds'`
  Creating new version '20260413T180426Z-39356'
  Writing to pin 'single_unit_test_access_board'
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test_access_board" has not changed.
  * Your pin will not be stored.
  editrow: 
  editrow: 
  editrow: 
  editrow: 
  Guessing `type = 'rds'`
  Replacing version '20260413T180426Z-39356' with '20260413T180428Z-7289d'
  Writing to pin 'single_unit_test_access_board'
  editrow: 
  editrow: 1
  <span>
    <img src="png/caution-icon.png" class="img-10px pr-2"/>
    ADMIN Panel cannot be empty!!
    <br/>
    Please add another Admin to remove this user
  </span>
  editrow: 1
    141: observe
    140: <observer:observeEvent(input$btneditUsrSubmit)>
  Guessing `type = 'rds'`
  Creating new version '20260413T180429Z-39356'
  Writing to pin 'single_unit_test2_access_board'
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test2_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test2_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "single_unit_test2_access_board" has not changed.
  * Your pin will not be stored.
  editrow: 
  editrow: 
  editrow: 
  editrow: 
  editrow: 1
    141: observe
    140: <observer:observeEvent(input$btneditUsrSubmit)>
  Saving _problems/test-app-383.R
  Saving _problems/test-app-425.R
  Guessing `type = 'rds'`
  Creating new version '20260413T180433Z-440a5'
  Writing to pin 'new_pin_access_board'
  Guessing `type = 'rds'`
  ! The hash of pin "new_pin_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "new_pin_access_board" has not changed.
  * Your pin will not be stored.
  Guessing `type = 'rds'`
  ! The hash of pin "new_pin_access_board" has not changed.
  * Your pin will not be stored.
  editrow: 
  editrow: 
  editrow: 
  editrow: 
  $ADMIN
  NULL
  
  $sum
  [1] "plot"    "summary"
  
  $data
  [1] "view"
  
  $ADMIN
  NULL
  
  $sum
  $sum$plot
  NULL
  
  $sum$summary
  NULL
  
  
  $data
  $data$view
  NULL
  
  
  [ FAIL 3 | WARN 2 | SKIP 4 | PASS 37 ]
  
  ══ Skipped tests (4) ═══════════════════════════════════════════════════════════
  • empty test (4): 'test-app.R:40:1', 'test-app.R:108:1', 'test-app.R:257:1',
    'test-app.R:519:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-app.R:33:5'): app works if additional access unit is added to an stored board ──
  Error in `pin_read(., pin_name)`: `type` must be a string or character vector.
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-app.R:35:3
    2. │ ├─shiny:::withMockContext(...)
    3. │ │ ├─shiny::isolate(...)
    4. │ │ │ ├─shiny::..stacktraceoff..(...)
    5. │ │ │ └─ctx$run(...)
    6. │ │ │   ├─promises::with_promise_domain(...)
    7. │ │ │   │ └─domain$wrapSync(expr)
    8. │ │ │   ├─shiny::withReactiveDomain(...)
    9. │ │ │   │ └─promises::with_promise_domain(...)
   10. │ │ │   │   └─domain$wrapSync(expr)
   11. │ │ │   │     └─base::force(expr)
   12. │ │ │   ├─shiny:::with_otel_span_context(...)
   13. │ │ │   │ └─base::force(expr)
   14. │ │ │   ├─shiny::captureStackTraces(...)
   15. │ │ │   │ └─promises::with_promise_domain(...)
   16. │ │ │   │   └─domain$wrapSync(expr)
   17. │ │ │   │     └─base::withCallingHandlers(expr, error = doCaptureStack)
   18. │ │ │   └─env$runWith(self, func)
   19. │ │ │     └─shiny (local) contextFunc()
   20. │ │ │       └─shiny::..stacktraceon..(expr)
   21. │ │ ├─shiny::withReactiveDomain(...)
   22. │ │ │ └─promises::with_promise_domain(...)
   23. │ │ │   └─domain$wrapSync(expr)
   24. │ │ │     └─base::force(expr)
   25. │ │ └─withr::with_options(...)
   26. │ │   └─base::force(code)
   27. │ └─rAccess (local) server(input = session$input, output = session$output, session = session)
   28. │   └─rAccess::module_iam_server("iam", new_iam) at test-app.R:33:5
   29. │     └─rAccess:::module_sub_iam_server(...)
   30. │       └─shiny::moduleServer(...)
   31. │         ├─session$setReturned(callModule(module, id, session = session))
   32. │         └─shiny::callModule(module, id, session = session)
   33. │           ├─shiny::withReactiveDomain(...)
   34. │           │ └─promises::with_promise_domain(...)
   35. │           │   └─domain$wrapSync(expr)
   36. │           │     └─base::force(expr)
   37. │           └─rAccess (local) module(childScope$input, childScope$output, childScope, ...)
   38. │             └─rAccess_obj$pin_board %>% pin_read(pin_name)
   39. ├─pins::pin_read(., pin_name)
   40. │ └─pins:::object_read(meta, type)
   41. │   └─rlang::arg_match0(type, object_types, error_call = call)
   42. └─rlang::abort(message = message, call = call)
  ── Error ('test-app.R:380:3'):  rAccess methods work correctly after access boards edits ──
  Error in `pin_read(., pin_name)`: `type` must be a string or character vector.
  Backtrace:
      ▆
   1. ├─testthat::expect_named(...) at test-app.R:380:3
   2. │ └─testthat::quasi_label(enquo(object), label)
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─new_iam$get_user_accesslist("UserID")
   5. │ └─self$pin_board %>% pin_read(pin_name)
   6. ├─pins::pin_read(., pin_name)
   7. │ └─pins:::object_read(meta, type)
   8. │   └─rlang::arg_match0(type, object_types, error_call = call)
   9. └─rlang::abort(message = message, call = call)
  ── Error ('test-app.R:424:5'): user access edits work on a saved access boards. ──
  Error in `pin_read(., pin_name)`: `type` must be a string or character vector.
  Backtrace:
       ▆
    1. ├─shiny::testServer(...) at test-app.R:427:3
    2. │ ├─shiny:::withMockContext(...)
    3. │ │ ├─shiny::isolate(...)
    4. │ │ │ ├─shiny::..stacktraceoff..(...)
    5. │ │ │ └─ctx$run(...)
    6. │ │ │   ├─promises::with_promise_domain(...)
    7. │ │ │   │ └─domain$wrapSync(expr)
    8. │ │ │   ├─shiny::withReactiveDomain(...)
    9. │ │ │   │ └─promises::with_promise_domain(...)
   10. │ │ │   │   └─domain$wrapSync(expr)
   11. │ │ │   │     └─base::force(expr)
   12. │ │ │   ├─shiny:::with_otel_span_context(...)
   13. │ │ │   │ └─base::force(expr)
   14. │ │ │   ├─shiny::captureStackTraces(...)
   15. │ │ │   │ └─promises::with_promise_domain(...)
   16. │ │ │   │   └─domain$wrapSync(expr)
   17. │ │ │   │     └─base::withCallingHandlers(expr, error = doCaptureStack)
   18. │ │ │   └─env$runWith(self, func)
   19. │ │ │     └─shiny (local) contextFunc()
   20. │ │ │       └─shiny::..stacktraceon..(expr)
   21. │ │ ├─shiny::withReactiveDomain(...)
   22. │ │ │ └─promises::with_promise_domain(...)
   23. │ │ │   └─domain$wrapSync(expr)
   24. │ │ │     └─base::force(expr)
   25. │ │ └─withr::with_options(...)
   26. │ │   └─base::force(code)
   27. │ └─rAccess (local) server(input = session$input, output = session$output, session = session)
   28. │   └─new_iam$is_admin() at test-app.R:424:5
   29. │     └─self$pin_board %>% pin_read(pin_name)
   30. ├─pins::pin_read(., pin_name)
   31. │ └─pins:::object_read(meta, type)
   32. │   └─rlang::arg_match0(type, object_types, error_call = call)
   33. └─rlang::abort(message = message, call = call)
  
  [ FAIL 3 | WARN 2 | SKIP 4 | PASS 37 ]
  Error:
  ! Test failures.
  Execution halted