Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [9s/14s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(regions)
  > 
  > test_check("regions")
  [ FAIL 3 | WARN 13 | SKIP 0 | PASS 38 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-impute_down.R:224:3'): vignette example works ──────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-impute_down.R:224:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(impute_down_nuts(dat = mixed_nuts_example))
    5. ├─regions::impute_down_nuts(dat = mixed_nuts_example)
    6. │ └─validated %>% ...
    7. ├─dplyr::full_join(...)
    8. └─dplyr:::full_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-impute_down_nuts.R:10:1'): (code run outside of `test_that()`) ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─regions::impute_down_nuts(...) at test-impute_down_nuts.R:10:0
    2. │ └─validated %>% ...
    3. ├─dplyr::full_join(...)
    4. └─dplyr:::full_join.data.frame(...)
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    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-validate_geo_code.R:28:3'): Proper answers returned ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-validate_geo_code.R:28:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─regions::validate_geo_code(c("DE1", "DE7", "HU1", "BE1"), 2016)
    5. │ └─... %>% ...
    6. ├─dplyr::full_join(., nuts_exceptions, by = c("geo", "typology"))
    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]])
  
  [ FAIL 3 | WARN 13 | SKIP 0 | PASS 38 ]
  Error: Test failures
  Execution halted