Running ‘testthat.R’ [4s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(projects)
  projects_folder() location:
  projects folder not found. Please run setup_projects()
  > 
  > test_check("projects")
  # A tibble: 1 × 7
       id last_name given_names title degree email         phone       
    <int> <chr>     <chr>       <chr> <chr>  <chr>         <chr>       
  1  8888 Stone     Rosetta     <NA>  PhD    slab@rock.net 867-555-5309
  # A tibble: 2 × 4
    affiliation_id department_name institution_name    address                    
             <int> <chr>           <chr>               <chr>                      
  1             42 Art Department  Springfield College 321 University Boulevard, …
  2              1 Math Dept.      Springfield College 123 College St, Springfiel…
  # A tibble: 1 × 7
       id last_name given_names title degree email phone
    <int> <chr>     <chr>       <chr> <chr>  <chr> <chr>
  1    13 Agnew     Spiro       <NA>  LLB    <NA>  <NA> 
  # A tibble: 1 × 4
    affiliation_id department_name institution_name    address                    
             <int> <chr>           <chr>               <chr>                      
  1             42 Art Department  Springfield College 321 University Boulevard, …
  # A tibble: 1 × 7
       id last_name given_names title degree email phone
    <int> <chr>     <chr>       <chr> <chr>  <chr> <chr>
  1   303 <NA>      Plato       <NA>  <NA>   <NA>  <NA> 
  None.# A tibble: 1 × 6
       id title                   stage         status deadl…¹ deadline           
    <int> <chr>                   <prjstg>      <chr>  <chr>   <dttm>             
  1     1 Understanding the Cons… 4: manuscript waiti… submis… 2055-02-28 00:00:00
  # … with abbreviated variable name ¹​deadline_type
  # A tibble: 2 × 7
    author_id last_name given_names title degree email         phone       
        <int> <chr>     <chr>       <chr> <chr>  <chr>         <chr>       
  1        13 Agnew     Spiro       <NA>  LLB    <NA>          <NA>        
  2      8888 Stone     Rosetta     <NA>  PhD    slab@rock.net 867-555-5309
  # A tibble: 1 × 3
    current_owner corresp_auth creator  
    <prjaut>      <prjaut>     <prjaut> 
  1 13: Agnew     8888: Stone  0: hornik
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 13 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-setup.R:75:3'): Setup works ──────────────────────────────────
  `edit_affiliation("Math Dept", department_name = "Mathematics Department")` threw an error.
  Message: ℹ In index: 1.
  ℹ With name: department_name.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Class:   purrr_error_indexed/rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-setup.R:75:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─projects::edit_affiliation("Math Dept", department_name = "Mathematics Department")
    7. │ └─projects:::edit_metadata(...)
    8. │   └─purrr::iwalk(...)
    9. │     └─purrr::walk2(.x, vec_index(.x), .f, ...)
   10. │       └─purrr::map2(.x, .y, .f, ..., .progress = .progress)
   11. │         └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   12. │           ├─purrr:::with_indexed_errors(...)
   13. │           │ └─base::withCallingHandlers(...)
   14. │           ├─purrr:::call_with_cleanup(...)
   15. │           └─projects (local) .f(.x[[i]], .y[[i]], ...)
   16. │             ├─base::`[<-`(`*tmp*`, row_number, name, value = `<chr>`)
   17. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, row_number, name, value = `<chr>`)
   18. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20. │                   ├─base::withCallingHandlers(...)
   21. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   22. └─base::.handleSimpleError(...)
   23.   └─purrr (local) h(simpleError(msg, call))
   24.     └─cli::cli_abort(...)
   25.       └─rlang::abort(...)
  ── Failure ('test-setup.R:113:3'): Setup works ─────────────────────────────────
  `edit_author(...)` threw an error.
  Message: ℹ In index: 1.
  ℹ With name: given_names.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Class:   purrr_error_indexed/rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-setup.R:113:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─projects::edit_author(...)
    7. │ └─projects:::edit_metadata(...)
    8. │   └─purrr::iwalk(...)
    9. │     └─purrr::walk2(.x, vec_index(.x), .f, ...)
   10. │       └─purrr::map2(.x, .y, .f, ..., .progress = .progress)
   11. │         └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   12. │           ├─purrr:::with_indexed_errors(...)
   13. │           │ └─base::withCallingHandlers(...)
   14. │           ├─purrr:::call_with_cleanup(...)
   15. │           └─projects (local) .f(.x[[i]], .y[[i]], ...)
   16. │             ├─base::`[<-`(`*tmp*`, row_number, name, value = `<chr>`)
   17. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, row_number, name, value = `<chr>`)
   18. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20. │                   ├─base::withCallingHandlers(...)
   21. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   22. └─base::.handleSimpleError(...)
   23.   └─purrr (local) h(simpleError(msg, call))
   24.     └─cli::cli_abort(...)
   25.       └─rlang::abort(...)
  ── Failure ('test-setup.R:147:3'): Setup works ─────────────────────────────────
  `edit_project(...)` threw an error.
  Message: ℹ In index: 2.
  ℹ With name: short_title.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Class:   purrr_error_indexed/rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-setup.R:147:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─projects::edit_project(...)
    7. │ └─projects:::edit_metadata(...)
    8. │   └─purrr::iwalk(...)
    9. │     └─purrr::walk2(.x, vec_index(.x), .f, ...)
   10. │       └─purrr::map2(.x, .y, .f, ..., .progress = .progress)
   11. │         └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   12. │           ├─purrr:::with_indexed_errors(...)
   13. │           │ └─base::withCallingHandlers(...)
   14. │           ├─purrr:::call_with_cleanup(...)
   15. │           └─projects (local) .f(.x[[i]], .y[[i]], ...)
   16. │             ├─base::`[<-`(`*tmp*`, row_number, name, value = `<chr>`)
   17. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, row_number, name, value = `<chr>`)
   18. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20. │                   ├─base::withCallingHandlers(...)
   21. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   22. └─base::.handleSimpleError(...)
   23.   └─purrr (local) h(simpleError(msg, call))
   24.     └─cli::cli_abort(...)
   25.       └─rlang::abort(...)
  ── Failure ('test-setup.R:162:3'): Setup works ─────────────────────────────────
  affiliations() not identical to ... %>% ....
  Component "department_name": 1 string mismatch
  ── Failure ('test-setup.R:173:3'): Setup works ─────────────────────────────────
  authors() not identical to ... %>% ....
  Component "last_name": 'is.NA' value mismatch: 0 in current 1 in target
  Component "given_names": 'is.NA' value mismatch: 1 in current 0 in target
  Component "title": 'is.NA' value mismatch: 2 in current 3 in target
  ── Failure ('test-setup.R:183:3'): Setup works ─────────────────────────────────
  projects(verbose = TRUE, all_stages = TRUE) not identical to ... %>% ....
  Component "short_title": 1 string mismatch
  Component "corresp_auth": 1 string mismatch
  ── Failure ('test-setup.R:203:3'): Setup works ─────────────────────────────────
  get_rds(make_rds_path("project_author_assoc")) not identical to tibble::tibble(id1 = c(1L, 1L), id2 = c(13L, 303L)).
  Component "id2": Mean relative difference: 0.9659091
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 13 ]
  Error: Test failures
  Execution halted