Running ‘testthat.R’ [229s/201s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > # Need to use qualified call, this is checked in helper-print.R
  > testthat::test_check("dm")
  Loading required package: dm
  
  Attaching package: 'dm'
  
  The following object is masked from 'package:stats':
  
      filter
  
  Starting 2 test processes
  [ FAIL 13 | WARN 0 | SKIP 204 | PASS 1246 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • COMPOUND (1)
  • FIXME (2)
  • FIXME: Unstable on GHA? (1)
  • Need to think about it (1)
  • Needs https://github.com/tidyverse/dbplyr/pull/649 (2)
  • On CRAN (164)
  • Slow test. To run, set CI=true (6)
  • dm argument (1)
  • does not work on `df` (1)
  • empty test (2)
  • keyed = TRUE (1)
  • not testing deprecated cdm_nycflights13(): test too slow (1)
  • not testing deprecated learning from DB: test too slow (1)
  • only works on `db` (1)
  • only works on `mssql` (4)
  • only works on `mssql`, `postgres` (4)
  • only works on `mssql`, `postgres`, `maria` (4)
  • only works on `postgres` (2)
  • only works on `postgres`, `mssql` (2)
  • only works on `postgres`, `mssql`, `sqlite` (1)
  • only works on `postgres`, `sqlite`, `mssql`, `maria` (1)
  • only works on `sqlite` (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flatten.R:93:3'): `dm_flatten_to_tbl()` does the right things for 'full_join()' ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::expect_message_obj(...) at test-flatten.R:93:2
    2. │ ├─testthat::expect_message(...)
    3. │ │ └─testthat:::expect_condition_matching(...)
    4. │ │   └─testthat:::quasi_capture(...)
    5. │ │     ├─testthat (local) .capture(...)
    6. │ │     │ └─base::withCallingHandlers(...)
    7. │ │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    8. │ └─rlang::eval_tidy(dm_flatten_to_tbl(dm_for_flatten(), fact, .join = full_join))
    9. └─dm::dm_flatten_to_tbl(dm_for_flatten(), fact, .join = full_join)
   10.   └─dm:::dm_flatten_to_tbl_impl(...)
   11.     └─purrr::reduce2(...)
   12.       └─purrr:::reduce2_impl(.x, .y, .f, ..., .init = .init, .left = TRUE)
   13.         └─dm (local) .f(out, .x[[x_i]], .y[[y_i]], ...)
   14.           ├─dplyr (local) join(..1, ..2, by = ..3)
   15.           └─dplyr:::full_join.data.frame(..1, ..2, by = ..3)
   16.             └─dplyr:::join_mutate(...)
   17.               ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   18.               └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19.                 └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20.                   └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21.                     ├─base::withCallingHandlers(...)
   22.                     └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-flatten.R:131:3'): `dm_flatten_to_tbl()` does the right things for 'right_join()' ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::expect_equivalent_tbl(...) at test-flatten.R:131:2
    2. │ └─dm:::harmonize_tbl(tbl_1, ...) at tests/testthat/helper-expectations.R:82:2
    3. │   └─tbl %>% collect() %>% mutate(...) %>% arrange_if_no_list() at tests/testthat/helper-expectations.R:70:2
    4. ├─dm:::arrange_if_no_list(.)
    5. │ └─base::inherits(tbl, "tbl_dbi") at tests/testthat/helper-expectations.R:62:2
    6. ├─dplyr::mutate(., ...)
    7. ├─dplyr::collect(.)
    8. ├─dm:::expect_message_obj(...)
    9. │ ├─testthat::expect_message(...)
   10. │ │ └─testthat:::expect_condition_matching(...)
   11. │ │   └─testthat:::quasi_capture(...)
   12. │ │     ├─testthat (local) .capture(...)
   13. │ │     │ └─base::withCallingHandlers(...)
   14. │ │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   15. │ └─rlang::eval_tidy(...)
   16. ├─dm:::expect_warning_obj(...)
   17. │ ├─testthat::expect_warning(...)
   18. │ │ └─testthat:::expect_condition_matching(...)
   19. │ │   └─testthat:::quasi_capture(...)
   20. │ │     ├─testthat (local) .capture(...)
   21. │ │     │ └─base::withCallingHandlers(...)
   22. │ │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   23. │ └─rlang::eval_tidy(dm_flatten_to_tbl(dm_for_flatten(), fact, .join = right_join))
   24. └─dm::dm_flatten_to_tbl(dm_for_flatten(), fact, .join = right_join)
   25.   └─dm:::dm_flatten_to_tbl_impl(...)
   26.     └─purrr::reduce2(...)
   27.       └─purrr:::reduce2_impl(.x, .y, .f, ..., .init = .init, .left = TRUE)
   28.         └─dm (local) .f(out, .x[[x_i]], .y[[y_i]], ...)
   29.           ├─dplyr (local) join(..1, ..2, by = ..3)
   30.           └─dplyr:::right_join.data.frame(..1, ..2, by = ..3)
   31.             └─dplyr:::join_mutate(...)
   32.               ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   33.               └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Error ('test-flatten.R:212:3'): `dm_flatten_to_tbl(.recursive = TRUE)` does the right things ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::expect_equivalent_tbl(...) at test-flatten.R:212:2
    2. │ └─dm:::harmonize_tbl(tbl_1, ...) at tests/testthat/helper-expectations.R:82:2
    3. │   └─tbl %>% collect() %>% mutate(...) %>% arrange_if_no_list() at tests/testthat/helper-expectations.R:70:2
    4. ├─dm:::arrange_if_no_list(.)
    5. │ └─base::inherits(tbl, "tbl_dbi") at tests/testthat/helper-expectations.R:62:2
    6. ├─dplyr::mutate(., ...)
    7. ├─dplyr::collect(.)
    8. └─dm::dm_flatten_to_tbl(...)
    9.   └─dm:::dm_flatten_to_tbl_impl(...)
   10.     └─purrr::reduce2(...)
   11.       └─purrr:::reduce2_impl(.x, .y, .f, ..., .init = .init, .left = TRUE)
   12.         └─dm (local) .f(out, .x[[x_i]], .y[[y_i]], ...)
   13.           ├─dplyr (local) join(..1, ..2, by = ..3)
   14.           └─dplyr:::full_join.data.frame(..1, ..2, by = ..3)
   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-dplyr.R:265:3'): basic test: 'join()'-methods for `zoomed.dm` work ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::expect_equivalent_tbl(...) at test-dplyr.R:265:2
    2. │ └─dm:::harmonize_tbl(tbl_1, ...) at tests/testthat/helper-expectations.R:82:2
    3. │   └─tbl %>% collect() %>% mutate(...) %>% arrange_if_no_list() at tests/testthat/helper-expectations.R:70:2
    4. ├─dm:::arrange_if_no_list(.)
    5. │ └─base::inherits(tbl, "tbl_dbi") at tests/testthat/helper-expectations.R:62:2
    6. ├─dplyr::mutate(., ...)
    7. ├─dplyr::collect(.)
    8. ├─full_join(dm_zoomed(), tf_1) %>% dm_update_zoomed() %>% ...
    9. ├─dm:::tbl_impl(., "tf_2")
   10. │ └─dm:::dm_get_def(dm, quiet = quiet)
   11. │   └─dm:::check_dm(x)
   12. │     └─dm::is_dm(x)
   13. ├─dm::dm_update_zoomed(.)
   14. │ └─dm:::check_zoomed(dm)
   15. │   └─dm:::check_dm(dm)
   16. │     └─dm::is_dm(x)
   17. ├─dplyr::full_join(dm_zoomed(), tf_1)
   18. └─dm:::full_join.dm_zoomed(dm_zoomed(), tf_1)
   19.   ├─dplyr::full_join(...)
   20.   └─dplyr:::full_join.data.frame(...)
   21.     └─dplyr:::join_mutate(...)
   22.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   24.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   26.             ├─base::withCallingHandlers(...)
   27.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-draw-dm.R:128:3'): output ──────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::expect_snapshot_diagram(...) at test-draw-dm.R:128:2
    2. │ └─diagram %>% DiagrammeRsvg::export_svg() %>% writeLines(path) at tests/testthat/helper-expectations.R:112:2
    3. ├─base::writeLines(., path)
    4. ├─DiagrammeRsvg::export_svg(.)
    5. ├─dm_nycflights13() %>% dm_draw(column_types = TRUE)
    6. ├─dm::dm_draw(., column_types = TRUE)
    7. │ └─dm:::dm_get_data_model(dm, column_types)
    8. │   └─... %>% as.data.frame()
    9. ├─base::as.data.frame(.)
   10. ├─dplyr::distinct(.)
   11. ├─dplyr::select(., -key_fk)
   12. ├─dplyr::mutate(., key = coalesce(key, key_fk, 0L))
   13. ├─dplyr::full_join(...)
   14. ├─dplyr::full_join(., keys_fk, by = c("table", "column"))
   15. ├─dplyr::full_join(., keys_pk, by = c("table", "column"))
   16. └─dplyr:::full_join.data.frame(., keys_pk, by = c("table", "column"))
   17.   └─dplyr:::join_mutate(...)
   18.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   20.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   21.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22.           ├─base::withCallingHandlers(...)
   23.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-rows-dm.R:12:3'): dm_rows_insert() ─────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: object 'flights_new' not found
  Class:   simpleError/error/condition
  ── Error ('test-rows-dm.R:92:3'): dm_rows_update() ─────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-rows-dm.R:154:3'): dm_rows_truncate() ──────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-datamodelr-code.R:4:3'): datamodel-code for drawing ────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-datamodelr-code.R:12:3'): snapshot test for datamodelr code ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm:::dm_get_data_model(dm) at test-datamodelr-code.R:12:2
    2. │ └─... %>% as.data.frame()
    3. ├─base::as.data.frame(.)
    4. ├─dplyr::distinct(.)
    5. ├─dplyr::select(., -key_fk)
    6. ├─dplyr::mutate(., key = coalesce(key, key_fk, 0L))
    7. ├─dplyr::full_join(...)
    8. ├─dplyr::full_join(., keys_fk, by = c("table", "column"))
    9. ├─dplyr::full_join(., keys_pk, by = c("table", "column"))
   10. └─dplyr:::full_join.data.frame(., keys_pk, by = c("table", "column"))
   11.   └─dplyr:::join_mutate(...)
   12.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   13.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Error ('test-dm_nest_tbl.R:17:3'): `dm_pack_tbl()`, `dm_unpack_tbl()`, `dm_nest_tbl()`, `dm_unnest_tbl()` work ──
  `{ ... }` threw an unexpected error.
  Message: object 'dm_packed_nested_unnested_unpacked' not found
  Class:   simpleError/error/condition
  ── Error ('test-dm_wrap.R:5:3'): `dm_wrap_tbl()` and `dm_unwrap_tbl()` work ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─dm::dm_wrap_tbl(dm1, tf_4) at test-dm_wrap.R:5:2
    2.   └─purrr::reduce2(...)
    3.     └─purrr:::reduce2_impl(.x, .y, .f, ..., .init = .init, .left = TRUE)
    4.       └─dm (local) .f(out, .x[[x_i]], .y[[y_i]], ...)
    5.         ├─rlang::exec(f, dm, table)
    6.         └─dm::dm_nest_tbl(`<dm>`, "tf_2")
    7.           ├─base::`[<-`(`*tmp*`, def$table == parent_name, , value = `<tibble[,11]>`)
    8.           └─tibble:::`[<-.tbl_df`(`*tmp*`, def$table == parent_name, , value = `<tibble[,11]>`)
    9.             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.               └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   11.                 ├─base::withCallingHandlers(...)
   12.                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dm_wrap.R:37:3'): `dm_wrap_tbl()` and `dm_unwrap_tbl()` round trip ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dm::dm_unwrap_tbl(dm_wrap_tbl(dm, tf_1), dm) at test-dm_wrap.R:37:2
    2. │ ├─... %>% purrr::discard(~ nrow(.) == 0)
    3. │ └─dm::dm_get_tables(dm)
    4. │   └─dm:::check_not_zoomed(x)
    5. │     └─dm:::check_dm(dm)
    6. │       └─dm::is_dm(x)
    7. ├─purrr::discard(., ~nrow(.) == 0)
    8. │ └─purrr:::where_if(.x, .p, ...)
    9. │   └─purrr:::map_(.x, .p, ..., .type = "logical", .purrr_error_call = .purrr_error_call)
   10. │     └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
   11. ├─base::unlist(., recursive = FALSE)
   12. ├─purrr::imap(., dm_unwrap_tbl_plan)
   13. │ └─purrr::map2(.x, vec_index(.x), .f, ...)
   14. │   └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   15. │     └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
   16. └─dm::dm_wrap_tbl(dm, tf_1)
   17.   └─purrr::reduce2(...)
   18.     └─purrr:::reduce2_impl(.x, .y, .f, ..., .init = .init, .left = TRUE)
   19.       └─dm (local) .f(out, .x[[x_i]], .y[[y_i]], ...)
   20.         ├─rlang::exec(f, dm, table)
   21.         └─dm::dm_nest_tbl(`<dm>`, "tf_5")
   22.           ├─base::`[<-`(`*tmp*`, def$table == parent_name, , value = `<tibble[,11]>`)
   23.           └─tibble:::`[<-.tbl_df`(`*tmp*`, def$table == parent_name, , value = `<tibble[,11]>`)
   24.             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25.               └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   26.                 ├─base::withCallingHandlers(...)
   27.                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 13 | WARN 0 | SKIP 204 | PASS 1246 ]
  Error: Test failures
  Execution halted