Running ‘testthat.R’ [19s/29s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(manydata)
  > 
  > test_check("manydata")
  There were 5 matched observations by manyID variable across datasets in database.There were 5 matched observations by manyID variable across datasets in database.There were 5 matched observations by manyID variable across datasets in database.There were 5 matched observations by manyID variable across datasets in database.There were 5 matched observations by manyID variable across datasets in database.There were 5 matched observations by manyID variable across datasets in database.There were 116 matched observations by ID variable across datasets in database.There were 116 matched observations by ID variable across datasets in database.[ FAIL 3 | WARN 4 | SKIP 0 | PASS 94 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_consolidate.R:87:3'): consolidate methods work ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test_consolidate.R:87:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─manydata::consolidate(test, "any", "any", resolve = "coalesce")
    5. │ └─purrr::map(out, tidyr::drop_na, dplyr::all_of(key)) %>% ...
    6. └─purrr::reduce(., dplyr::full_join, by = key)
    7.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
    8.     ├─dplyr (local) fn(out, elt, ...)
    9.     └─dplyr:::full_join.data.frame(out, elt, ...)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_db.R:2:3'): dbplot() returns the correct output format ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─manydata::db_plot(database = emperors, key = "ID") at test_db.R:2:2
    2. │ └─manydata::db_comp(...)
    3. │   └─purrr::map(out, tidyr::drop_na, dplyr::all_of(key)) %>% ...
    4. └─purrr::reduce(., dplyr::full_join, by = key)
    5.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
    6.     ├─dplyr (local) fn(out, elt, ...)
    7.     └─dplyr:::full_join.data.frame(out, elt, ...)
    8.       └─dplyr:::join_mutate(...)
    9.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.               ├─base::withCallingHandlers(...)
   14.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_db.R:11:3'): dbcomp() returns the correct output format ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─manydata::db_comp(database = emperors, key = "ID") at test_db.R:11:2
    2. │ └─purrr::map(out, tidyr::drop_na, dplyr::all_of(key)) %>% ...
    3. └─purrr::reduce(., dplyr::full_join, by = key)
    4.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
    5.     ├─dplyr (local) fn(out, elt, ...)
    6.     └─dplyr:::full_join.data.frame(out, elt, ...)
    7.       └─dplyr:::join_mutate(...)
    8.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.               ├─base::withCallingHandlers(...)
   13.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 3 | WARN 4 | SKIP 0 | PASS 94 ]
  Error: Test failures
  Execution halted