Running ‘testthat.R’ [6s/9s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("states")
  
  Attaching package: 'states'
  
  The following object is masked from 'package:testthat':
  
      compare
  
  > 
  > test_check("states")
  [ FAIL 8 | WARN 24 | SKIP 0 | PASS 95 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-plot-missing.R:82:3'): plot_missing accepts all input options ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-plot-missing.R:82:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─states::plot_missing(...)
    5.   └─states::missing_info(...)
    6.     ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    7.     └─dplyr:::full_join.data.frame(...)
    8.       └─dplyr:::join_mutate(...)
    9.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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-plot-missing.R:113:3'): plot_missing works with tibbles ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-plot-missing.R:113:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─states::missing_info(cy, "myvar", "gwcode", "date", "year", "GW")
    5.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Failure ('test-plot-missing.R:130:3'): missing_info input checks ────────────
  `missing_info(cy, "myvar", "gwcode", "date", "year", "GW")` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-plot-missing.R:130:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─states::missing_info(cy, "myvar", "gwcode", "date", "year", "GW")
    8.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    9.   └─dplyr:::full_join.data.frame(...)
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Failure ('test-plot-missing.R:169:3'): auto input recognition works ─────────
  `missing_info(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-plot-missing.R:169:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─states::missing_info(...)
    8.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    9.   └─dplyr:::full_join.data.frame(...)
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Failure ('test-plot-missing.R:170:3'): auto input recognition works ─────────
  `missing_info(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-plot-missing.R:170:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─states::missing_info(...)
    8.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    9.   └─dplyr:::full_join.data.frame(...)
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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-plot-missing.R:172:3'): auto input recognition works ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-plot-missing.R:172:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─states::missing_info(...)
    8.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    9.   └─dplyr:::full_join.data.frame(...)
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
  ── Failure ('test-plot-missing.R:195:3'): exact date in put is correctly handled ──
  `... <- NULL` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-plot-missing.R:195:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─states::missing_info(...)
    8.   ├─dplyr::full_join(ind_states, data, by = c(ccode, time))
    9.   └─dplyr:::full_join.data.frame(...)
   10.     └─dplyr:::join_mutate(...)
   11.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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-plot-missing.R:201:3'): exact date in put is correctly handled ──
  Error in `eval(code, test_env)`: object 'mm' not found
  Backtrace:
      ▆
   1. ├─testthat::expect_false(160 %in% mm$ccode) at test-plot-missing.R:201:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─160 %in% mm$ccode
  
  [ FAIL 8 | WARN 24 | SKIP 0 | PASS 95 ]
  Error: Test failures
  Execution halted