Running ‘testthat.R’ [2s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggalignment)
  > 
  > test_check("ggalignment")
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 5 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-ggalignment.R:4:3'): plotting works without x, y coords provided ──
  `ggalignment(align_cats)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(ggalignment(align_cats), NA) at test-ggalignment.R:4:2
    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. ├─ggalignment::ggalignment(align_cats)
    8. │ └─... %>% ...
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::full_join(., ggalignment::alignment_vals, by = "alignment")
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-ggalignment.R:12:3'): plotting works with x, y coords provided ──
  `ggalignment(align_cats_with_coords)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(ggalignment(align_cats_with_coords), NA) at test-ggalignment.R:12:2
    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. ├─ggalignment::ggalignment(align_cats_with_coords)
    8. │ └─... %>% ...
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::full_join(., ggalignment::alignment_vals, by = "alignment")
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-ggalignment.R:35:3'): error does not occur if multiple images per box and coords ──
  `ggalignment(align_cats_with_multis_and_coords)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-ggalignment.R:35:2
    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. ├─ggalignment::ggalignment(align_cats_with_multis_and_coords)
    8. │ └─... %>% ...
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::full_join(., ggalignment::alignment_vals, by = "alignment")
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ggalignment.R:60:3'): testing a basic plot ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─ggalignment::ggalignment(align_cats) at test-ggalignment.R:60:2
    2. │ └─... %>% ...
    3. ├─dplyr::mutate(...)
    4. ├─dplyr::full_join(., ggalignment::alignment_vals, by = "alignment")
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 5 ]
  Deleting unused snapshots:
  • ggalignment/basic-alignment-chart-with-cats.svg
  Error: Test failures
  Execution halted