Running ‘testthat.R’ [32s/49s]
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(processcheckR)
  
  Attaching package: 'processcheckR'
  
  The following object is masked from 'package:base':
  
      xor
  
  > 
  > test_check("processcheckR")
  [ FAIL 8 | WARN 24 | SKIP 0 | PASS 431 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_contains_between.R:8:3'): test contains_between on eventlog with args min = 1, max = 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients %>% ... at test_contains_between.R:8:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:25:3'): test contains on eventlog with args min > 1, max > 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients %>% ... at test_contains_between.R:25:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:42:3'): test contains on eventlog with args min = 0, max = 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients %>% ... at test_contains_between.R:42:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:58:3'): test contains on eventlog with args min = 0, max = 0 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients %>% ... at test_contains_between.R:58:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:95:3'): test contains_between on grouped_eventlog ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients_grouped_resource %>% ... at test_contains_between.R:95:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.grouped_log(., rule)
    9. │ └─bupaR:::apply_grouped_fun(...)
   10. │   └─log %>% ungroup_eventlog() %>% fun(...)
   11. ├─processcheckR (local) fun(., ...)
   12. │ └─... %>% pull(1)
   13. ├─dplyr::pull(., 1)
   14. ├─dplyr::filter(...)
   15. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_contains_between.R:116:3'): test contains_between on activitylog with args min = 1, max = 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients_act %>% ... at test_contains_between.R:116:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:133:3'): test contains on activitylog with args min > 1, max > 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients_act %>% ... at test_contains_between.R:133:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.log(., rule)
    9. │ └─... %>% pull(1)
   10. ├─dplyr::pull(., 1)
   11. ├─dplyr::filter(...)
   12. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   13. ├─dplyr::right_join(...)
   14. └─dplyr:::right_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_contains_between.R:150:3'): test contains_between on grouped_activitylog ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients_act_grouped_resource %>% ... at test_contains_between.R:150:2
    2. ├─processcheckR::check_rule(...)
    3. ├─processcheckR:::check_rule.log(...)
    4. │ └─... %>% select(-rule_holds)
    5. ├─dplyr::select(., -rule_holds)
    6. ├─dplyr::mutate(., `:=`(!!sym(label), rule_holds))
    7. ├─attr(rule, "checker")(., rule)
    8. ├─processcheckR:::contains_between_checker.grouped_log(., rule)
    9. │ └─bupaR:::apply_grouped_fun(...)
   10. │   └─log %>% ungroup_eventlog() %>% fun(...)
   11. ├─processcheckR (local) fun(., ...)
   12. │ └─... %>% pull(1)
   13. ├─dplyr::pull(., 1)
   14. ├─dplyr::filter(...)
   15. ├─tidyr::replace_na(., list(n_activity_instances = 0))
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 8 | WARN 24 | SKIP 0 | PASS 431 ]
  Error: Test failures
  Execution halted