Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [5s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ggseg3d)
  > 
  > test_check("ggseg3d")
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 53 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-data_merge.R:22:3'): data_merge works ──────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(data_merge(someData, atlas3d), "transverse templral") at test-data_merge.R:22: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. └─ggseg3d:::data_merge(someData, atlas3d)
    7.   ├─dplyr::full_join(atlas3d, .data, by = cols, copy = TRUE)
    8.   └─dplyr:::full_join.data.frame(atlas3d, .data, by = cols, copy = TRUE)
    9.     └─dplyr:::join_mutate(...)
   10.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.             ├─base::withCallingHandlers(...)
   15.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ggseg3d.R:22:3'): Check that ggseg3d is working ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-ggseg3d.R:22: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. └─ggseg3d::ggseg3d(...)
    7.   └─ggseg3d:::data_merge(.data, atlas3d)
    8.     ├─dplyr::full_join(atlas3d, .data, by = cols, copy = TRUE)
    9.     └─dplyr:::full_join.data.frame(atlas3d, .data, by = cols, copy = TRUE)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 53 ]
  Error: Test failures
  Execution halted