Running ‘testthat.R’ [48s/73s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidyr)
  
  Attaching package: 'tidyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("tidyr")
  [ FAIL 4 | WARN 0 | SKIP 148 | PASS 1097 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (148)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-complete.R:115:3'): not drop unspecified levels in complete ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─df %>% complete(z = c("a", "b")) at test-complete.R:115:2
    2. ├─tidyr::complete(., z = c("a", "b"))
    3. └─tidyr:::complete.data.frame(., z = c("a", "b"))
    4.   ├─dplyr::full_join(out, data, by = names, multiple = "all")
    5.   └─dplyr:::full_join.data.frame(out, data, by = names, multiple = "all")
    6.     └─dplyr:::join_mutate(...)
    7.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    8.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.             ├─base::withCallingHandlers(...)
   12.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-separate-wider.R:180:3'): separate_wider_regex() can silence errors ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─df %>% ... at test-separate-wider.R:180:2
    2. └─tidyr::separate_wider_regex(...)
    3.   └─tidyr:::map_unpack(...)
    4.     └─tidyr (local) fun(data[[col]], col)
    5.       └─tidyr:::str_separate_wider_regex(...)
    6.         ├─base::`[<-`(`*tmp*`, match_idx, cols, value = `<tibble[,1]>`)
    7.         └─tibble:::`[<-.tbl_df`(`*tmp*`, match_idx, cols, value = `<tibble[,1]>`)
    8.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.               ├─base::withCallingHandlers(...)
   11.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-separate-wider.R:191:3'): separate_wider_regex() can diagnose errors ──
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-separate-wider.R:198:3'): separate_wider_regex() can diagnose errors ──
  Error in `eval(code, test_env)`: object 'out' not found
  Backtrace:
      ▆
   1. └─testthat::expect_equal(out$x, df$x) at test-separate-wider.R:198:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  
  [ FAIL 4 | WARN 0 | SKIP 148 | PASS 1097 ]
  Error: Test failures
  Execution halted