Running ‘testthat.R’ [4s/15s]
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(DBERlibR)
  > 
  > test_check("DBERlibR")
  
  
  
  
  
  
  
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-ancova.R:6:3'): the function of one_way_ancova() works ─────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::one_way_ancova(...) at test-ancova.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-group_diff.R:5:3'): the function of demo_group_diff() analysis works ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::demo_group_diff(...) at test-group_diff.R:5:2
   2.   ├─base::`[<-`(`*tmp*`, data_original[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_original[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-independent_samples.R:6:3'): the function of independent_samples() works ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::independent_samples(...) at test-independent_samples.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data_treat_post[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_treat_post[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-item_analysis.R:5:3'): the function of item_analysis() works ───
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::item_analysis(...) at test-item_analysis.R:5:2
   2.   ├─base::`[<-`(`*tmp*`, data_original[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_original[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-paired_samples.R:6:3'): the function of paired_samples() works ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::paired_samples(...) at test-paired_samples.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-repeated_anova.R:6:3'): the function of one_way_repeated_anova() works ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─DBERlibR::one_way_repeated_anova(...) at test-repeated_anova.R:6:2
   2.   ├─base::`[<-`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, data_treat_pre[, i] != 1, value = `<dbl>`)
   4.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted