Running ‘testthat.R’ [212s/283s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(webmorphR)
  
  ************
  Welcome to webmorphR. For support and examples visit:
  https://debruine.github.io/webmorphR/
  ************
  
  
  Attaching package: 'webmorphR'
  
  The following object is masked from 'package:testthat':
  
      compare
  
  > 
  > test_check("webmorphR")
  [ FAIL 4 | WARN 0 | SKIP 15 | PASS 933 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (12)
  • interactive() is not TRUE (2)
  • needs visual check (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-crop.R:92:3'): no images ───────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─webmorphR::demo_stim(".tem") at test-crop.R:92:2
    2.   └─webmorphR::read_stim(path, pattern)
    3.     ├─dplyr::full_join(df_img, df_tem, by = "path")
    4.     └─dplyr:::full_join.data.frame(df_img, df_tem, by = "path")
    5.       └─dplyr:::join_mutate(...)
    6.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    8.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.               ├─base::withCallingHandlers(...)
   11.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-read_stim.R:40:3'): tem only ───────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─webmorphR::read_stim(path, "\\.tem$") at test-read_stim.R:40:2
    2.   ├─dplyr::full_join(df_img, df_tem, by = "path")
    3.   └─dplyr:::full_join.data.frame(df_img, df_tem, by = "path")
    4.     └─dplyr:::join_mutate(...)
    5.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    6.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.             ├─base::withCallingHandlers(...)
   10.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-read_stim.R:52:3'): mixed img/tem ──────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─webmorphR::read_stim(path, "(f_multi\\.tem|m_multi\\.jpg)") at test-read_stim.R:52:2
    2.   ├─dplyr::full_join(df_img, df_tem, by = "path")
    3.   └─dplyr:::full_join.data.frame(df_img, df_tem, by = "path")
    4.     └─dplyr:::join_mutate(...)
    5.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    6.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.             ├─base::withCallingHandlers(...)
   10.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-rotate.R:57:3'): no img ────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(tem <- as_stimlist(demo_stim(".tem"))) at test-rotate.R:57: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. ├─webmorphR::as_stimlist(demo_stim(".tem"))
    7. └─webmorphR::demo_stim(".tem")
    8.   └─webmorphR::read_stim(path, pattern)
    9.     ├─dplyr::full_join(df_img, df_tem, by = "path")
   10.     └─dplyr:::full_join.data.frame(df_img, df_tem, by = "path")
   11.       └─dplyr:::join_mutate(...)
   12.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.               ├─base::withCallingHandlers(...)
   17.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 4 | WARN 0 | SKIP 15 | PASS 933 ]
  Error: Test failures
  Execution halted