Running ‘testthat.R’ [5s/9s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(flipbookr)
  > 
  > test_check("flipbookr")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 9 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-parse-sequences.R:4:3'): create code is character ──────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-parse-sequences.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% is.list()
    5. ├─flipbookr:::parsed_return_partial_code_sequence(.)
    6. │ └─flipbookr:::parsed_calc_show(...)
    7. ├─flipbookr:::code_parse(.)
    8. │ ├─... %>% ...
    9. │ └─flipbookr:::r_code_full_parse(code = code, omit = omit)
   10. │   └─code %>% r_code_base_parse(omit = omit) %>% ...
   11. ├─dplyr::mutate(., func = stringr::str_remove(func, "\\("))
   12. ├─dplyr::mutate(., func = stringr::str_extract(code, "\\w+\\("))
   13. ├─flipbookr:::r_base_parsed_count_parentheses(.)
   14. │ └─... %>% ...
   15. ├─dplyr::select(., line, full_line, comment, all_parentheses_balanced)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(...)
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::mutate(...)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::arrange(., line)
   22. ├─dplyr::full_join(., all_lines)
   23. └─dplyr:::full_join.data.frame(., all_lines)
   24.   └─dplyr:::join_mutate(...)
   25.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   26.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   27.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   28.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.           ├─base::withCallingHandlers(...)
   30.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-prep-sequences.R:4:3'): create code is character ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-prep-sequences.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% is.list()
    5. ├─flipbookr:::parsed_return_partial_code_sequence(.)
    6. │ └─flipbookr:::parsed_calc_show(...)
    7. ├─flipbookr:::code_parse(.)
    8. │ ├─... %>% ...
    9. │ └─flipbookr:::r_code_full_parse(code = code, omit = omit)
   10. │   └─code %>% r_code_base_parse(omit = omit) %>% ...
   11. ├─dplyr::mutate(., func = stringr::str_remove(func, "\\("))
   12. ├─dplyr::mutate(., func = stringr::str_extract(code, "\\w+\\("))
   13. ├─flipbookr:::r_base_parsed_count_parentheses(.)
   14. │ └─... %>% ...
   15. ├─dplyr::select(., line, full_line, comment, all_parentheses_balanced)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(...)
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::mutate(...)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::arrange(., line)
   22. ├─dplyr::full_join(., all_lines)
   23. └─dplyr:::full_join.data.frame(., all_lines)
   24.   └─dplyr:::join_mutate(...)
   25.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   26.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   27.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   28.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.           ├─base::withCallingHandlers(...)
   30.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 9 ]
  Error: Test failures
  Execution halted