Running ‘testthat.R’ [5s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidygate)
  > 
  > test_check("tidygate")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-methods.R:35:3'): gate dimensions ──────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))`: ℹ In argument: `gate = gate_chr(Dim1, Dim2, gate_list =
    tidygate::gate_list)`.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-methods.R:35:2
    2. ├─dplyr::mutate(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))
    3. ├─dplyr:::mutate.data.frame(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))
    4. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    5. │   ├─base::withCallingHandlers(...)
    6. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    7. │     └─mask$eval_all_mutate(quo)
    8. │       └─dplyr (local) eval()
    9. ├─tidygate::gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list)
   10. ├─tidygate:::gate_chr.numeric(Dim1, Dim2, gate_list = tidygate::gate_list)
   11. │ └─tidygate:::.gate_chr_int(...)
   12. │   └─... %>% ...
   13. ├─purrr::when(...)
   14. ├─purrr::when(...)
   15. │ └─base::eval(dots[[i]][[action]], env, env)
   16. │   └─base::eval(dots[[i]][[action]], env, env)
   17. │     └─(.) %>% ...
   18. ├─tidygate:::gate_programmatic_chr_int(...)
   19. │ └─gate_list_result %>% parse_gate_list(my_df)
   20. ├─tidygate:::parse_gate_list(., my_df)
   21. │ └─... %>% pull(gate)
   22. ├─dplyr::pull(., gate)
   23. ├─dplyr::mutate(., `:=`(gate, if_else(gate == "", "0", gate)))
   24. ├─tidyr::unite(., contains("gate"), col = "gate", sep = ",", na.rm = TRUE)
   25. ├─dplyr::arrange(., as.numeric(point))
   26. ├─dplyr::full_join(...)
   27. ├─purrr::reduce(., .f = full_join, by = "point")
   28. │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   29. │   ├─dplyr (local) fn(out, elt, ...)
   30. │   └─dplyr:::full_join.data.frame(out, elt, ...)
   31. │     └─dplyr:::join_mutate(...)
   32. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   33. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   34. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   35. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   36. │             ├─base::withCallingHandlers(...)
   37. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-methods.R:56:3'): gate grouping ────────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))`: ℹ In argument: `gate = gate_chr(Dim1, Dim2, gate_list =
    tidygate::gate_list)`.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-methods.R:56:2
    2. ├─dplyr::mutate(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))
    3. ├─dplyr:::mutate.data.frame(., gate = gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list))
    4. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    5. │   ├─base::withCallingHandlers(...)
    6. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    7. │     └─mask$eval_all_mutate(quo)
    8. │       └─dplyr (local) eval()
    9. ├─tidygate::gate_chr(Dim1, Dim2, gate_list = tidygate::gate_list)
   10. ├─tidygate:::gate_chr.numeric(Dim1, Dim2, gate_list = tidygate::gate_list)
   11. │ └─tidygate:::.gate_chr_int(...)
   12. │   └─... %>% ...
   13. ├─purrr::when(...)
   14. ├─purrr::when(...)
   15. │ └─base::eval(dots[[i]][[action]], env, env)
   16. │   └─base::eval(dots[[i]][[action]], env, env)
   17. │     └─(.) %>% ...
   18. ├─tidygate:::gate_programmatic_chr_int(...)
   19. │ └─gate_list_result %>% parse_gate_list(my_df)
   20. ├─tidygate:::parse_gate_list(., my_df)
   21. │ └─... %>% pull(gate)
   22. ├─dplyr::pull(., gate)
   23. ├─dplyr::mutate(., `:=`(gate, if_else(gate == "", "0", gate)))
   24. ├─tidyr::unite(., contains("gate"), col = "gate", sep = ",", na.rm = TRUE)
   25. ├─dplyr::arrange(., as.numeric(point))
   26. ├─dplyr::full_join(...)
   27. ├─purrr::reduce(., .f = full_join, by = "point")
   28. │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   29. │   ├─dplyr (local) fn(out, elt, ...)
   30. │   └─dplyr:::full_join.data.frame(out, elt, ...)
   31. │     └─dplyr:::join_mutate(...)
   32. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   33. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   34. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   35. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   36. │             ├─base::withCallingHandlers(...)
   37. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted